Mercurial > emacs
comparison lisp/emacs-lisp/shadow.el @ 110806:62865a8e7f58
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.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Thu, 07 Oct 2010 10:17:18 -0700 |
| parents | 2343b29e1e8d |
| children | 3c97e9b7b34f |
comparison
equal
deleted
inserted
replaced
| 110805:6bcb1cd1309b | 110806:62865a8e7f58 |
|---|---|
| 154 | 154 |
| 155 (defvar shadow-font-lock-keywords | 155 (defvar shadow-font-lock-keywords |
| 156 `((,(format "hides \\(%s.*\\)" | 156 `((,(format "hides \\(%s.*\\)" |
| 157 (file-name-directory (locate-library "simple.el"))) | 157 (file-name-directory (locate-library "simple.el"))) |
| 158 . (1 font-lock-warning-face))) | 158 . (1 font-lock-warning-face))) |
| 159 "Keywords to highlight in `shadow-mode'.") | 159 "Keywords to highlight in `load-path-shadows-mode'.") |
| 160 | 160 |
| 161 (define-derived-mode shadow-mode fundamental-mode "Shadow" | 161 (define-derived-mode load-path-shadows-mode fundamental-mode "LP-Shadows" |
| 162 "Major mode for load-path shadows buffer." | 162 "Major mode for load-path shadows buffer." |
| 163 (set (make-local-variable 'font-lock-defaults) | 163 (set (make-local-variable 'font-lock-defaults) |
| 164 '((shadow-font-lock-keywords))) | 164 '((shadow-font-lock-keywords))) |
| 165 (setq buffer-undo-list t | 165 (setq buffer-undo-list t |
| 166 buffer-read-only t)) | 166 buffer-read-only t)) |
| 261 ;; We are interactive. | 261 ;; We are interactive. |
| 262 ;; Create the *Shadows* buffer and display shadowings there. | 262 ;; Create the *Shadows* buffer and display shadowings there. |
| 263 (let ((string (buffer-string))) | 263 (let ((string (buffer-string))) |
| 264 (with-current-buffer (get-buffer-create "*Shadows*") | 264 (with-current-buffer (get-buffer-create "*Shadows*") |
| 265 (display-buffer (current-buffer)) | 265 (display-buffer (current-buffer)) |
| 266 (shadow-mode) ; run after-change-major-mode-hook | 266 (load-path-shadows-mode) ; run after-change-major-mode-hook |
| 267 (let ((inhibit-read-only t)) | 267 (let ((inhibit-read-only t)) |
| 268 (erase-buffer) | 268 (erase-buffer) |
| 269 (insert string) | 269 (insert string) |
| 270 (insert msg "\n") | 270 (insert msg "\n") |
| 271 (while (re-search-backward "\\(^.*\\) hides \\(.*$\\)" | 271 (while (re-search-backward "\\(^.*\\) hides \\(.*$\\)" |