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

6
lisp/mail/supercite.el
View File

@ -1322,7 +1322,8 @@ 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
(setq choice
(if sc-attrib-or-cite (if sc-attrib-or-cite
(sc-read-string (sc-read-string
"Enter citation prefix: " "Enter citation prefix: "
@ -1333,7 +1334,8 @@ to the auto-selected attribution string."
query-alist nil nil query-alist nil nil
(cons initial 0) (cons initial 0)
'sc-attribution-confirmation-history) '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