Mercurial > emacs
comparison lisp/wid-edit.el @ 32935:85599a2dac71
(widget-add-change): Don't bother with make-local-hook.
author | Stefan Monnier <monnier@iro.umontreal.ca> |
---|---|
date | Fri, 27 Oct 2000 00:54:52 +0000 |
parents | 63244e8732b3 |
children | eb486d535fd8 |
comparison
equal
deleted
inserted
replaced
32934:fa11b28f7ce5 | 32935:85599a2dac71 |
---|---|
1120 '("Attempt to change text outside editable field"))) | 1120 '("Attempt to change text outside editable field"))) |
1121 (widget-field-use-before-change | 1121 (widget-field-use-before-change |
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) |
1133 "Adjust field size and text properties." | 1130 "Adjust field size and text properties." |
1134 (let ((field (widget-field-find from)) | 1131 (let ((field (widget-field-find from)) |