diff options
| author | Juanma Barranquero | 2008-01-24 11:13:45 +0000 |
|---|---|---|
| committer | Juanma Barranquero | 2008-01-24 11:13:45 +0000 |
| commit | 8c8e195273c8aa03aa2b9d953e1ab28a73d33c53 (patch) | |
| tree | 33b6d2cd2b61bdfb897e83ceb5457db551c43c7a | |
| parent | b240275b833414e62c75c2873ba2552fd20518a3 (diff) | |
| download | emacs-8c8e195273c8aa03aa2b9d953e1ab28a73d33c53.tar.gz emacs-8c8e195273c8aa03aa2b9d953e1ab28a73d33c53.zip | |
(delsel-unload-function): Don't use `remprop'; it is not autoloaded,
and we wouldn't want to load CL just to unload delsel.el anyway.
Suggested by Martin Rudalics <rudalics@gmx.at>.
| -rw-r--r-- | lisp/ChangeLog | 6 | ||||
| -rw-r--r-- | lisp/delsel.el | 2 |
2 files changed, 7 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index ca1387f62c0..a80f7ef4f41 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,3 +1,9 @@ | |||
| 1 | 2008-01-24 Juanma Barranquero <lekktu@gmail.com> | ||
| 2 | |||
| 3 | * delsel.el (delsel-unload-function): Don't use `remprop'; it is | ||
| 4 | not autoloaded, and we wouldn't want to load CL just to unload | ||
| 5 | delsel.el anyway. Suggested by Martin Rudalics <rudalics@gmx.at>. | ||
| 6 | |||
| 1 | 2008-01-24 Martin Rudalics <rudalics@gmx.at> | 7 | 2008-01-24 Martin Rudalics <rudalics@gmx.at> |
| 2 | 8 | ||
| 3 | * delsel.el (delete-selection-pre-hook): Avoid clearing out | 9 | * delsel.el (delete-selection-pre-hook): Avoid clearing out |
diff --git a/lisp/delsel.el b/lisp/delsel.el index 990ca91ace2..3f9a0c7b32a 100644 --- a/lisp/delsel.el +++ b/lisp/delsel.el | |||
| @@ -173,7 +173,7 @@ then it takes a second \\[keyboard-quit] to abort the minibuffer." | |||
| 173 | (dolist (sym '(self-insert-command self-insert-iso yank clipboard-yank | 173 | (dolist (sym '(self-insert-command self-insert-iso yank clipboard-yank |
| 174 | insert-register delete-backward-char backward-delete-char-untabify | 174 | insert-register delete-backward-char backward-delete-char-untabify |
| 175 | delete-char newline-and-indent newline open-line)) | 175 | delete-char newline-and-indent newline open-line)) |
| 176 | (remprop sym 'delete-selection)) | 176 | (put sym 'delete-selection nil)) |
| 177 | ;; continue standard unloading | 177 | ;; continue standard unloading |
| 178 | nil) | 178 | nil) |
| 179 | 179 | ||