diff options
| author | Richard M. Stallman | 1997-07-17 21:59:31 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1997-07-17 21:59:31 +0000 |
| commit | 775f2461405df9dec4842b80f32bc8564e44ee84 (patch) | |
| tree | 2573a78b603ae09b509bf7ba1d0b2ab5a548c747 | |
| parent | 1e70790f2f4826c646d5640a9f6162aa78ea682b (diff) | |
| download | emacs-775f2461405df9dec4842b80f32bc8564e44ee84.tar.gz emacs-775f2461405df9dec4842b80f32bc8564e44ee84.zip | |
(delete-selection-mode): Add custom-loads property.
| -rw-r--r-- | lisp/delsel.el | 16 |
1 files changed, 5 insertions, 11 deletions
diff --git a/lisp/delsel.el b/lisp/delsel.el index bc6bea59871..0aea9cf221a 100644 --- a/lisp/delsel.el +++ b/lisp/delsel.el | |||
| @@ -67,18 +67,12 @@ You must modify via \\[customize] for this variable to have an effect." | |||
| 67 | :type 'boolean | 67 | :type 'boolean |
| 68 | :group 'editing-basics | 68 | :group 'editing-basics |
| 69 | :require 'delsel) | 69 | :require 'delsel) |
| 70 | ;; Force loading of this file in order to customize delete-selection-mode. | ||
| 71 | (put 'delete-selection-mode 'custom-loads '(delsel)) | ||
| 70 | 72 | ||
| 71 | ;; Since the above autoloaded option contains a `:set' form, this file would | 73 | ;; This is the standard way mechanism to put the mode into effect |
| 72 | ;; get loaded from loaddefs.el. We can use the above `:initialize' keyword, | 74 | ;; if delete-selection-mode has already been set to t |
| 73 | ;; and the below `when' form, to the prevent automatic loading of this file, or | 75 | ;; when this file is loaded. |
| 74 | ;; an `:initialize' keyword of the form: | ||
| 75 | ;; | ||
| 76 | ;; :initialize (lambda (symbol value) | ||
| 77 | ;; (if value | ||
| 78 | ;; (delete-selection-mode t) | ||
| 79 | ;; (custom-initialize-default symbol nil)) | ||
| 80 | ;; | ||
| 81 | ;; We choose the former as it is the general mechanism for such toggle options. | ||
| 82 | (when delete-selection-mode | 76 | (when delete-selection-mode |
| 83 | (delete-selection-mode t)) | 77 | (delete-selection-mode t)) |
| 84 | 78 | ||