Lines Matching +defs:face +defs:background
179 ;; hooks. `woman-pre-format-hook' might be appropriate for face
369 ;; The background information that made this project possible is
892 "*If non-nil then WoMan assumes that face support is available.
902 `((((min-colors 88) (background light))
904 (((background light)) (:slant italic :underline t :foreground "red"))
905 (((background dark)) (:slant italic :underline t)))
909 (put 'woman-italic-face 'face-alias 'woman-italic)
912 '((((min-colors 88) (background light)) (:weight bold :foreground "blue1"))
913 (((background light)) (:weight bold :foreground "blue"))
914 (((background dark)) (:weight bold :foreground "green2")))
918 (put 'woman-bold-face 'face-alias 'woman-bold)
924 '((((background light)) (:foreground "brown"))
925 (((min-colors 88) (background dark)) (:foreground "cyan1"))
926 (((background dark)) (:foreground "cyan")))
930 (put 'woman-unknown-face 'face-alias 'woman-unknown)
937 (put 'woman-addition-face 'face-alias 'woman-addition)
942 (face-spec-set 'woman-italic (face-user-default-spec 'woman-italic))
943 (face-spec-set 'woman-bold (face-user-default-spec 'woman-bold)))
946 "Set foreground colors of italic and bold faces to that of the default face.
949 (set-face-foreground 'woman-italic 'unspecified)
950 (set-face-foreground 'woman-bold 'unspecified))
971 (make-face 'woman-symbol)
1716 (woman-set-face (point) (1+ (point)) 'woman-italic))
1720 (woman-set-face (1- (point)) (point) 'woman-italic))))
1722 ;; Interpret overprinting to indicate bold face:
1726 (woman-set-face (1- (point)) (point) 'woman-bold))
1728 ;; Interpret underlining to indicate italic face:
1733 (woman-set-face (point) (1+ (point)) 'woman-italic))
1746 (woman-set-face (match-beginning 2) (match-end 2) 'woman-bold))))
1995 (defun WoMan-getpage-in-background (topic)
2009 ;; `Man-getpage-in-background' can be discarded, because the
2013 ;; (defadvice Man-getpage-in-background
2014 ;; (around Man-getpage-in-background-advice (topic) activate)
2019 ;; (WoMan-getpage-in-background topic)
2205 (let ((face-list (face-list)))
2206 (while face-list
2207 (let* ((face (car face-list))
2208 (face-name (symbol-name face)))
2209 (if (and (string-match "\\`woman-" face-name)
2210 (face-underline-p face))
2211 (let ((face-no-ul (intern (concat face-name "-no-ul"))))
2212 (copy-face face face-no-ul)
2213 (set-face-underline-p face-no-ul nil))))
2214 (setq face-list (cdr face-list)))))
2269 ;; Set font of `woman-symbol' face to `woman-symbol-font' if
2273 (set-face-font 'woman-symbol woman-symbol-font
2370 (put-text-property (1- (point)) (point) 'face 'woman-addition)
2374 " by TeX `%s' in woman-addition-face!" repl))
2994 (defsubst woman-replace-match (newtext &optional face)
2996 Set NEWTEXT in face FACE if specified."
2999 (if face (put-text-property (1- (point)) (point) 'face 'woman-symbol))
3042 'face 'woman-symbol)
3380 (woman-set-face previous-pos (point) current-font)
3393 (woman-set-face previous-pos (point) current-font)
3396 (defun woman-set-face (from to face)
3397 "Set the face of the text from FROM to TO to face FACE.
3398 Ignore the default face and underline only word characters."
3399 (or (eq face 'default) ; ignore
3401 (if (face-underline-p face)
3403 (let ((face-no-ul (intern (concat (symbol-name face) "-no-ul"))))
3407 (put-text-property from (point) 'face face)
3410 (put-text-property from (point) 'face face-no-ul)
3413 (put-text-property from to 'face face))
3839 (woman-set-face
3859 (woman-set-face