mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-22 07:09:54 +00:00
Code Issues Releases Activity

(Buffer-menu-mouse-select): Handle dedicated window.

Browse Source
This commit is contained in:
Richard M. Stallman 1994-05-23 08:23:03 +00:00
parent fd11871ac0
commit d953b88c35
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/buff-menu.el
View File

@ -346,7 +346,10 @@ You can mark buffers with the \\<Buffer-menu-mode-map>\\[Buffer-menu-mark] comma
(goto-char (posn-point (event-end event)))
(setq buffer (Buffer-menu-buffer t))))
(select-window (posn-window (event-end event)))
(switch-to-buffer buffer)))
(if (and (window-dedicated-p (selected-window))
(eq (selected-window) (frame-root-window)))
(switch-to-buffer-other-frame buffer)
(switch-to-buffer buffer))))
(defun Buffer-menu-this-window ()
"Select this line's buffer in this window."