Error in next-buffer or previous-buffer if called from minibuffer.

* lisp/window.el (next-buffer, previous-buffer): Signal an error if
called from a minibuffer window.

* lisp/bindings.el: Revert 2011-07-04 change.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 700a2b1f51242e72e1e04a02d0c690cc0b90ba52..8cdb2cdba429f1bfb1a7decd1114338917df7766 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,10 @@
+2011-07-07  Chong Yidong  <cyd@stupidchicken.com>
+
+       * window.el (next-buffer, previous-buffer): Signal an error if
+       called from a minibuffer window.
+
+       * bindings.el: Revert 2011-07-04 change.
+
 2011-07-06  Richard Stallman  <rms@gnu.org>
 
        * mail/rmailmm.el (rmail-mime-process): Use markers for buf positions.

diff --git a/lisp/bindings.el b/lisp/bindings.el
index 2f03560852891c39f7a3041c0d3b0a6b0e1305b9..99d9aa36e35d51a9c969755ea09d2322a2991a9c 100644 (file)
--- a/lisp/bindings.el
+++ b/lisp/bindings.el
@@ -807,8 +807,6 @@ if `inhibit-field-text-motion' is non-nil."
   (define-key map [up]    'previous-history-element)
   (define-key map "\es"   'next-matching-history-element)
   (define-key map "\er"   'previous-matching-history-element)
-  (define-key map [remap next-buffer] 'ignore)
-  (define-key map [remap previous-buffer] 'ignore)
   ;; Override the global binding (which calls indent-relative via
   ;; indent-for-tab-command).  The alignment that indent-relative tries to
   ;; do doesn't make much sense here since the prompt messes it up.

diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el
index 02f78635e2619d4503ba91ca739b2a91c6e6cbda..900eedfef848fcc8d212a315cbc8876f91d1eabb 100644 (file)
--- a/lisp/mail/rmail.el
+++ b/lisp/mail/rmail.el
@@ -4379,7 +4379,7 @@ With prefix argument N moves forward N messages with these labels.
 
 ;;;***
 \f
-;;;### (autoloads (rmail-mime) "rmailmm" "rmailmm.el" "30ab95e291380f184dff5fa6cde75520")
+;;;### (autoloads (rmail-mime) "rmailmm" "rmailmm.el" "a7d3e7205efa4e20ca9038c9b260ce83")
 ;;; Generated autoloads from rmailmm.el
 
 (autoload 'rmail-mime "rmailmm" "\

diff --git a/lisp/window.el b/lisp/window.el
index 2b98630a51e38fee62415a563d2f54d34e442199..2c4bf0dcb23535e8aeed01856ff34a6110f4b67e 100644 (file)
--- a/lisp/window.el
+++ b/lisp/window.el
@@ -2819,11 +2819,15 @@ displayed there."
 (defun next-buffer ()
   "In selected window switch to next buffer."
   (interactive)
+  (if (window-minibuffer-p)
+      (error "Cannot switch buffers in minibuffer window"))
   (switch-to-next-buffer))
 
 (defun previous-buffer ()
   "In selected window switch to previous buffer."
   (interactive)
+  (if (window-minibuffer-p)
+      (error "Cannot switch buffers in minibuffer window"))
   (switch-to-prev-buffer))
 
 (defun delete-windows-on (&optional buffer-or-name frame)