# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1259098570 0
# Node ID 21d623c57072a58e3eb44c85f3f3b51eea3e112b
# Parent  35b575add8614acc798a7bcc314ee600bee23b4f
(list-load-path-shadows): Setup a major mode
for the displayed buffer (bug#4887).

diff -r 35b575add861 -r 21d623c57072 lisp/ChangeLog
--- a/lisp/ChangeLog	Tue Nov 24 21:33:23 2009 +0000
+++ b/lisp/ChangeLog	Tue Nov 24 21:36:10 2009 +0000
@@ -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 -r 35b575add861 -r 21d623c57072 lisp/emacs-lisp/shadow.el
--- a/lisp/emacs-lisp/shadow.el	Tue Nov 24 21:33:23 2009 +0000
+++ b/lisp/emacs-lisp/shadow.el	Tue Nov 24 21:36:10 2009 +0000
@@ -234,6 +234,7 @@
 	      ;; 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)