summaryrefslogtreecommitdiff
path: root/lisp/wid-edit.el
diff options
context:
space:
mode:
authorMiles Bader <miles@gnu.org>2000-11-25 02:14:53 +0000
committerMiles Bader <miles@gnu.org>2000-11-25 02:14:53 +0000
commitd8f02b9137aace7f2f3bf541ae0df8877c9d4102 (patch)
tree0877b80f850a7f5c846045f89c6cb172eda7656f /lisp/wid-edit.el
parentbcfbd63d881c105047c955cd18b064ac1764a7e9 (diff)
downloademacs-d8f02b9137aace7f2f3bf541ae0df8877c9d4102.tar.gz
(widget-field-value-delete): Don't try to delete overlay when it's the
`psuedo-overlay' that exists at some points.
Diffstat (limited to 'lisp/wid-edit.el')
-rw-r--r--lisp/wid-edit.el2
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."
(setq widget-field-list (delq widget widget-field-list))
;; These are nil if the :format string doesn't contain `%v'.
(let ((overlay (widget-get widget :field-overlay)))
- (when overlay
+ (when (overlayp overlay)
(delete-overlay overlay))))
(defun widget-field-value-get (widget)