Mercurial > hg > xemacs-beta

diff lisp/faces.el @ 484:029314e67086

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2001-04-26 04:20:37 by tomonori] add msprinter specific entries
author tomonori
date Thu, 26 Apr 2001 04:20:38 +0000
parents 0784d089fdc9
children 7039e6323819
line wrap: on
line diff
--- a/lisp/faces.el	Tue Apr 24 16:25:18 2001 +0000
+++ b/lisp/faces.el	Thu Apr 26 04:20:38 2001 +0000
@@ -1030,7 +1030,9 @@
 			   '(x) locale tags))
      (when (featurep 'mswindows)
        (frob-face-property face 'font 'mswindows-make-font-bold
-			   '(mswindows) locale tags))
+			   '(mswindows) locale tags)
+       (frob-face-property face 'font 'mswindows-make-font-bold
+			   '(msprinter) locale tags))
      )
    '(([default] . [bold])
      ([bold] . t)
@@ -1060,7 +1062,9 @@
 			   '(x) locale tags))
      (when (featurep 'mswindows)
        (frob-face-property face 'font 'mswindows-make-font-italic
-			   '(mswindows) locale tags))
+			   '(mswindows) locale tags)
+       (frob-face-property face 'font 'mswindows-make-font-italic
+			   '(msprinter) locale tags))
      )
    '(([default] . [italic])
      ([bold] . [bold-italic])
@@ -1091,7 +1095,9 @@
 			   '(x) locale tags))
      (when (featurep 'mswindows)
        (frob-face-property face 'font 'mswindows-make-font-bold-italic
-			   '(mswindows) locale tags))
+			   '(mswindows) locale tags)
+       (frob-face-property face 'font 'mswindows-make-font-bold-italic
+			   '(msprinter) locale tags))
      )
    '(([default] . [italic])
      ([bold] . [bold-italic])
@@ -1121,7 +1127,9 @@
 			   '(x) locale tags))
      (when (featurep 'mswindows)
        (frob-face-property face 'font 'mswindows-make-font-unbold
-			   '(mswindows) locale tags))
+			   '(mswindows) locale tags)
+       (frob-face-property face 'font 'mswindows-make-font-unbold
+			   '(msprinter) locale tags))
      )
    '(([default] . t)
      ([bold] . [default])
@@ -1151,7 +1159,9 @@
 			   '(x) locale tags))
      (when (featurep 'mswindows)
        (frob-face-property face 'font 'mswindows-make-font-unitalic
-			   '(mswindows) locale tags))
+			   '(mswindows) locale tags)
+       (frob-face-property face 'font 'mswindows-make-font-unitalic
+			   '(msprinter) locale tags))
      )
    '(([default] . t)
      ([bold] . t)
@@ -1174,7 +1184,9 @@
 			'(x) locale))
   (when (featurep 'mswindows)
     (frob-face-property face 'font 'mswindows-find-smaller-font
-			'(mswindows) locale)))
+			'(mswindows) locale)
+    (frob-face-property face 'font 'mswindows-find-smaller-font
+			'(msprinter) locale)))
 
 (defun make-face-larger (face &optional locale)
   "Make the font of FACE be larger, if possible.
@@ -1186,7 +1198,9 @@
 			'(x) locale))
   (when (featurep 'mswindows)
     (frob-face-property face 'font 'mswindows-find-larger-font
-			'(mswindows) locale)))
+			'(mswindows) locale)
+    (frob-face-property face 'font 'mswindows-find-larger-font
+			'(msprinter) locale)))
 
 (defun invert-face (face &optional locale)
   "Swap the foreground and background colors of the face."