Mercurial > hg > xemacs-beta

diff 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
line wrap: on
line diff
--- a/lisp/buffer.el	Sat Dec 26 00:20:27 2009 -0600
+++ b/lisp/buffer.el	Sat Dec 26 21:18:49 2009 -0600
@@ -41,7 +41,11 @@
 WARNING: This is NOT the way to work on another buffer temporarily
 within a Lisp program!  Use `set-buffer' instead.  That avoids messing with
 the window-buffer correspondences."
-  (interactive "BSwitch to buffer: ")
+  (interactive
+   (list (read-buffer "Switch to buffer: "
+		      (other-buffer (current-buffer))
+		      nil
+		      (current-buffer))))
   ;; #ifdef I18N3
   ;; #### Doc string should indicate that the buffer name will get
   ;; translated.