mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +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
(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