Mercurial > hg > xemacs-beta

changeset 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 991f80dc633d
children 3fc0174a5541
files lisp/ChangeLog lisp/faces.el
diffstat 2 files changed, 32 insertions(+), 7 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/ChangeLog	Tue Apr 24 16:25:18 2001 +0000
+++ b/lisp/ChangeLog	Thu Apr 26 04:20:38 2001 +0000
@@ -1,3 +1,14 @@
+2001-04-25  IKEYAMA Tomonori <tomonori@suiyokai.org>
+
+	* faces.el (make-face-bold):
+	* faces.el (make-face-italic):
+	* faces.el (make-face-bold-italic):
+	* faces.el (make-face-unbold):
+	* faces.el (make-face-unitalic):
+	* faces.el (make-face-smaller):
+	* faces.el (make-face-larger):
+	Call frob-face-property each for mswindows and msprinter.
+
 2001-04-24  Hrvoje Niksic  <hniksic@arsdigita.com>
 
 	* about.el (about-finish-buffer): Make sure the last change works
--- 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."