Mercurial > hg > xemacs-beta

comparison lisp/buffer.el @ 5118:e0db3c197671 ben-lisp-object

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
merge up to latest default branch, doesn't compile yet
author Ben Wing <ben@xemacs.org>
date Sat, 26 Dec 2009 21:18:49 -0600
parents 74a5eaa67982
children 308d34e9f07d
comparison
equal deleted inserted replaced
5117:3742ea8250b5 5118:e0db3c197671
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))