# HG changeset patch
# User Chong Yidong <cyd@stupidchicken.com>
# Date 1213133058 0
# Node ID 49171eb71c47d5d9280f262fe7c8cc1e145f9255
# Parent  6e0425f2bc3d0955039286aff8525dfcb56d4c60
(menu-bar-options-save): Minor tweak to last change.

diff -r 6e0425f2bc3d -r 49171eb71c47 lisp/menu-bar.el
--- a/lisp/menu-bar.el	Tue Jun 10 20:57:13 2008 +0000
+++ b/lisp/menu-bar.el	Tue Jun 10 21:24:18 2008 +0000
@@ -676,8 +676,10 @@
       (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))))