andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Rename shadow-mode.

Browse source 
* 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.
This commit is contained in:
Glenn Morris 2010-10-07 10:17:18 -07:00
parent fcf2d385f2
commit ac44263aed
2 changed files with 9 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/ChangeLog
View file

@ -1,3 +1,9 @@
2010-10-07 Glenn Morris <rgm@gnu.org>
* 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 <monnier@iro.umontreal.ca> 2010-10-07 Stefan Monnier <monnier@iro.umontreal.ca>
* emacs-lisp/smie.el (smie-bnf-classify): New function. * emacs-lisp/smie.el (smie-bnf-classify): New function.

6
lisp/emacs-lisp/shadow.el
View file

@ -156,9 +156,9 @@ See the documentation for `list-load-path-shadows' for further information."
`((,(format "hides \\(%s.*\\)" `((,(format "hides \\(%s.*\\)"
(file-name-directory (locate-library "simple.el"))) (file-name-directory (locate-library "simple.el")))
. (1 font-lock-warning-face))) . (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." "Major mode for load-path shadows buffer."
(set (make-local-variable 'font-lock-defaults) (set (make-local-variable 'font-lock-defaults)
'((shadow-font-lock-keywords))) '((shadow-font-lock-keywords)))
@ -263,7 +263,7 @@ function, `find-emacs-lisp-shadows'."
(let ((string (buffer-string))) (let ((string (buffer-string)))
(with-current-buffer (get-buffer-create "*Shadows*") (with-current-buffer (get-buffer-create "*Shadows*")
(display-buffer (current-buffer)) (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)) (let ((inhibit-read-only t))
(erase-buffer) (erase-buffer)
(insert string) (insert string)