diff options
| author | Richard M. Stallman | 1998-07-02 22:29:15 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1998-07-02 22:29:15 +0000 |
| commit | 65f64d008a5c401fed4934a2318dfacb7f164d61 (patch) | |
| tree | 588613ad4a61f448b9749d0c51c8e1e6c1081b05 | |
| parent | 33b598d4843e45da7dfc33322189a1b033f2378c (diff) | |
| download | emacs-65f64d008a5c401fed4934a2318dfacb7f164d61.tar.gz emacs-65f64d008a5c401fed4934a2318dfacb7f164d61.zip | |
(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 c975fd9525b..0efcb98c024 100644 --- a/lisp/cus-edit.el +++ b/lisp/cus-edit.el | |||
| @@ -907,15 +907,15 @@ option." | |||
| 907 | (cons (list symbol 'custom-variable) found)))))) | 907 | (cons (list symbol 'custom-variable) found)))))) |
| 908 | (if (not found) | 908 | (if (not found) |
| 909 | (error "No user options have changed defaults in recent Emacs versions") | 909 | (error "No user options have changed defaults in recent Emacs versions") |
| 910 | (put 'custom-versions-load-alist 'custom-loads | 910 | (let ((flist nil)) |
| 911 | ;; Get all the files that correspond to element from the | 911 | (while versions |
| 912 | ;; VERSIONS list. This could use some simplification. | 912 | (push (copy-sequence |
| 913 | (let ((flist nil)) | 913 | (cdr (assoc (car versions) custom-versions-load-alist))) |
| 914 | (while versions | 914 | flist) |
| 915 | (push (copy-sequence | 915 | (setq versions (cdr versions))) |
| 916 | (cdr (assoc (car versions) custom-versions-load-alist))) | 916 | (put 'custom-versions-load-alist 'custom-loads |
| 917 | flist) | 917 | ;; Get all the files that correspond to element from the |
| 918 | (setq versions (cdr versions))) | 918 | ;; VERSIONS list. This could use some simplification. |
| 919 | (apply 'nconc flist))) | 919 | (apply 'nconc flist))) |
| 920 | ;; Because we set all the files needed to be loaded as a | 920 | ;; Because we set all the files needed to be loaded as a |
| 921 | ;; `custom-loads' property to `custom-versions-load-alist' this | 921 | ;; `custom-loads' property to `custom-versions-load-alist' this |