From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 30 Dec 2005 22:57:07 +0000 (+0000)
Subject: (custom-save-loaded-themes): Function deleted.
X-Git-Tag: emacs-pretest-22.0.90~4959
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a8d6ee3c532d9bdc5925b49b0e589059393c3ca4;p=emacs.git

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