Mercurial > emacs
comparison lisp/simple.el @ 17471:f383bfae3202
(overwrite-mode-binary, overwrite-mode-textual): Use defvar.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 15 Apr 1997 07:48:25 +0000 |
| parents | dc683d40dde5 |
| children | ea3acb6b992a |
comparison
equal
deleted
inserted
replaced
| 17470:c4cd2317fe60 | 17471:f383bfae3202 |
|---|---|
| 2637 (set-window-start (selected-window) (window-start (selected-window))) | 2637 (set-window-start (selected-window) (window-start (selected-window))) |
| 2638 (princ "selective-display set to " t) | 2638 (princ "selective-display set to " t) |
| 2639 (prin1 selective-display t) | 2639 (prin1 selective-display t) |
| 2640 (princ "." t)) | 2640 (princ "." t)) |
| 2641 | 2641 |
| 2642 (defconst overwrite-mode-textual " Ovwrt" | 2642 (defvar overwrite-mode-textual " Ovwrt" |
| 2643 "The string displayed in the mode line when in overwrite mode.") | 2643 "The string displayed in the mode line when in overwrite mode.") |
| 2644 (defconst overwrite-mode-binary " Bin Ovwrt" | 2644 (defvar overwrite-mode-binary " Bin Ovwrt" |
| 2645 "The string displayed in the mode line when in binary overwrite mode.") | 2645 "The string displayed in the mode line when in binary overwrite mode.") |
| 2646 | 2646 |
| 2647 (defun overwrite-mode (arg) | 2647 (defun overwrite-mode (arg) |
| 2648 "Toggle overwrite mode. | 2648 "Toggle overwrite mode. |
| 2649 With arg, turn overwrite mode on iff arg is positive. | 2649 With arg, turn overwrite mode on iff arg is positive. |