Fix pop-to-buffer call in switch-to-buffer.

* window.el (switch-to-buffer): Call pop-to-buffer with normalized
buffer argument (Bug#9083) and self-identifying label argument.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 1b3e25da8e1126c453e679d6073afaea2a4e3865..96f4dd07612be0f90af4f3628db13158eadd7b6a 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2011-07-15  Martin Rudalics  <rudalics@gmx.at>
+
+       * window.el (switch-to-buffer): Call pop-to-buffer with normalized
+       buffer argument (Bug#9083) and self-identifying label argument.
+
 2011-07-15  Glenn Morris  <rgm@gnu.org>
 
        * emacs-lisp/debug.el (debug): Doc fix.  (Bug#8273)

diff --git a/lisp/window.el b/lisp/window.el
index 0302a672521d0cefaf41b3e99985063a22a5807b..4f21bb053972a8f3f7ac9309339dbf2a66a5d95d 100644 (file)
--- a/lisp/window.el
+++ b/lisp/window.el
@@ -5953,13 +5953,13 @@ Return the buffer switched to."
    (list (read-buffer-to-switch "Switch to buffer: ") nil nil))
   (let ((buffer (window-normalize-buffer-to-switch-to buffer-or-name)))
     (if (null force-same-window)
-       (pop-to-buffer buffer-or-name
-                      '(same-window (reuse-window-dedicated . weak))
-                      norecord nil)
+       (pop-to-buffer
+        buffer '(same-window (reuse-window-dedicated . weak))
+        norecord 'switch-to-buffer)
       (cond
        ;; Don't call set-window-buffer if it's not needed since it
        ;; might signal an error (e.g. if the window is dedicated).
-       ((eq buffer (window-buffer)) nil)
+       ((eq buffer (window-buffer)))
        ((window-minibuffer-p)
        (error "Cannot switch buffers in minibuffer window"))
        ((eq (window-dedicated-p) t)