Mercurial > hg > xemacs-beta
comparison lisp/minibuf.el @ 2611:139afe9fb2ee
[xemacs-hg @ 2005-02-23 22:25:15 by adrian]
[PATCH] xemacs-21.5-clean: `region-active-p' to only return t when <zmxwtboa.fsf@smtprelay.t-online.de>
| author | adrian |
|---|---|
| date | Wed, 23 Feb 2005 22:25:16 +0000 |
| parents | 491f8cf78a9c |
| children | 7031e143e4ee |
comparison
equal
deleted
inserted
replaced
| 2610:16738b49b833 | 2611:139afe9fb2ee |
|---|---|
| 269 (defun minibuffer-keyboard-quit () | 269 (defun minibuffer-keyboard-quit () |
| 270 "Abort recursive edit. | 270 "Abort recursive edit. |
| 271 If `zmacs-regions' is true, and the zmacs region is active in this buffer, | 271 If `zmacs-regions' is true, and the zmacs region is active in this buffer, |
| 272 then this key deactivates the region without beeping." | 272 then this key deactivates the region without beeping." |
| 273 (interactive) | 273 (interactive) |
| 274 (if (and (region-active-p) | 274 (if (region-active-p) |
| 275 (eq (current-buffer) (zmacs-region-buffer))) | |
| 276 ;; pseudo-zmacs compatibility: don't beep if this ^G is simply | 275 ;; pseudo-zmacs compatibility: don't beep if this ^G is simply |
| 277 ;; deactivating the region. If it is inactive, beep. | 276 ;; deactivating the region. If it is inactive, beep. |
| 278 nil | 277 nil |
| 279 (abort-recursive-edit))) | 278 (abort-recursive-edit))) |
| 280 | 279 |