From 06d9ef85db168b4dbe3b7d1c980bce06ceb3ed19 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Thu, 7 Oct 2010 10:22:51 -0700 Subject: [PATCH] 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. --- lisp/ChangeLog | 3 +++ lisp/emacs-lisp/shadow.el | 9 +++++---- 2 files changed, 8 insertions(+), 4 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 0ae59478249..d6458c792e1 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -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 diff --git a/lisp/emacs-lisp/shadow.el b/lisp/emacs-lisp/shadow.el index 9297ee8b068..ee59cca2d6f 100644 --- a/lisp/emacs-lisp/shadow.el +++ b/lisp/emacs-lisp/shadow.el @@ -152,7 +152,7 @@ See the documentation for `list-load-path-shadows' for further information." (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 @@ See the documentation for `list-load-path-shadows' for further information." (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 @@ function, `find-emacs-lisp-shadows'." (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. -- 2.39.5