mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-27 10:54:40 +00:00
Code Issues Releases Activity

(sc-scan-info-alist): Revert last change.

Browse Source 
(sc-attrib-selection-list): Fix :type here instead.
This commit is contained in:
Dave Love 1999-04-12 08:46:09 +00:00
parent 6923dac346
commit 98237e7c44
1 changed files with 5 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lisp/mail/supercite.el
View File

@ -419,8 +419,9 @@ and the return value must be a string, which is used as the selected
attribution. Note that the variable `sc-preferred-attribution-list'
must contain an element of the string \"sc-consult\" for this variable
to be consulted during attribution selection."
:type '(repeat (list string (repeat (cons regexp
(choice (repeat (repeat sexp))
:type '(repeat (list string
(repeat (cons regexp
(choice (sexp :tag "List to eval")
string)))))
:group 'supercite-attr)
@ -766,9 +767,7 @@ the list should be unique."
(thing (cdr ml-elem)))
(if (string-match regexp infoval)
;; we found a match, time to return
(setq rtnvalue (if (consp thing)
(car thing)
thing)
(setq rtnvalue thing
mlist nil
alist nil)
;; else we didn't find a match