[Emacs-diffs] /srv/bzr/emacs/trunk r101834: Rename shadow-mode.

[Glenn Morris]

------------------------------------------------------------
revno: 101834
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Thu 2010-10-07 10:17:18 -0700
message:
  Rename shadow-mode.
  * lisp/emacs-lisp/shadow.el (shadow-font-lock-keywords)
  (load-path-shadows-mode, list-load-path-shadows): Rename shadow-mode to
  load-path-shadows-mode, update references.
modified:
  lisp/ChangeLog
  lisp/emacs-lisp/shadow.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2010-10-07 11:27:19 +0000
+++ b/lisp/ChangeLog    2010-10-07 17:17:18 +0000
@@ -1,3 +1,9 @@
+2010-10-07  Glenn Morris  <address@hidden>
+
+       * emacs-lisp/shadow.el (shadow-font-lock-keywords)
+       (load-path-shadows-mode, list-load-path-shadows): Rename shadow-mode to
+       load-path-shadows-mode, update references.
+
 2010-10-07  Stefan Monnier  <address@hidden>
 
        * emacs-lisp/smie.el (smie-bnf-classify): New function.

=== modified file 'lisp/emacs-lisp/shadow.el'
--- a/lisp/emacs-lisp/shadow.el 2010-10-07 02:37:39 +0000
+++ b/lisp/emacs-lisp/shadow.el 2010-10-07 17:17:18 +0000
@@ -156,9 +156,9 @@
   `((,(format "hides \\(%s.*\\)"
              (file-name-directory (locate-library "simple.el")))
      . (1 font-lock-warning-face)))
-  "Keywords to highlight in `shadow-mode'.")
+  "Keywords to highlight in `load-path-shadows-mode'.")
 
-(define-derived-mode shadow-mode fundamental-mode "Shadow"
+(define-derived-mode load-path-shadows-mode fundamental-mode "LP-Shadows"
   "Major mode for load-path shadows buffer."
   (set (make-local-variable 'font-lock-defaults)
        '((shadow-font-lock-keywords)))
@@ -263,7 +263,7 @@
              (let ((string (buffer-string)))
                (with-current-buffer (get-buffer-create "*Shadows*")
                  (display-buffer (current-buffer))
-                 (shadow-mode)     ; run after-change-major-mode-hook
+                 (load-path-shadows-mode) ; run after-change-major-mode-hook
                  (let ((inhibit-read-only t))
                    (erase-buffer)
                    (insert string)