Mercurial > hg > xemacs-beta

comparison lisp/buffer.el @ 4734:74a5eaa67982

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Make switch-to-buffer completion avoid current buffer.
author Didier Verna <didier@xemacs.org>
date Mon, 09 Nov 2009 17:05:19 +0100
parents 627e25731054
children 308d34e9f07d
comparison
equal deleted inserted replaced
4733:a5210e70ffbe 4734:74a5eaa67982
39 front of the list of recently selected ones. 39 front of the list of recently selected ones.
40 40
41 WARNING: This is NOT the way to work on another buffer temporarily 41 WARNING: This is NOT the way to work on another buffer temporarily
42 within a Lisp program! Use `set-buffer' instead. That avoids messing with 42 within a Lisp program! Use `set-buffer' instead. That avoids messing with
43 the window-buffer correspondences." 43 the window-buffer correspondences."
44 (interactive "BSwitch to buffer: ") 44 (interactive
45 (list (read-buffer "Switch to buffer: "
46 (other-buffer (current-buffer))
47 nil
48 (current-buffer))))
45 ;; #ifdef I18N3 49 ;; #ifdef I18N3
46 ;; #### Doc string should indicate that the buffer name will get 50 ;; #### Doc string should indicate that the buffer name will get
47 ;; translated. 51 ;; translated.
48 ;; #endif 52 ;; #endif
49 (if (eq (minibuffer-window) (selected-window)) 53 (if (eq (minibuffer-window) (selected-window))