(add-to-list): Always return updated value of LIST-VAR.

diff --git a/lisp/subr.el b/lisp/subr.el
index b3ad3560eeb8210f9f40922c917744088b09d8f9..653ab63e01589ce647ea6f2984dfcc582b6a2e26 100644 (file)
--- 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)))))
 \f
 ;;;; Specifying things to do after certain files are loaded.