Mercurial > hg > xemacs-beta

comparison 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
comparison
equal deleted inserted replaced
483:991f80dc633d 484:029314e67086
1028 (when (featurep 'x) 1028 (when (featurep 'x)
1029 (frob-face-property face 'font 'x-make-font-bold 1029 (frob-face-property face 'font 'x-make-font-bold
1030 '(x) locale tags)) 1030 '(x) locale tags))
1031 (when (featurep 'mswindows) 1031 (when (featurep 'mswindows)
1032 (frob-face-property face 'font 'mswindows-make-font-bold 1032 (frob-face-property face 'font 'mswindows-make-font-bold
1033 '(mswindows) locale tags)) 1033 '(mswindows) locale tags)
1034 (frob-face-property face 'font 'mswindows-make-font-bold
1035 '(msprinter) locale tags))
1034 ) 1036 )
1035 '(([default] . [bold]) 1037 '(([default] . [bold])
1036 ([bold] . t) 1038 ([bold] . t)
1037 ([italic] . [bold-italic]) 1039 ([italic] . [bold-italic])
1038 ([bold-italic] . t)))) 1040 ([bold-italic] . t))))
1058 (when (featurep 'x) 1060 (when (featurep 'x)
1059 (frob-face-property face 'font 'x-make-font-italic 1061 (frob-face-property face 'font 'x-make-font-italic
1060 '(x) locale tags)) 1062 '(x) locale tags))
1061 (when (featurep 'mswindows) 1063 (when (featurep 'mswindows)
1062 (frob-face-property face 'font 'mswindows-make-font-italic 1064 (frob-face-property face 'font 'mswindows-make-font-italic
1063 '(mswindows) locale tags)) 1065 '(mswindows) locale tags)
1066 (frob-face-property face 'font 'mswindows-make-font-italic
1067 '(msprinter) locale tags))
1064 ) 1068 )
1065 '(([default] . [italic]) 1069 '(([default] . [italic])
1066 ([bold] . [bold-italic]) 1070 ([bold] . [bold-italic])
1067 ([italic] . t) 1071 ([italic] . t)
1068 ([bold-italic] . t)))) 1072 ([bold-italic] . t))))
1089 (when (featurep 'x) 1093 (when (featurep 'x)
1090 (frob-face-property face 'font 'x-make-font-bold-italic 1094 (frob-face-property face 'font 'x-make-font-bold-italic
1091 '(x) locale tags)) 1095 '(x) locale tags))
1092 (when (featurep 'mswindows) 1096 (when (featurep 'mswindows)
1093 (frob-face-property face 'font 'mswindows-make-font-bold-italic 1097 (frob-face-property face 'font 'mswindows-make-font-bold-italic
1094 '(mswindows) locale tags)) 1098 '(mswindows) locale tags)
1099 (frob-face-property face 'font 'mswindows-make-font-bold-italic
1100 '(msprinter) locale tags))
1095 ) 1101 )
1096 '(([default] . [italic]) 1102 '(([default] . [italic])
1097 ([bold] . [bold-italic]) 1103 ([bold] . [bold-italic])
1098 ([italic] . [bold-italic]) 1104 ([italic] . [bold-italic])
1099 ([bold-italic] . t)))) 1105 ([bold-italic] . t))))
1119 (when (featurep 'x) 1125 (when (featurep 'x)
1120 (frob-face-property face 'font 'x-make-font-unbold 1126 (frob-face-property face 'font 'x-make-font-unbold
1121 '(x) locale tags)) 1127 '(x) locale tags))
1122 (when (featurep 'mswindows) 1128 (when (featurep 'mswindows)
1123 (frob-face-property face 'font 'mswindows-make-font-unbold 1129 (frob-face-property face 'font 'mswindows-make-font-unbold
1124 '(mswindows) locale tags)) 1130 '(mswindows) locale tags)
1131 (frob-face-property face 'font 'mswindows-make-font-unbold
1132 '(msprinter) locale tags))
1125 ) 1133 )
1126 '(([default] . t) 1134 '(([default] . t)
1127 ([bold] . [default]) 1135 ([bold] . [default])
1128 ([italic] . t) 1136 ([italic] . t)
1129 ([bold-italic] . [italic])))) 1137 ([bold-italic] . [italic]))))
1149 (when (featurep 'x) 1157 (when (featurep 'x)
1150 (frob-face-property face 'font 'x-make-font-unitalic 1158 (frob-face-property face 'font 'x-make-font-unitalic
1151 '(x) locale tags)) 1159 '(x) locale tags))
1152 (when (featurep 'mswindows) 1160 (when (featurep 'mswindows)
1153 (frob-face-property face 'font 'mswindows-make-font-unitalic 1161 (frob-face-property face 'font 'mswindows-make-font-unitalic
1154 '(mswindows) locale tags)) 1162 '(mswindows) locale tags)
1163 (frob-face-property face 'font 'mswindows-make-font-unitalic
1164 '(msprinter) locale tags))
1155 ) 1165 )
1156 '(([default] . t) 1166 '(([default] . t)
1157 ([bold] . t) 1167 ([bold] . t)
1158 ([italic] . [default]) 1168 ([italic] . [default])
1159 ([bold-italic] . [bold])))) 1169 ([bold-italic] . [bold]))))
1172 (when (featurep 'x) 1182 (when (featurep 'x)
1173 (frob-face-property face 'font 'x-find-smaller-font 1183 (frob-face-property face 'font 'x-find-smaller-font
1174 '(x) locale)) 1184 '(x) locale))
1175 (when (featurep 'mswindows) 1185 (when (featurep 'mswindows)
1176 (frob-face-property face 'font 'mswindows-find-smaller-font 1186 (frob-face-property face 'font 'mswindows-find-smaller-font
1177 '(mswindows) locale))) 1187 '(mswindows) locale)
1188 (frob-face-property face 'font 'mswindows-find-smaller-font
1189 '(msprinter) locale)))
1178 1190
1179 (defun make-face-larger (face &optional locale) 1191 (defun make-face-larger (face &optional locale)
1180 "Make the font of FACE be larger, if possible. 1192 "Make the font of FACE be larger, if possible.
1181 See `make-face-smaller' for the semantics of the LOCALE argument." 1193 See `make-face-smaller' for the semantics of the LOCALE argument."
1182 (interactive (list (read-face-name "Enlarge which face: "))) 1194 (interactive (list (read-face-name "Enlarge which face: ")))
1184 (when (featurep 'x) 1196 (when (featurep 'x)
1185 (frob-face-property face 'font 'x-find-larger-font 1197 (frob-face-property face 'font 'x-find-larger-font
1186 '(x) locale)) 1198 '(x) locale))
1187 (when (featurep 'mswindows) 1199 (when (featurep 'mswindows)
1188 (frob-face-property face 'font 'mswindows-find-larger-font 1200 (frob-face-property face 'font 'mswindows-find-larger-font
1189 '(mswindows) locale))) 1201 '(mswindows) locale)
1202 (frob-face-property face 'font 'mswindows-find-larger-font
1203 '(msprinter) locale)))
1190 1204
1191 (defun invert-face (face &optional locale) 1205 (defun invert-face (face &optional locale)
1192 "Swap the foreground and background colors of the face." 1206 "Swap the foreground and background colors of the face."
1193 (interactive (list (read-face-name "Invert face: "))) 1207 (interactive (list (read-face-name "Invert face: ")))
1194 (if (valid-specifier-domain-p locale) 1208 (if (valid-specifier-domain-p locale)