+2006-10-30 David Kastrup <dak@gnu.org>
+
+ * subr.el (add-to-list): Don't continue checking if a match has
+ been found.
+
2006-10-30 Chong Yidong <cyd@stupidchicken.com>
* tutorial.el: Move defvars to avoid bytecomp warnings.
((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