Mercurial > hg > xemacs-beta
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