Mercurial > hg > xemacs-beta

diff 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
line wrap: on
line diff
--- a/lisp/buffer.el	Sun Nov 08 17:27:26 2009 +0000
+++ b/lisp/buffer.el	Mon Nov 09 17:05:19 2009 +0100
@@ -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.