Mercurial > emacs
comparison lisp/mail/supercite.el @ 24613:83a507b08fe1
(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 | 89317671e948 |
comparison
equal
deleted
inserted
replaced
24612:8f10db1e779a | 24613:83a507b08fe1 |
---|---|
417 selected by `sc-select-attribution'. If it is a list, it is `eval'd | 417 selected by `sc-select-attribution'. If it is a list, it is `eval'd |
418 and the return value must be a string, which is used as the selected | 418 and the return value must be a string, which is used as the selected |
419 attribution. Note that the variable `sc-preferred-attribution-list' | 419 attribution. Note that the variable `sc-preferred-attribution-list' |
420 must contain an element of the string \"sc-consult\" for this variable | 420 must contain an element of the string \"sc-consult\" for this variable |
421 to be consulted during attribution selection." | 421 to be consulted during attribution selection." |
422 :type '(repeat (list string (repeat (cons regexp | 422 :type '(repeat (list string |
423 (choice (repeat (repeat sexp)) | 423 (repeat (cons regexp |
424 string))))) | 424 (choice (sexp :tag "List to eval") |
425 string))))) | |
425 :group 'supercite-attr) | 426 :group 'supercite-attr) |
426 | 427 |
427 (defcustom sc-attribs-preselect-hook nil | 428 (defcustom sc-attribs-preselect-hook nil |
428 "*Hook to run before selecting an attribution." | 429 "*Hook to run before selecting an attribution." |
429 :type 'hook | 430 :type 'hook |
764 (let* ((ml-elem (car mlist)) | 765 (let* ((ml-elem (car mlist)) |
765 (regexp (car ml-elem)) | 766 (regexp (car ml-elem)) |
766 (thing (cdr ml-elem))) | 767 (thing (cdr ml-elem))) |
767 (if (string-match regexp infoval) | 768 (if (string-match regexp infoval) |
768 ;; we found a match, time to return | 769 ;; we found a match, time to return |
769 (setq rtnvalue (if (consp thing) | 770 (setq rtnvalue thing |
770 (car thing) | |
771 thing) | |
772 mlist nil | 771 mlist nil |
773 alist nil) | 772 alist nil) |
774 ;; else we didn't find a match | 773 ;; else we didn't find a match |
775 (setq mlist (cdr mlist)) | 774 (setq mlist (cdr mlist)) |
776 ))) ;end of mlist loop | 775 ))) ;end of mlist loop |