diff options
| author | Richard M. Stallman | 1999-02-15 12:07:01 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1999-02-15 12:07:01 +0000 |
| commit | 1468535ed1694af3a245efbbbfc330082a55c2a6 (patch) | |
| tree | eb64cc660cb33f984ae848c699ecd776ffa08b8c | |
| parent | a63063ae57cb29361ada128192d644ed450d679a (diff) | |
| download | emacs-1468535ed1694af3a245efbbbfc330082a55c2a6.tar.gz emacs-1468535ed1694af3a245efbbbfc330082a55c2a6.zip | |
(widget-choice-value-create): Use `equal' instead of `eq'.
| -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 d7cf8cd210b..43e756b977e 100644 --- a/lisp/wid-edit.el +++ b/lisp/wid-edit.el | |||
| @@ -1947,7 +1947,7 @@ If END is omitted, it defaults to the length of LIST." | |||
| 1947 | (explicit (widget-get widget :explicit-choice)) | 1947 | (explicit (widget-get widget :explicit-choice)) |
| 1948 | (explicit-value (widget-get widget :explicit-choice-value)) | 1948 | (explicit-value (widget-get widget :explicit-choice-value)) |
| 1949 | current) | 1949 | current) |
| 1950 | (if (and explicit (eq value explicit-value)) | 1950 | (if (and explicit (equal value explicit-value)) |
| 1951 | (progn | 1951 | (progn |
| 1952 | ;; If the user specified the choice for this value, | 1952 | ;; If the user specified the choice for this value, |
| 1953 | ;; respect that choice as long as the value is the same. | 1953 | ;; respect that choice as long as the value is the same. |