diff options
| author | Richard M. Stallman | 1997-08-23 17:04:52 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1997-08-23 17:04:52 +0000 |
| commit | 16be0abe24a75e2c8fd8e2ecb9d4956146bde389 (patch) | |
| tree | d1beb3280b49119b16104e5d0c5a45ea9c7fd894 | |
| parent | 80d1e5c9af20bdf394fdec20303d2fe993336e01 (diff) | |
| download | emacs-16be0abe24a75e2c8fd8e2ecb9d4956146bde389.tar.gz emacs-16be0abe24a75e2c8fd8e2ecb9d4956146bde389.zip | |
(delete-selection-mode): Put back :initialize keyword.
At the end of the file, test this variable, and turn on the mode
if it is non-nil.
| -rw-r--r-- | lisp/delsel.el | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/lisp/delsel.el b/lisp/delsel.el index ffd8f990eb3..2c3af32430f 100644 --- a/lisp/delsel.el +++ b/lisp/delsel.el | |||
| @@ -62,6 +62,7 @@ typed text replaces the selection if the selection is active. | |||
| 62 | You must modify via \\[customize] for this variable to have an effect." | 62 | You must modify via \\[customize] for this variable to have an effect." |
| 63 | :set (lambda (symbol value) | 63 | :set (lambda (symbol value) |
| 64 | (delete-selection-mode (or value 0))) | 64 | (delete-selection-mode (or value 0))) |
| 65 | :initialize 'custom-initialize-default | ||
| 65 | :type 'boolean | 66 | :type 'boolean |
| 66 | :group 'editing-basics | 67 | :group 'editing-basics |
| 67 | :require 'delsel) | 68 | :require 'delsel) |
| @@ -130,4 +131,10 @@ then it takes a second C-g to abort the minibuffer." | |||
| 130 | 131 | ||
| 131 | (provide 'delsel) | 132 | (provide 'delsel) |
| 132 | 133 | ||
| 134 | ;; This is the standard way mechanism to put the mode into effect | ||
| 135 | ;; if delete-selection-mode has already been set to t | ||
| 136 | ;; when this file is loaded. | ||
| 137 | (when delete-selection-mode | ||
| 138 | (delete-selection-mode t)) | ||
| 139 | |||
| 133 | ;;; delsel.el ends here | 140 | ;;; delsel.el ends here |