(widget-choice-value-create): Use `equal' instead of `eq'.
authorRichard M. Stallman <rms@gnu.org>
Mon, 15 Feb 1999 12:07:01 +0000 (12:07 +0000)
committerRichard M. Stallman <rms@gnu.org>
Mon, 15 Feb 1999 12:07:01 +0000 (12:07 +0000)
lisp/wid-edit.el

index d7cf8cd..43e756b 100644 (file)
@@ -1947,7 +1947,7 @@ If END is omitted, it defaults to the length of LIST."
        (explicit (widget-get widget :explicit-choice))
        (explicit-value (widget-get widget :explicit-choice-value))
        current)
-    (if (and explicit (eq value explicit-value))
+    (if (and explicit (equal value explicit-value))
        (progn
          ;; If the user specified the choice for this value,
          ;; respect that choice as long as the value is the same.