--- a/lisp/x11/x-menubar.el	Mon Aug 13 08:51:05 2007 +0200
+++ b/lisp/x11/x-menubar.el	Mon Aug 13 08:51:32 2007 +0200
@@ -179,9 +179,6 @@
 	      (read-expression "Switches for `lpr'/`lp': "
 			       (format "%S" lpr-switches)))
 	t]
-       ["Pretty-Print With Color"
-	(setq ps-print-color-p (not ps-print-color-p))
-	:style toggle :selected ps-print-color-p]
        ("Pretty-Print Paper Size"
 	["Letter"
 	 (setq ps-paper-type 'letter)
@@ -232,6 +229,11 @@
 	 :style radio
 	 :selected (eq ps-paper-type 'b5)]
 	)
+       ["Enable Color Printing"
+	(progn
+	  (set-face-background 'default "white")
+	  (setq ps-print-color-p t))
+	t]
        )
       ("\"Other Window\" Location"
        ["Always in Same Frame"
@@ -548,7 +550,7 @@
 	:selected (eq browse-url-browser-function 'browse-url-grail)]
       )
       "-----"
-      ["Edit Faces..." edit-faces t]
+      ["Edit Faces..." cu-edit-faces t]
       ("Font"   :filter font-menu-family-constructor)
       ("Size"	:filter font-menu-size-constructor)
       ("Weight"	:filter font-menu-weight-constructor)
@@ -594,7 +596,7 @@
        ["Splash"		xemacs-splash-buffer	t])
       "-----"
       ("XEmacs FAQ"
-       ["FAQ)"			xemacs-local-faq	t]
+       ["FAQ (local)"		xemacs-local-faq	t]
        ["FAQ via WWW"		xemacs-www-faq		t]
        ["Home Page"		xemacs-www-page		t])
       ("Samples"
@@ -1012,6 +1014,12 @@
 ;;; The Options menu
 (defvar save-options-font-hack nil)
 
+(defvar options-save-faces nil
+  "if t, save-options will save all the face information.
+Set to nil to avoid this. This is recommended on XEmacs 19.15
+and above as we have a much more powerful (read: working) way 
+of changing and saving faces via cu-edit-faces.el & custom.el.")
+
 (defconst options-menu-saved-forms
   ;; This is really quite a kludge, but it gets the job done.
   ;;
@@ -1138,30 +1146,31 @@
      ;; Setting this in lisp conflicts with X resources.  Bad move.  --Stig 
      ;; (list 'set-face-font ''default (face-font-name 'default))
      ;; (list 'set-face-font ''modeline (face-font-name 'modeline))
-
-     (cons 'progn
-	   (mapcar #'(lambda (face)
-		       `(make-face ',face))
-		   (face-list)))
-
-     (cons 'progn
-	   (apply 'nconc
-		  (mapcar
-		   #'(lambda (face)
-		       (delq nil
-			     (mapcar
-			      #'(lambda (property)
-				  (if (specifier-spec-list
-				       (face-property face property))
-				      `(add-spec-list-to-specifier
-					(face-property ',face ',property)
-					',(save-options-specifier-spec-list
-					   face property))))
-			      (delq 'display-table
-				    (copy-sequence
-				     built-in-face-specifiers)))))
-		   (face-list))))
-
+     (if options-save-faces
+	 (cons 'progn
+	       (mapcar #'(lambda (face)
+			   `(make-face ',face))
+		       (face-list))))
+     
+     (if options-save-faces
+	 (cons 'progn
+	       (apply 'nconc
+		      (mapcar
+		       #'(lambda (face)
+			   (delq nil
+				 (mapcar
+				  #'(lambda (property)
+				      (if (specifier-spec-list
+					   (face-property face property))
+					  `(add-spec-list-to-specifier
+					    (face-property ',face ',property)
+					    ',(save-options-specifier-spec-list
+					       face property))))
+				  (delq 'display-table
+					(copy-sequence
+					 built-in-face-specifiers)))))
+		       (face-list)))))
+     
      ))
   "The variables to save; or forms to evaluate to get forms to write out.
 This is used by `save-options-menu-settings' and should mirror the