Mercurial > emacs
changeset 71790:8a30c071b5fb
* progmodes/ebrowse.el (ebrowse-display-member-buffer): Avoid
using with-output-to-temp-buffer, which clobbers local vars.
| author | Chong Yidong <cyd@stupidchicken.com> |
|---|---|
| date | Tue, 11 Jul 2006 16:39:50 +0000 |
| parents | aa53161fdb21 |
| children | 6d32f7f6fd3a |
| files | lisp/ChangeLog lisp/progmodes/ebrowse.el |
| diffstat | 2 files changed, 22 insertions(+), 17 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Tue Jul 11 15:08:33 2006 +0000 +++ b/lisp/ChangeLog Tue Jul 11 16:39:50 2006 +0000 @@ -1,3 +1,8 @@ +2006-07-11 Chong Yidong <cyd@stupidchicken.com> + + * progmodes/ebrowse.el (ebrowse-display-member-buffer): Avoid + using with-output-to-temp-buffer, which clobbers local vars. + 2006-07-11 Stefan Monnier <monnier@iro.umontreal.ca> * progmodes/compile.el (compilation-error-regexp-alist-alist):
--- a/lisp/progmodes/ebrowse.el Tue Jul 11 15:08:33 2006 +0000 +++ b/lisp/progmodes/ebrowse.el Tue Jul 11 16:39:50 2006 +0000 @@ -2734,24 +2734,24 @@ ;; is on if not specified as an argument. (unless class (setq class (ebrowse-tree-at-point))) - (with-output-to-temp-buffer ebrowse-member-buffer-name - (save-excursion - (set-buffer standard-output) + (save-selected-window + (if temp-buffer + (pop-to-buffer temp-buffer) + (pop-to-buffer (get-buffer-create ebrowse-member-buffer-name)) ;; If new buffer, set the mode and initial values of locals - (unless temp-buffer - (ebrowse-member-mode)) - ;; Set local variables - (setq ebrowse--member-list (funcall list class) - ebrowse--displayed-class class - ebrowse--accessor list - ebrowse--tree-obarray classes - ebrowse--frozen-flag stand-alone - ebrowse--tags-file-name tags-file-name - ebrowse--header header - ebrowse--tree tree - buffer-read-only t) - (ebrowse-redisplay-member-buffer) - (current-buffer))))) + (ebrowse-member-mode)) + ;; Set local variables + (setq ebrowse--member-list (funcall list class) + ebrowse--displayed-class class + ebrowse--accessor list + ebrowse--tree-obarray classes + ebrowse--frozen-flag stand-alone + ebrowse--tags-file-name tags-file-name + ebrowse--header header + ebrowse--tree tree + buffer-read-only t) + (ebrowse-redisplay-member-buffer) + (current-buffer)))) (defun ebrowse-member-display-p (member)