(custom-save-loaded-themes): Function deleted.

(custom-save-all): Don't call custom-save-loaded-themes.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 3a3bb4d53526e6de8dddce71eaa64fc2d850ff61..aaadc554715c82bc76884b0eb8b316d32d4d5d3e 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,7 +1,6 @@
 2005-12-30  Richard M. Stallman  <rms@gnu.org>
 
-       * cus-edit.el (custom-save-loaded-themes): Call custom-save-delete.
-       (custom-save-all): Call custom-save-loaded-themes.
+       * cus-edit.el (custom-save-loaded-themes): Function deleted.
        (custom-save-variables): Don't delete or add custom-load-themes call.
 
 2005-12-30  Stefan Monnier  <monnier@iro.umontreal.ca>

diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el
index 5686d473231241e21797c8f44a869ac0446516bc..ed0a478321eca17ef0a372a1d202085da819a425 100644 (file)
--- a/lisp/cus-edit.el
+++ b/lisp/cus-edit.el
@@ -4018,7 +4018,6 @@ if only the first line of the docstring is shown."))
         (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 @@ This function does not save the buffer."
       (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"))))
 \f
 ;;; The Customize Menu.