mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-13 16:38:14 +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

11
lisp/mail/supercite.el
View File

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