From a8d6ee3c532d9bdc5925b49b0e589059393c3ca4 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 30 Dec 2005 22:57:07 +0000 Subject: [PATCH] (custom-save-loaded-themes): Function deleted. (custom-save-all): Don't call custom-save-loaded-themes. --- lisp/ChangeLog | 3 +-- lisp/cus-edit.el | 14 -------------- 2 files changed, 1 insertion(+), 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 - * 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 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. -- 2.39.2