Re: multiple redefinitions of #'values

Ar an naoú lá déag de mí Méan Fómhair, scríobh Mike Kupfer: No. Depending on the order of The (require 'mh-e) may load a compiled version of the file, in which context the (eval-when-compile ...) expression would not be executed. This expression in mh-e.el should work, though: (eval-and-compile (when (and (featurep 'xemacs) (eq 'list (symbol-function 'values)) (cl-compiling-file)) (define-compiler-macro values (&rest args) `(list ,＠args)) (define-compiler-macro values-list (list) list))) I haven’t tested it. One way to verify whether it did work would be to make sure both these expressions give nil, once you’ve loaded the compiled mh-index.elc and mh-seq.elc: (find 'values (compiled-function-constants (symbol-function 'mh-thread-prune-subject))) (find 'values (compiled-function-constants (symbol-function 'mh-index-evaluate)))) Best, Aidan -- “Apart from the nine-banded armadillo, man is the only natural host of Mycobacterium leprae, although it can be grown in the footpads of mice.” -- Kumar & Clark, Clinical Medicine, summarising improbable leprosy research _______________________________________________ XEmacs-Beta mailing list XEmacs-Beta(a)xemacs.org http://calypso.tux.org/mailman/listinfo/xemacs-beta