Mercurial > emacs
comparison lisp/simple.el @ 17514:335bd3dea3ea
Fix previous change.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 20 Apr 1997 01:30:13 +0000 |
| parents | ea3acb6b992a |
| children | 4dca74d70b49 |
comparison
equal
deleted
inserted
replaced
| 17513:ea3acb6b992a | 17514:335bd3dea3ea |
|---|---|
| 1633 (error "No mark set in this buffer")) | 1633 (error "No mark set in this buffer")) |
| 1634 (set-mark (point)) | 1634 (set-mark (point)) |
| 1635 (goto-char omark) | 1635 (goto-char omark) |
| 1636 nil)) | 1636 nil)) |
| 1637 | 1637 |
| 1638 (defun transient-mark-mode (arg &optional print-message) | 1638 (defun transient-mark-mode (arg) |
| 1639 "Toggle Transient Mark mode. | 1639 "Toggle Transient Mark mode. |
| 1640 With arg, turn Transient Mark mode on if arg is positive, off otherwise. | 1640 With arg, turn Transient Mark mode on if arg is positive, off otherwise. |
| 1641 | 1641 |
| 1642 In Transient Mark mode, when the mark is active, the region is highlighted. | 1642 In Transient Mark mode, when the mark is active, the region is highlighted. |
| 1643 Changing the buffer \"deactivates\" the mark. | 1643 Changing the buffer \"deactivates\" the mark. |
| 1644 So do certain other operations that set the mark | 1644 So do certain other operations that set the mark |
| 1645 but whose main purpose is something else--for example, | 1645 but whose main purpose is something else--for example, |
| 1646 incremental search, \\[beginning-of-buffer], and \\[end-of-buffer]." | 1646 incremental search, \\[beginning-of-buffer], and \\[end-of-buffer]." |
| 1647 (interactive "P\np") | 1647 (interactive "P") |
| 1648 (setq transient-mark-mode | 1648 (setq transient-mark-mode |
| 1649 (if (null arg) | 1649 (if (null arg) |
| 1650 (not transient-mark-mode) | 1650 (not transient-mark-mode) |
| 1651 (> (prefix-numeric-value arg) 0))) | 1651 (> (prefix-numeric-value arg) 0))) |
| 1652 (if transient-mark-mode | 1652 (if (interactive-p) |
| 1653 (message "Transient Mark mode enabled") | 1653 (if transient-mark-mode |
| 1654 (message "Transient Mark mode disabled"))) | 1654 (message "Transient Mark mode enabled") |
| 1655 (message "Transient Mark mode disabled")))) | |
| 1655 | 1656 |
| 1656 (defun pop-global-mark () | 1657 (defun pop-global-mark () |
| 1657 "Pop off global mark ring and jump to the top location." | 1658 "Pop off global mark ring and jump to the top location." |
| 1658 (interactive) | 1659 (interactive) |
| 1659 ;; Pop entries which refer to non-existent buffers. | 1660 ;; Pop entries which refer to non-existent buffers. |