diff options
| author | Miles Bader <miles@gnu.org> | 2006-11-07 23:22:48 +0000 |
|---|---|---|
| committer | Miles Bader <miles@gnu.org> | 2006-11-07 23:22:48 +0000 |
| commit | dbc3b08c405a7b1c0ddb0fb0c98164b355802af5 (patch) | |
| tree | 00c6f28244409d14bec11e221fb3c03daef63fc6 /lisp/subr.el | |
| parent | bbb6e8f2b6037dc1ee4ddd6cb63a1a6ddb04a591 (diff) | |
| parent | 86cb14475e9e76f0b3323d2e7110a4a2bd310cdb (diff) | |
| download | emacs-dbc3b08c405a7b1c0ddb0fb0c98164b355802af5.tar.gz emacs-dbc3b08c405a7b1c0ddb0fb0c98164b355802af5.tar.bz2 emacs-dbc3b08c405a7b1c0ddb0fb0c98164b355802af5.zip | |
Merge from emacs--devo--0
Patches applied:
* emacs--devo--0 (patch 490-504)
- Update from CVS
- Merge from gnus--rel--5.10
* gnus--rel--5.10 (patch 161-163)
- Update from CVS
- Merge from emacs--devo--0
Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-130
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 17f401ba14b..28efcdf4c15 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 |