diff lisp/prim/minibuf.el @ 165:5a88923fcbfe r20-3b9

Import from CVS: tag r20-3b9
author cvs
date Mon, 13 Aug 2007 09:44:42 +0200
parents 0132846995bd
children 15872534500d
line wrap: on
line diff
--- a/lisp/prim/minibuf.el	Mon Aug 13 09:43:39 2007 +0200
+++ b/lisp/prim/minibuf.el	Mon Aug 13 09:44:42 2007 +0200
@@ -230,10 +230,11 @@
 
 (defun minibuffer-keyboard-quit ()
   "Abort recursive edit.
-If `zmacs-regions' is true, and the zmacs region is active, then this
-key deactivates the region without beeping."
+If `zmacs-regions' is true, and the zmacs region is active in this buffer,
+then this key deactivates the region without beeping."
   (interactive)
-  (if (and zmacs-regions (zmacs-deactivate-region))
+  (if (and (region-active-p)
+	   (eq (current-buffer) (zmacs-region-buffer)))
       ;; pseudo-zmacs compatibility: don't beep if this ^G is simply
       ;; deactivating the region.  If it is inactive, beep.
       nil