From 2d1dd54d7daeb318aa6a50d7fc93d436c666fde0 Mon Sep 17 00:00:00 2001 From: David Kastrup Date: Mon, 30 Oct 2006 22:49:04 +0000 Subject: [PATCH] (add-to-list): Don't continue checking if a match has been found. --- lisp/ChangeLog | 5 +++++ lisp/subr.el | 10 +++++----- 2 files changed, 10 insertions(+), 5 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 9be9e30590b..c1902d0a1a4 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2006-10-30 David Kastrup + + * subr.el (add-to-list): Don't continue checking if a match has + been found. + 2006-10-30 Chong Yidong * tutorial.el: Move defvars to avoid bytecomp warnings. 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 -- 2.39.2