diff options
| author | David Kastrup <dak@gnu.org> | 2006-10-30 22:49:04 +0000 |
|---|---|---|
| committer | David Kastrup <dak@gnu.org> | 2006-10-30 22:49:04 +0000 |
| commit | 2d1dd54d7daeb318aa6a50d7fc93d436c666fde0 (patch) | |
| tree | b99257f5c094b998fc14e56c1405e4d65cd7e483 /lisp/subr.el | |
| parent | 5fb9c53c678be2bbfdf038eae7f80167014c8e87 (diff) | |
| download | emacs-2d1dd54d7daeb318aa6a50d7fc93d436c666fde0.tar.gz | |
(add-to-list): Don't continue checking if a match has
been found.
Diffstat (limited to 'lisp/subr.el')
| -rw-r--r-- | lisp/subr.el | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/lisp/subr.el b/lisp/subr.el index 43ecfd56108..cf09264e4b1 100644 --- a/lisp/subr.el +++ b/lisp/subr.el @@ -1108,11 +1108,11 @@ other hooks, such as major mode hooks, can do the job." ((eq compare-fn 'eql) (memql element (symbol-value list-var))) (t - (let (present) - (dolist (elt (symbol-value list-var)) - (if (funcall compare-fn element elt) - (setq present t))) - present))) + (let ((lst (symbol-value list-var))) + (while (and lst + (not (funcall compare-fn element (car lst)))) + (setq lst (cdr lst))) + lst))) (symbol-value list-var) (set list-var (if append |