Mercurial > hg > xemacs-beta

comparison lisp/buffer.el @ 442:abe6d1db359e r21-2-36

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-36
author cvs
date Mon, 13 Aug 2007 11:35:02 +0200
parents 3ecd8885ac67
children 627e25731054
comparison
equal deleted inserted replaced
441:72a7cfa4a488 442:abe6d1db359e
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 (or norecord (record-buffer buf)) 63 (set-window-buffer (last-nonminibuf-window) buf norecord)
64 (set-window-buffer (if (eq (selected-window) (minibuffer-window))
65 (next-window (minibuffer-window))
66 (selected-window))
67 buf)
68 buf)) 64 buf))
69 65
70 (defun pop-to-buffer (bufname &optional not-this-window-p on-frame) 66 (defun pop-to-buffer (bufname &optional not-this-window-p on-frame)
71 "Select buffer BUFNAME in some window, preferably a different one. 67 "Select buffer BUFNAME in some window, preferably a different one.
72 If BUFNAME is nil, then some other buffer is chosen. 68 If BUFNAME is nil, then some other buffer is chosen.