Mercurial > hg > xemacs-beta
comparison lisp/cmdloop.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 | 0117860e01eb |
| children | a25c824ed558 |
comparison
equal
deleted
inserted
replaced
| 2610:16738b49b833 | 2611:139afe9fb2ee |
|---|---|
| 70 as an interrupt. | 70 as an interrupt. |
| 71 If this character is typed at top-level, this simply beeps. | 71 If this character is typed at top-level, this simply beeps. |
| 72 If `zmacs-regions' is true, and the zmacs region is active in this buffer, | 72 If `zmacs-regions' is true, and the zmacs region is active in this buffer, |
| 73 then this key deactivates the region without beeping or signalling." | 73 then this key deactivates the region without beeping or signalling." |
| 74 (interactive) | 74 (interactive) |
| 75 (if (and (region-active-p) | 75 (if (region-active-p) |
| 76 (eq (current-buffer) (zmacs-region-buffer))) | |
| 77 ;; pseudo-zmacs compatibility: don't beep if this ^G is simply | 76 ;; pseudo-zmacs compatibility: don't beep if this ^G is simply |
| 78 ;; deactivating the region. If it is inactive, beep. | 77 ;; deactivating the region. If it is inactive, beep. |
| 79 nil | 78 nil |
| 80 (signal 'quit nil))) | 79 (signal 'quit nil))) |
| 81 | 80 |