procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(widget-before-change): Signal text-read-only rather

Browse source 
than an ordinary error.
This commit is contained in:
Karl Heuer 1999-03-30 18:09:57 +00:00
parent 00ac134b3d
commit 808bcfd2c7
1 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/wid-edit.el
View file

@ -1243,10 +1243,12 @@ Unlike (get-char-property POS 'field) this, works with empty fields too."
(to-field (widget-field-find to)))
(cond ((not (eq from-field to-field))
(add-hook 'post-command-hook 'widget-add-change nil t)
(error "Change should be restricted to a single field"))
(signal 'text-read-only
'("Change should be restricted to a single field")))
((null from-field)
(add-hook 'post-command-hook 'widget-add-change nil t)
(error "Attempt to change text outside editable field"))
(signal 'text-read-only
'("Attempt to change text outside editable field")))
(widget-field-use-before-change
(condition-case nil
(widget-apply from-field :notify from-field)