[Emacs-diffs] Changes to emacs/lisp/files.el,v

[Stefan Monnier]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Stefan Monnier <monnier>        08/04/29 14:47:45

Index: files.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/files.el,v
retrieving revision 1.973
retrieving revision 1.974
diff -u -b -r1.973 -r1.974
--- files.el    27 Apr 2008 19:49:15 -0000      1.973
+++ files.el    29 Apr 2008 14:47:45 -0000      1.974
@@ -1042,13 +1042,12 @@
 (defun read-buffer-to-switch (prompt)
   "Read the name of a buffer to switch to and return as a string.
 It is intended for `switch-to-buffer' family of commands since they
-need to omit the name of current buffer from the list of complations
+need to omit the name of current buffer from the list of completions
 and default values."
+  (let ((rbts-completion-table (internal-complete-buffer-except)))
   (minibuffer-with-setup-hook
-      (lambda ()
-       (set (make-local-variable 'minibuffer-completion-table)
-            (internal-complete-buffer-except (other-buffer (current-buffer) 
t))))
-    (read-buffer prompt (other-buffer (current-buffer)))))
+        (lambda () (setq minibuffer-completion-table rbts-completion-table))
+      (read-buffer prompt (other-buffer (current-buffer))))))
 
 (defun switch-to-buffer-other-window (buffer &optional norecord)
   "Select buffer BUFFER in another window.