mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-24 07:20:37 +00:00
Code Issues Releases Activity

(sc-select-attribution): Accept whatever value we get in CHOICE; there

Browse Source 
is no value meaning "try again".
This commit is contained in:
Richard M. Stallman 2002-03-08 21:08:19 +00:00
parent 6b997f0825
commit f67acc8dfb
1 changed files with 14 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
lisp/mail/supercite.el
View File

@ -1322,18 +1322,20 @@ to the auto-selected attribution string."
(setq sc-attrib-or-cite nil) ; nil==attribution, t==citation (setq sc-attrib-or-cite nil) ; nil==attribution, t==citation
(while (while
(catch 'sc-reconfirm (catch 'sc-reconfirm
(string= "" (setq choice (progn
(if sc-attrib-or-cite (setq choice
(sc-read-string (if sc-attrib-or-cite
"Enter citation prefix: " (sc-read-string
citation "Enter citation prefix: "
'sc-citation-confirmation-history) citation
(sc-completing-read 'sc-citation-confirmation-history)
"Complete attribution name: " (sc-completing-read
query-alist nil nil "Complete attribution name: "
(cons initial 0) query-alist nil nil
'sc-attribution-confirmation-history) (cons initial 0)
))))) 'sc-attribution-confirmation-history)
))
nil)))
(if sc-attrib-or-cite (if sc-attrib-or-cite
;; since the citation was chosen, we have to guess at ;; since the citation was chosen, we have to guess at
;; the attribution ;; the attribution