From f9c625632572033f75a9e76e8aa2ce47c6122ba9 Mon Sep 17 00:00:00 2001 From: "Kim F. Storm" Date: Sun, 22 Oct 2006 22:37:51 +0000 Subject: (add-to-list): Fix last change--optimize for no compare-fn. --- lisp/subr.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/lisp/subr.el b/lisp/subr.el index 957d098703f..43ecfd56108 100644 --- a/lisp/subr.el +++ b/lisp/subr.el @@ -1101,18 +1101,18 @@ into a hook function that will be run only after loading the package. `eval-after-load' provides one way to do this. In some cases other hooks, such as major mode hooks, can do the job." (if (cond + ((null compare-fn) + (member element (symbol-value list-var))) ((eq compare-fn 'eq) (memq element (symbol-value list-var))) ((eq compare-fn 'eql) (memql element (symbol-value list-var))) - (compare-fn + (t (let (present) (dolist (elt (symbol-value list-var)) (if (funcall compare-fn element elt) (setq present t))) - present)) - (t - (member element (symbol-value list-var)))) + present))) (symbol-value list-var) (set list-var (if append -- cgit v1.2.1