Mercurial > hg > xemacs-beta

comparison lisp/buffer.el @ 400:a86b2b5e0111 r21-2-30

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