[Emacs-diffs] emacs/lisp ChangeLog emacs-lisp/shadow.el

[Stefan Monnier]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Stefan Monnier <monnier>        09/11/24 21:36:17

Modified files:
        lisp           : ChangeLog 
        lisp/emacs-lisp: shadow.el 

Log message:
        (list-load-path-shadows): Setup a major mode
        for the displayed buffer (bug#4887).

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.16718&r2=1.16719
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/emacs-lisp/shadow.el?cvsroot=emacs&r1=1.33&r2=1.34

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.16718
retrieving revision 1.16719
diff -u -b -r1.16718 -r1.16719
--- ChangeLog   24 Nov 2009 20:00:41 -0000      1.16718
+++ ChangeLog   24 Nov 2009 21:36:10 -0000      1.16719
@@ -1,5 +1,8 @@
 2009-11-24  Stefan Monnier  <address@hidden>
 
+       * 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.
 

Index: emacs-lisp/shadow.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/emacs-lisp/shadow.el,v
retrieving revision 1.33
retrieving revision 1.34
diff -u -b -r1.33 -r1.34
--- emacs-lisp/shadow.el        10 Nov 2009 08:06:58 -0000      1.33
+++ emacs-lisp/shadow.el        24 Nov 2009 21:36:17 -0000      1.34
@@ -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)