Mercurial > emacs

changeset 33872:d65847dea2c0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(widget-field-value-delete): Don't try to delete overlay when it's the `psuedo-overlay' that exists at some points.
author Miles Bader <miles@gnu.org>
date Sat, 25 Nov 2000 02:14:53 +0000
parents 69c9cd380fd2
children 0c5bc441726c
files lisp/wid-edit.el
diffstat 1 files changed, 1 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/wid-edit.el	Sat Nov 25 02:08:59 2000 +0000
+++ b/lisp/wid-edit.el	Sat Nov 25 02:14:53 2000 +0000
@@ -1747,7 +1747,7 @@
   (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)