diff options
| author | Richard M. Stallman <[email protected]> | 1998-07-02 22:29:15 +0000 |
|---|---|---|
| committer | Richard M. Stallman <[email protected]> | 1998-07-02 22:29:15 +0000 |
| commit | 65f64d008a5c401fed4934a2318dfacb7f164d61 (patch) | |
| tree | 588613ad4a61f448b9749d0c51c8e1e6c1081b05 | |
| parent | 33b598d4843e45da7dfc33322189a1b033f2378c (diff) | |
(customize-changed-options): Clean up previous change.
| -rw-r--r-- | lisp/cus-edit.el | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el index c975fd9525..0efcb98c02 100644 --- a/lisp/cus-edit.el +++ b/lisp/cus-edit.el @@ -907,15 +907,15 @@ option." (cons (list symbol 'custom-variable) found)))))) (if (not found) (error "No user options have changed defaults in recent Emacs versions") - (put 'custom-versions-load-alist 'custom-loads - ;; Get all the files that correspond to element from the - ;; VERSIONS list. This could use some simplification. - (let ((flist nil)) - (while versions - (push (copy-sequence - (cdr (assoc (car versions) custom-versions-load-alist))) - flist) - (setq versions (cdr versions))) + (let ((flist nil)) + (while versions + (push (copy-sequence + (cdr (assoc (car versions) custom-versions-load-alist))) + flist) + (setq versions (cdr versions))) + (put 'custom-versions-load-alist 'custom-loads + ;; Get all the files that correspond to element from the + ;; VERSIONS list. This could use some simplification. (apply 'nconc flist))) ;; Because we set all the files needed to be loaded as a ;; `custom-loads' property to `custom-versions-load-alist' this |