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. |