diff options
| author | Stefan Monnier | 2000-10-27 00:54:52 +0000 |
|---|---|---|
| committer | Stefan Monnier | 2000-10-27 00:54:52 +0000 |
| commit | 093849f9ca82296eccfcb05d8c6f374bb59ba386 (patch) | |
| tree | e187db4fd2578d196632c278c4be3fa0f0bf33c3 | |
| parent | 0b95284b9165fa19115e5a8a50e2446e955fd833 (diff) | |
| download | emacs-093849f9ca82296eccfcb05d8c6f374bb59ba386.tar.gz emacs-093849f9ca82296eccfcb05d8c6f374bb59ba386.zip | |
(widget-add-change): Don't bother with make-local-hook.
| -rw-r--r-- | lisp/wid-edit.el | 3 |
1 files changed, 0 insertions, 3 deletions
diff --git a/lisp/wid-edit.el b/lisp/wid-edit.el index bfed43794a6..deed46ddcda 100644 --- a/lisp/wid-edit.el +++ b/lisp/wid-edit.el | |||
| @@ -1122,11 +1122,8 @@ Unlike (get-char-property POS 'field) this, works with empty fields too." | |||
| 1122 | (widget-apply from-field :notify from-field)))))) | 1122 | (widget-apply from-field :notify from-field)))))) |
| 1123 | 1123 | ||
| 1124 | (defun widget-add-change () | 1124 | (defun widget-add-change () |
| 1125 | (make-local-hook 'post-command-hook) | ||
| 1126 | (remove-hook 'post-command-hook 'widget-add-change t) | 1125 | (remove-hook 'post-command-hook 'widget-add-change t) |
| 1127 | (make-local-hook 'before-change-functions) | ||
| 1128 | (add-hook 'before-change-functions 'widget-before-change nil t) | 1126 | (add-hook 'before-change-functions 'widget-before-change nil t) |
| 1129 | (make-local-hook 'after-change-functions) | ||
| 1130 | (add-hook 'after-change-functions 'widget-after-change nil t)) | 1127 | (add-hook 'after-change-functions 'widget-after-change nil t)) |
| 1131 | 1128 | ||
| 1132 | (defun widget-after-change (from to old) | 1129 | (defun widget-after-change (from to old) |