# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1286472171 25200
# Node ID 3c97e9b7b34fd78aa5aab687ab0f00af31d771c5
# Parent  62865a8e7f58ec62850d38c52c8a3985398e9c4f
Rename some more shadow.el stuff.
* lisp/emacs-lisp/shadow.el (load-path-shadows-font-lock-keywords)
(load-path-shadows-find-file): Rename variable and button.
(list-load-path-shadows): Update button caller.

diff -r 62865a8e7f58 -r 3c97e9b7b34f lisp/ChangeLog
--- a/lisp/ChangeLog	Thu Oct 07 10:17:18 2010 -0700
+++ b/lisp/ChangeLog	Thu Oct 07 10:22:51 2010 -0700
@@ -3,6 +3,9 @@
 	* 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.
+	(load-path-shadows-font-lock-keywords, load-path-shadows-find-file):
+	Rename variable and button.
+	(list-load-path-shadows): Update button caller.
 
 2010-10-07  Stefan Monnier  <monnier@iro.umontreal.ca>
 
diff -r 62865a8e7f58 -r 3c97e9b7b34f lisp/emacs-lisp/shadow.el
--- a/lisp/emacs-lisp/shadow.el	Thu Oct 07 10:17:18 2010 -0700
+++ b/lisp/emacs-lisp/shadow.el	Thu Oct 07 10:22:51 2010 -0700
@@ -152,7 +152,7 @@
 			 (nth 7 (file-attributes f2)))
 		      (eq 0 (call-process "cmp" nil nil nil "-s" f1 f2))))))))
 
-(defvar shadow-font-lock-keywords
+(defvar load-path-shadows-font-lock-keywords
   `((,(format "hides \\(%s.*\\)"
 	      (file-name-directory (locate-library "simple.el")))
      . (1 font-lock-warning-face)))
@@ -161,13 +161,13 @@
 (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)))
+       '((load-path-shadows-font-lock-keywords)))
   (setq buffer-undo-list t
 	buffer-read-only t))
 
 ;; TODO use text-properties instead, a la dired.
 (require 'button)
-(define-button-type 'shadow-find-file
+(define-button-type 'load-path-shadows-find-file
   'follow-link t
 ;;  'face 'default
   'action (lambda (button)
@@ -273,7 +273,8 @@
 		      (dotimes (i 2)
 			(make-button (match-beginning (1+ i))
 				     (match-end (1+ i))
-				     'type 'shadow-find-file 'shadow-file
+				     'type 'load-path-shadows-find-file
+				     'shadow-file
 				     (match-string (1+ i)))))
 		    (goto-char (point-max)))))
 	    ;; We are non-interactive, print shadows via message.