From e34b0c60d5f5ec92dc53319230d77c953ac66282 Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Tue, 10 Jun 2008 21:24:18 +0000 Subject: [PATCH] (menu-bar-options-save): Minor tweak to last change. --- lisp/menu-bar.el | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el index cab0fc32e95..710022b9191 100644 --- a/lisp/menu-bar.el +++ b/lisp/menu-bar.el @@ -676,8 +676,10 @@ by \"Save Options\" in Custom buffers.") (and (get elt 'customized-value) (customize-mark-to-save elt) (setq need-save t))) - (and (get 'default 'customized-face) - (put 'default 'saved-face (get 'default 'customized-face))) + (when (get 'default 'customized-face) + (put 'default 'saved-face (get 'default 'customized-face)) + (put 'default 'customized-face nil) + (setq need-save t)) ;; Save if we changed anything. (when need-save (custom-save-all)))) -- 2.39.2