Lines Matching +defs:temp +defs:face
179 ;; hooks. `woman-pre-format-hook' might be appropriate for face
498 (with-temp-buffer
592 (with-temp-buffer
892 "*If non-nil then WoMan assumes that face support is available.
909 (put 'woman-italic-face 'face-alias 'woman-italic)
918 (put 'woman-bold-face 'face-alias 'woman-bold)
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))))
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))
3035 (with-output-to-temp-buffer "*WoMan Extended Font Map*"
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
4141 (defvar woman-temp-indent nil)
4165 (cond (woman-temp-indent
4166 (indent-to woman-temp-indent)
4181 (indent-to (or woman-temp-indent left-margin))
4216 (if (and woman-temp-indent (< woman-temp-indent left-margin))
4217 (let ((left-margin woman-temp-indent))
4230 (setq woman-temp-indent nil)
4350 (setq woman-temp-indent woman-left-margin)
4440 (setq woman-temp-indent left-margin)
4441 (woman-set-arg 'woman-temp-indent)