# HG changeset patch
# User Miles Bader <miles@gnu.org>
# Date 975118493 0
# Node ID d65847dea2c06ddf5fbe94b5ca53e7faa9daa894
# Parent  69c9cd380fd23e8377dce04be9ea7062812e0adf
(widget-field-value-delete): Don't try to delete overlay when it's the
`psuedo-overlay' that exists at some points.

diff -r 69c9cd380fd2 -r d65847dea2c0 lisp/wid-edit.el
--- 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)