[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/subr.el,v
From: |
David Kastrup |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/subr.el,v |
Date: |
Mon, 30 Oct 2006 22:49:05 +0000 |
CVSROOT: /sources/emacs
Module name: emacs
Changes by: David Kastrup <dak> 06/10/30 22:49:04
Index: subr.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/subr.el,v
retrieving revision 1.532
retrieving revision 1.533
diff -u -b -r1.532 -r1.533
--- subr.el 22 Oct 2006 22:37:51 -0000 1.532
+++ subr.el 30 Oct 2006 22:49:04 -0000 1.533
@@ -1108,11 +1108,11 @@
((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
- [Emacs-diffs] Changes to emacs/lisp/subr.el,v, Eli Zaretskii, 2006/10/13
- [Emacs-diffs] Changes to emacs/lisp/subr.el,v, Richard M. Stallman, 2006/10/18
- [Emacs-diffs] Changes to emacs/lisp/subr.el,v, Kim F. Storm, 2006/10/22
- [Emacs-diffs] Changes to emacs/lisp/subr.el,v, Kim F. Storm, 2006/10/22
- [Emacs-diffs] Changes to emacs/lisp/subr.el,v,
David Kastrup <=