# HG changeset patch # User Chong Yidong # Date 1152635990 0 # Node ID 8a30c071b5fb43ffd842b75685a743b88369200a # Parent aa53161fdb21da44090c281aa3be4052d5284e68 * progmodes/ebrowse.el (ebrowse-display-member-buffer): Avoid using with-output-to-temp-buffer, which clobbers local vars. diff -r aa53161fdb21 -r 8a30c071b5fb lisp/ChangeLog --- 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 + + * progmodes/ebrowse.el (ebrowse-display-member-buffer): Avoid + using with-output-to-temp-buffer, which clobbers local vars. + 2006-07-11 Stefan Monnier * progmodes/compile.el (compilation-error-regexp-alist-alist): diff -r aa53161fdb21 -r 8a30c071b5fb lisp/progmodes/ebrowse.el --- 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)