Mercurial > emacs
comparison lisp/emacs-lisp/shadow.el @ 106223:21d623c57072
(list-load-path-shadows): Setup a major mode
for the displayed buffer (bug#4887).
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Tue, 24 Nov 2009 21:36:10 +0000 |
| parents | dd099beb5a5b |
| children | 1d1d5d9bd884 |
comparison
equal
deleted
inserted
replaced
| 106222:35b575add861 | 106223:21d623c57072 |
|---|---|
| 232 (if (called-interactively-p 'interactive) | 232 (if (called-interactively-p 'interactive) |
| 233 ;; We are interactive. | 233 ;; We are interactive. |
| 234 ;; Create the *Shadows* buffer and display shadowings there. | 234 ;; Create the *Shadows* buffer and display shadowings there. |
| 235 (let ((string (buffer-string))) | 235 (let ((string (buffer-string))) |
| 236 (with-current-buffer (get-buffer-create "*Shadows*") | 236 (with-current-buffer (get-buffer-create "*Shadows*") |
| 237 (fundamental-mode) ;run after-change-major-mode-hook. | |
| 237 (display-buffer (current-buffer)) | 238 (display-buffer (current-buffer)) |
| 238 (setq buffer-undo-list t | 239 (setq buffer-undo-list t |
| 239 buffer-read-only nil) | 240 buffer-read-only nil) |
| 240 (erase-buffer) | 241 (erase-buffer) |
| 241 (insert string) | 242 (insert string) |