[Emacs-diffs] Changes to emacs/lisp/cus-edit.el

[Richard M. Stallman]

Index: emacs/lisp/cus-edit.el
diff -u emacs/lisp/cus-edit.el:1.261 emacs/lisp/cus-edit.el:1.262
--- emacs/lisp/cus-edit.el:1.261        Fri Dec 30 22:43:57 2005
+++ emacs/lisp/cus-edit.el      Fri Dec 30 22:56:57 2005
@@ -4018,7 +4018,6 @@
         (old-buffer (find-buffer-visiting filename)))
     (with-current-buffer (or old-buffer (find-file-noselect filename))
       (let ((inhibit-read-only t))
-       (custom-save-loaded-themes)
        (custom-save-variables)
        (custom-save-faces))
       (let ((file-precious-flag t))
@@ -4240,19 +4239,6 @@
       (princ ")")
       (unless (looking-at "\n")
        (princ "\n")))))
-
-(defun custom-save-loaded-themes ()
-  "Update the `custom-load-themes' call in the buffer."
-  (custom-save-delete 'custom-load-themes)
-  (let ((themes (reverse (get 'user 'theme-loads-themes)))
-       (standard-output (current-buffer)))
-    (when themes
-      (unless (bolp) (princ "\n"))
-      (princ "(custom-load-themes")
-      (mapc (lambda (theme)
-             (princ "\n   '")
-             (prin1 theme)) themes)
-      (princ " )\n"))))
 
 ;;; The Customize Menu.