Raymond Toy <toy(a)rtp.ericsson.se&gt; wrote: Yes, but Ray, you should realize that breaking supercite is not the good way to improve customize ;-) How about just this instead ? Does that suit your needs (both of you) ? Index: comm/supercite/supercite.el =================================================================== RCS file: /usr/CVSroot/XEmacs/xemacs-packages/comm/supercite/supercite.el,v retrieving revision 1.8 diff -u -w -r1.8 supercite.el --- supercite.el 1999/12/02 08:35:18 1.8 +++ supercite.el 2000/08/04 08:16:00 ＠＠ -454,9 +454,13 ＠＠ 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 (group (string :tag "Infokey") + (repeat :format "\n%v%i\n" + (cons :format "\n%v" + (regexp :tag " Regexp") + (choice :tag "Attribution" + :format "%{%t%}: %[choice%] %v" + sexp string))))) :group 'supercite-attr) (defcustom sc-attribs-preselect-hook nil ＠＠ -789,9 +793,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 -- / / _ _ Didier Verna http://www.inf.enst.fr/~verna/ - / / - / / /_/ / EPITA / LRDE mailto:didier＠lrde.epita.fr /_/ / /_/ / /__ / 14-16 rue Voltaire Tel. +33 (1) 44 08 01 77 94276 Kremlin-Bicêtre cedex Fax. +33 (1) 44 08 01 99