diff options
| author | Kim F. Storm <storm@cua.dk> | 2006-10-22 22:37:51 +0000 |
|---|---|---|
| committer | Kim F. Storm <storm@cua.dk> | 2006-10-22 22:37:51 +0000 |
| commit | 78bdfbf32065948bb4474cb24228fc0fa934f656 (patch) | |
| tree | f6ee544616d8be14600a1bdeac99e58e33682b4b | |
| parent | fb1a5d8a82d2a3bba1f66c1825e85540d625412d (diff) | |
| download | emacs-78bdfbf32065948bb4474cb24228fc0fa934f656.tar.gz | |
(add-to-list): Fix last change--optimize for no compare-fn.
| -rw-r--r-- | lisp/subr.el | 8 |
1 files 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 |