Mercurial > hg > xemacs-beta

diff lisp/x11/x-menubar.el @ 48:56c54cf7c5b6 r19-16b90

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-16b90
author cvs
date Mon, 13 Aug 2007 08:56:04 +0200
parents 8d2a9b52c682
children 131b0175ea99
line wrap: on
line diff
--- a/lisp/x11/x-menubar.el	Mon Aug 13 08:55:32 2007 +0200
+++ b/lisp/x11/x-menubar.el	Mon Aug 13 08:56:04 2007 +0200
@@ -1013,7 +1013,6 @@
 
 
 ;;; The Options menu
-(defvar save-options-font-hack nil)
 
 (defvar options-save-faces nil
   "if t, save-options will save all the face information.
@@ -1282,25 +1281,6 @@
 			     (prin1 var))))
 		    (if var (princ "\n")))
 		options-menu-saved-forms)
-	(when save-options-font-hack
-	  (princ "(require 'x-font-menu)\n")
-	  (princ "(setq save-options-font-hack '(")
-	  (princ (car save-options-font-hack))
-	  (princ " ")
-	  (prin1 (cadr save-options-font-hack))
-	  (princ " ")
-	  (prin1 (caddr save-options-font-hack))
-	  (princ " ")
-	  (prin1 (format "%d" (cadddr save-options-font-hack)))
-	  (princ "))\n(")
-	  (princ (car save-options-font-hack))
-	  (princ " ")
-	  (prin1 (cadr save-options-font-hack))
-	  (princ " ")
-	  (prin1 (caddr save-options-font-hack))
-	  (princ " ")
-	  (prin1 (format "%d" (cadddr save-options-font-hack)))
-	  (princ ")\n"))
 	))
     (set-marker options-output-marker nil)
     (save-excursion