diff options
| author | Karl Heuer <[email protected]> | 1998-04-07 18:22:28 +0000 |
|---|---|---|
| committer | Karl Heuer <[email protected]> | 1998-04-07 18:22:28 +0000 |
| commit | 15171a06d35ecbe33a98aa48751e47a717684bcd (patch) | |
| tree | e757678d3abdb95640d75e122a65906434afc050 /lisp | |
| parent | 912ec20a41a265619958a4608371d53b99665ecb (diff) | |
(add-to-list): Always return updated value of LIST-VAR.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/subr.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/subr.el b/lisp/subr.el index b3ad3560ee..653ab63e01 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. |