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

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

2 files changed, 1 insertions, 16 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 3a3bb4d5352..aaadc554715 100644
--- 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 5686d473231..ed0a478321e 100644
--- 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"))))
 
 ;;; The Customize Menu.