Mercurial > emacs

changeset 24613:83a507b08fe1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(sc-scan-info-alist): Revert last change. (sc-attrib-selection-list): Fix :type here instead.
author Dave Love <fx@gnu.org>
date Mon, 12 Apr 1999 08:46:09 +0000
parents 8f10db1e779a
children ea0ab5644dca
files lisp/mail/supercite.el
diffstat 1 files changed, 5 insertions(+), 6 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/mail/supercite.el	Mon Apr 12 08:42:35 1999 +0000
+++ b/lisp/mail/supercite.el	Mon Apr 12 08:46:09 1999 +0000
@@ -419,9 +419,10 @@
 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))
-						    string)))))
+  :type '(repeat (list string
+		       (repeat (cons regexp
+				     (choice (sexp :tag "List to eval")
+					     string)))))
   :group 'supercite-attr)
 
 (defcustom sc-attribs-preselect-hook nil
@@ -766,9 +767,7 @@
 		 (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