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:
parent
b8fa0ffd0c
commit
ce4746a36a
2 changed files with 22 additions and 17 deletions
|
|
@ -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)
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue