diff options
| author | Miles Bader | 2000-11-25 02:14:53 +0000 |
|---|---|---|
| committer | Miles Bader | 2000-11-25 02:14:53 +0000 |
| commit | d8f02b9137aace7f2f3bf541ae0df8877c9d4102 (patch) | |
| tree | 0877b80f850a7f5c846045f89c6cb172eda7656f | |
| parent | bcfbd63d881c105047c955cd18b064ac1764a7e9 (diff) | |
| download | emacs-d8f02b9137aace7f2f3bf541ae0df8877c9d4102.tar.gz emacs-d8f02b9137aace7f2f3bf541ae0df8877c9d4102.zip | |
(widget-field-value-delete): Don't try to delete overlay when it's the
`psuedo-overlay' that exists at some points.
| -rw-r--r-- | lisp/wid-edit.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/wid-edit.el b/lisp/wid-edit.el index db65fc1dfd4..37454280445 100644 --- a/lisp/wid-edit.el +++ b/lisp/wid-edit.el | |||
| @@ -1747,7 +1747,7 @@ the earlier input." | |||
| 1747 | (setq widget-field-list (delq widget widget-field-list)) | 1747 | (setq widget-field-list (delq widget widget-field-list)) |
| 1748 | ;; These are nil if the :format string doesn't contain `%v'. | 1748 | ;; These are nil if the :format string doesn't contain `%v'. |
| 1749 | (let ((overlay (widget-get widget :field-overlay))) | 1749 | (let ((overlay (widget-get widget :field-overlay))) |
| 1750 | (when overlay | 1750 | (when (overlayp overlay) |
| 1751 | (delete-overlay overlay)))) | 1751 | (delete-overlay overlay)))) |
| 1752 | 1752 | ||
| 1753 | (defun widget-field-value-get (widget) | 1753 | (defun widget-field-value-get (widget) |