Mercurial > emacs
changeset 22667:8e8001567771
(customize-changed-options): Clean up previous change.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 02 Jul 1998 22:29:15 +0000 |
| parents | ce4bb28a20e4 |
| children | ad4d9aae0a33 |
| files | lisp/cus-edit.el |
| diffstat | 1 files changed, 9 insertions(+), 9 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/cus-edit.el Thu Jul 02 22:27:24 1998 +0000 +++ b/lisp/cus-edit.el Thu Jul 02 22:29:15 1998 +0000 @@ -907,15 +907,15 @@ (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