# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1135983417 0
# Node ID 0ae04624a6423b32875aad0459e45cde3cb4e27f
# Parent  e66287a5de4d5b640f82720aac1ed5d0e76666eb
(custom-save-loaded-themes): Function deleted.
(custom-save-all): Don't call custom-save-loaded-themes.

diff -r e66287a5de4d -r 0ae04624a642 lisp/cus-edit.el
--- a/lisp/cus-edit.el	Fri Dec 30 22:44:36 2005 +0000
+++ b/lisp/cus-edit.el	Fri Dec 30 22:56:57 2005 +0000
@@ -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.