Mercurial > emacs
comparison lisp/simple.el @ 87396:1073cad4beee
(region-active-p): New function.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 25 Dec 2007 22:43:44 +0000 |
| parents | 06a2cf746b9d |
| children | 5ef4fbedb516 |
comparison
equal
deleted
inserted
replaced
| 87395:0bcb1aa03dad | 87396:1073cad4beee |
|---|---|
| 3375 | 3375 |
| 3376 This function also obeys `use-empty-active-region'." | 3376 This function also obeys `use-empty-active-region'." |
| 3377 (and transient-mark-mode mark-active | 3377 (and transient-mark-mode mark-active |
| 3378 (or use-empty-active-region (> (region-end) (region-beginning))))) | 3378 (or use-empty-active-region (> (region-end) (region-beginning))))) |
| 3379 | 3379 |
| 3380 (defun region-active-p () | |
| 3381 "Return t if Transient Mark mode is enabled and the mark is active." | |
| 3382 (and transient-mark-mode mark-active)) | |
| 3383 | |
| 3380 (defvar mark-ring nil | 3384 (defvar mark-ring nil |
| 3381 "The list of former marks of the current buffer, most recent first.") | 3385 "The list of former marks of the current buffer, most recent first.") |
| 3382 (make-variable-buffer-local 'mark-ring) | 3386 (make-variable-buffer-local 'mark-ring) |
| 3383 (put 'mark-ring 'permanent-local t) | 3387 (put 'mark-ring 'permanent-local t) |
| 3384 | 3388 |