Mercurial > emacs
changeset 67941:0ae04624a642
(custom-save-loaded-themes): Function deleted.
(custom-save-all): Don't call custom-save-loaded-themes.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 30 Dec 2005 22:56:57 +0000 |
| parents | e66287a5de4d |
| children | 8170e87ad98f |
| files | lisp/cus-edit.el |
| diffstat | 1 files changed, 0 insertions(+), 14 deletions(-) [+] |
line wrap: on
line diff
--- 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.