aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorJuanma Barranquero2008-01-24 11:13:45 +0000
committerJuanma Barranquero2008-01-24 11:13:45 +0000
commit8c8e195273c8aa03aa2b9d953e1ab28a73d33c53 (patch)
tree33b6d2cd2b61bdfb897e83ceb5457db551c43c7a
parentb240275b833414e62c75c2873ba2552fd20518a3 (diff)
downloademacs-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/ChangeLog6
-rw-r--r--lisp/delsel.el2
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 @@
12008-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
12008-01-24 Martin Rudalics <rudalics@gmx.at> 72008-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