Debug message fix

[sxemacs] / lisp / font-menu.el

diff --git a/lisp/font-menu.el b/lisp/font-menu.el
index 31fca37..03ec57e 100644 (file)
--- a/lisp/font-menu.el
+++ b/lisp/font-menu.el
@@ -153,15 +153,13 @@ the last entry in the menu."
                 (function)))
 
 (defvar font-menu-preferred-resolution
-  (make-specifier-and-init 'generic '((global 
-                                             ((gtk) . "*-*")
-                                             ((x) . "*-*"))) t)
+  (make-specifier-and-init 'generic '((global
+                                      ((x) . "*-*"))) t)
   "Preferred horizontal and vertical font menu resolution (e.g. \"75:75\").")
 
 (defvar font-menu-size-scaling
   (make-specifier-and-init 'integer '((global
-                                             ((gtk) . 10)
-                                             ((x) . 10))) t)
+                                      ((x) . 10))) t)
   "Scale factor used in defining font sizes.")
 
 ;; only call XListFonts (and parse) once per device.
@@ -345,7 +343,7 @@ or if you change your font path, you can call this to re-initialize the menus."
         (from-size   (aref font-data 2))
           (from-weight (aref font-data 3))
         (from-slant  (aref font-data 4))
-        (face-list-to-change (delq 'default (face-list)))
+        (face-list-to-change (delq 'default (face-list)))
         new-default-face-font)
     (unless from-family
       (signal 'error '("couldn't parse font name for default face")))