1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 18:40:39 -08:00

* progmodes/ebrowse.el (ebrowse-display-member-buffer): Avoid

using with-output-to-temp-buffer, which clobbers local vars.
This commit is contained in:
Chong Yidong 2006-07-11 16:39:50 +00:00
parent b8fa0ffd0c
commit ce4746a36a
2 changed files with 22 additions and 17 deletions

View file

@ -2734,24 +2734,24 @@ means the member buffer is standalone. CLASS is its class."
;; 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)