Mercurial > hg > xemacs-beta

comparison lisp/buffer.el @ 412:697ef44129c6 r21-2-14

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-14
author cvs
date Mon, 13 Aug 2007 11:20:41 +0200
parents 2f8bb876ab1d
children 95016f13131a
comparison
equal deleted inserted replaced
411:12e008d41344 412:697ef44129c6
58 (progn 58 (progn
59 (setq buf (get-buffer-create bufname)) 59 (setq buf (get-buffer-create bufname))
60 (set-buffer-major-mode buf)))) 60 (set-buffer-major-mode buf))))
61 (push-window-configuration) 61 (push-window-configuration)
62 (set-buffer buf) 62 (set-buffer buf)
63 (set-window-buffer (last-nonminibuf-window) buf norecord) 63 (or norecord (record-buffer buf))
64 (set-window-buffer (if (eq (selected-window) (minibuffer-window))
65 (next-window (minibuffer-window))
66 (selected-window))
67 buf)
64 buf)) 68 buf))
65 69
66 (defun pop-to-buffer (bufname &optional not-this-window-p on-frame) 70 (defun pop-to-buffer (bufname &optional not-this-window-p on-frame)
67 "Select buffer BUFNAME in some window, preferably a different one. 71 "Select buffer BUFNAME in some window, preferably a different one.
68 If BUFNAME is nil, then some other buffer is chosen. 72 If BUFNAME is nil, then some other buffer is chosen.