From 15171a06d35ecbe33a98aa48751e47a717684bcd Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Tue, 7 Apr 1998 18:22:28 +0000 Subject: [PATCH] (add-to-list): Always return updated value of LIST-VAR. --- lisp/subr.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/lisp/subr.el b/lisp/subr.el index b3ad3560eeb..653ab63e015 100644 --- a/lisp/subr.el +++ b/lisp/subr.el @@ -664,8 +664,9 @@ until a certain package is loaded, you should put the call to `add-to-list' into a hook function that will be run only after loading the package. `eval-after-load' provides one way to do this. In some cases other hooks, such as major mode hooks, can do the job." - (or (member element (symbol-value list-var)) - (set list-var (cons element (symbol-value list-var))))) + (if (member element (symbol-value list-var)) + (symbol-value list-var) + (set list-var (cons element (symbol-value list-var))))) ;;;; Specifying things to do after certain files are loaded. -- 2.39.2