X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Ffont-menu.el;h=05562c6ba46ba717679f1a81f487c6f471906451;hb=8ccf542c980645ba3c02074a8bc67cd4fc8e7a1f;hp=14c680d15766ee6d0616618663ae1614eabdb590;hpb=2fd9701a4f902054649dde9143a3f77809afee8f;p=chise%2Fxemacs-chise.git.1

diff --git a/lisp/font-menu.el b/lisp/font-menu.el
index 14c680d..05562c6 100644
--- a/lisp/font-menu.el
+++ b/lisp/font-menu.el
@@ -19,7 +19,7 @@
 ;; General Public License for more details.
 
 ;; You should have received a copy of the GNU General Public License
-;; along with XEmacs; see the file COPYING.  If not, write to the 
+;; along with XEmacs; see the file COPYING.  If not, write to the
 ;; Free Software Foundation, 59 Temple Place - Suite 330,
 ;; Boston, MA 02111-1307, USA.
 
@@ -158,13 +158,15 @@ the last entry in the menu."
   :type '(choice (string :tag "Format string")
 		 (function)))
 
-(defvar font-menu-preferred-resolution 
+(defvar font-menu-preferred-resolution
   (make-specifier-and-init 'generic '((global ((mswindows) . ":")
+					      ((gtk) . "*-*")
 					      ((x) . "*-*"))) t)
   "Preferred horizontal and vertical font menu resolution (e.g. \"75:75\").")
 
 (defvar font-menu-size-scaling
   (make-specifier-and-init 'integer '((global ((mswindows) . 1)
+					      ((gtk) . 10)
 					      ((x) . 10))) t)
   "Scale factor used in defining font sizes.")
 
@@ -187,7 +189,7 @@ the last entry in the menu."
 This is run the first time that a font-menu is needed for each device.
 If you don't like the lazy invocation of this function, you can add it to
 `create-device-hook' and that will make the font menus respond more quickly
-when they are selected for the first time.  If you add fonts to your system, 
+when they are selected for the first time.  If you add fonts to your system,
 or if you change your font path, you can call this to re-initialize the menus."
   (message "Getting list of fonts from server... ")
   (if (or noninteractive
@@ -356,7 +358,7 @@ or if you change your font path, you can call this to re-initialize the menus."
     (when weight
       (signal 'error '("Setting weight currently not supported")))
     (setq new-default-face-font
-	  (font-menu-load-font 
+	  (font-menu-load-font
 	   (or family from-family)
 	   (or weight from-weight)
 	   (or size   from-size)
@@ -377,7 +379,9 @@ or if you change your font path, you can call this to re-initialize the menus."
 	(condition-case c
 	    (font-menu-change-face face
 				   from-family from-weight from-size
-				   family      weight      size)
+				   (or family from-family)
+				   (or weight from-weight)
+				   (or size from-size))
 	  (error
 	   (display-error c nil)
 	   (sit-for 1)))))
@@ -392,20 +396,20 @@ or if you change your font path, you can call this to re-initialize the menus."
       ;; OK Let Customize do it.
       (custom-set-face-update-spec 'default
 				   (list (list 'type (device-type)))
-				   (list :family family
+				   (list :family (or family from-family)
 					 :size (concat
 						(int-to-string
 						 (/ (or size from-size)
 						    (specifier-instance font-menu-size-scaling
 									(selected-device))))
-						"pt")))		 
+						"pt")))
       (message "Font %s" (face-font-name 'default)))))
 
 
 (defun font-menu-change-face (face
 			      from-family from-weight from-size
 			      to-family   to-weight   to-size)
-  (or (symbolp face) (signal 'wrong-type-argument (list 'symbolp face)))
+  (check-type face symbol)
   (let* ((dcache (device-fonts-cache))
 	 (font-data (font-menu-font-data face dcache))
 	 (face-family (aref font-data 1))
@@ -422,7 +426,7 @@ or if you change your font path, you can call this to re-initialize the menus."
     ;; If its value is inherited, we don't touch it.  If any of this
     ;; is not true, we leave it alone.
     (when (and (face-font face 'global)
-	       (cond 
+	       (cond
 		(to-family (string-equal face-family from-family))
 		(to-weight (string-equal face-weight from-weight))
 		(to-size   (=            face-size   from-size))))
@@ -432,7 +436,7 @@ or if you change your font path, you can call this to re-initialize the menus."
 					  (or to-size   face-size)
 					  face-slant
 					  (specifier-instance
-					   font-menu-preferred-resolution 
+					   font-menu-preferred-resolution
 					   (selected-device)))
 		     (and font-menu-this-frame-only-p
 			  (selected-frame))))))