(list-load-path-shadows): Setup a major mode

for the displayed buffer (bug#4887).

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 65e2dff9e2c71131002259108efafff7ef0cd41e..b0cc109162b907bfb7329efe61438133f2e3f256 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2009-11-24  Stefan Monnier  <monnier@iro.umontreal.ca>
 
+       * emacs-lisp/shadow.el (list-load-path-shadows): Setup a major mode
+       for the displayed buffer (bug#4887).
+
        * man.el (Man-completion-table): New function.
        (man): Use it.
 

diff --git a/lisp/emacs-lisp/shadow.el b/lisp/emacs-lisp/shadow.el
index 9111dde7de7fdfb4cc13d78b6183181ec17a8e49..5087822444cff88d7c57ca1062544d52e2dc5478 100644 (file)
--- a/lisp/emacs-lisp/shadow.el
+++ b/lisp/emacs-lisp/shadow.el
@@ -234,6 +234,7 @@ function, `find-emacs-lisp-shadows'."
              ;; Create the *Shadows* buffer and display shadowings there.
              (let ((string (buffer-string)))
                (with-current-buffer (get-buffer-create "*Shadows*")
+                  (fundamental-mode)    ;run after-change-major-mode-hook.
                  (display-buffer (current-buffer))
                  (setq buffer-undo-list t
                        buffer-read-only nil)