Mercurial > emacs
changeset 43791:2e05b93ba14a
(sc-select-attribution): Accept whatever value we get in CHOICE; there
is no value meaning "try again".
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 08 Mar 2002 21:08:19 +0000 |
| parents | 72c5819d7675 |
| children | 8bb81d691271 |
| files | lisp/mail/supercite.el |
| diffstat | 1 files changed, 14 insertions(+), 12 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mail/supercite.el Fri Mar 08 19:31:38 2002 +0000 +++ b/lisp/mail/supercite.el Fri Mar 08 21:08:19 2002 +0000 @@ -1322,18 +1322,20 @@ (setq sc-attrib-or-cite nil) ; nil==attribution, t==citation (while (catch 'sc-reconfirm - (string= "" (setq choice - (if sc-attrib-or-cite - (sc-read-string - "Enter citation prefix: " - citation - 'sc-citation-confirmation-history) - (sc-completing-read - "Complete attribution name: " - query-alist nil nil - (cons initial 0) - 'sc-attribution-confirmation-history) - ))))) + (progn + (setq choice + (if sc-attrib-or-cite + (sc-read-string + "Enter citation prefix: " + citation + 'sc-citation-confirmation-history) + (sc-completing-read + "Complete attribution name: " + query-alist nil nil + (cons initial 0) + 'sc-attribution-confirmation-history) + )) + nil))) (if sc-attrib-or-cite ;; since the citation was chosen, we have to guess at ;; the attribution