diff options
| author | Richard M. Stallman | 1994-05-23 08:23:03 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1994-05-23 08:23:03 +0000 |
| commit | d953b88c3599ec6c66856f0749a5d5dac006d2f0 (patch) | |
| tree | d2d95e6d4aad6fff951be4c0004cd89153f80d6f | |
| parent | fd11871ac0d99f543c943d9dc8aa63c64897e4eb (diff) | |
| download | emacs-d953b88c3599ec6c66856f0749a5d5dac006d2f0.tar.gz emacs-d953b88c3599ec6c66856f0749a5d5dac006d2f0.zip | |
(Buffer-menu-mouse-select): Handle dedicated window.
| -rw-r--r-- | lisp/buff-menu.el | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lisp/buff-menu.el b/lisp/buff-menu.el index 3c55bdb4d3c..a2f67bf59f3 100644 --- a/lisp/buff-menu.el +++ b/lisp/buff-menu.el | |||
| @@ -346,7 +346,10 @@ You can mark buffers with the \\<Buffer-menu-mode-map>\\[Buffer-menu-mark] comma | |||
| 346 | (goto-char (posn-point (event-end event))) | 346 | (goto-char (posn-point (event-end event))) |
| 347 | (setq buffer (Buffer-menu-buffer t)))) | 347 | (setq buffer (Buffer-menu-buffer t)))) |
| 348 | (select-window (posn-window (event-end event))) | 348 | (select-window (posn-window (event-end event))) |
| 349 | (switch-to-buffer buffer))) | 349 | (if (and (window-dedicated-p (selected-window)) |
| 350 | (eq (selected-window) (frame-root-window))) | ||
| 351 | (switch-to-buffer-other-frame buffer) | ||
| 352 | (switch-to-buffer buffer)))) | ||
| 350 | 353 | ||
| 351 | (defun Buffer-menu-this-window () | 354 | (defun Buffer-menu-this-window () |
| 352 | "Select this line's buffer in this window." | 355 | "Select this line's buffer in this window." |