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