From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 2 Jul 1998 22:29:15 +0000 (+0000)
Subject: (customize-changed-options): Clean up previous change.
X-Git-Tag: emacs-20.3~412
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=65f64d008a5c401fed4934a2318dfacb7f164d61;p=emacs.git

(customize-changed-options): Clean up previous change.
---

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."
 			     (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