Lines Matching +defs:find +defs:face
73 ;; a face with a green foreground, and a black background, using a
104 ;; Emacs cannot properly find bold and italic fonts unless you specify a
197 ;; added default face mapping for 'formula' which is needed for new latex
207 ;; font for that face is maintained by emacs.
247 ;; fixed bug in hilit-string-find that mishandled strings of the form: "\\"
263 ;; hilit-face-translation-table into a mapcar and defining a separate table
270 ;; (hilit-lookup-face-create) incorporated patch which improves its behavior
271 ;; with more than one frame... Still can't have bold on the same face in two
286 ;; added hilit-predefined-face-list...
330 "* t if we should highlight all buffers as we find 'em, nil to disable
331 automatic highlighting by the find-file hook.")
350 (defvar hilit-face-check t
352 losing bold and italic faces... t causes hilit-lookup-face-create to dig
386 A highlighting pattern is a list of the form (start end face), where
387 start is a regex, end is either a regex or a match number for start, and face
388 is the name of an entry in hilit-face-translation-table, the name of a face,
394 See the hilit-lookup-face-create documentation for valid face names.")
396 (defvar hilit-predefined-face-list (face-list)
397 "List of faces with which hilit-lookup-face-create will NOT tamper.
422 hilit-face-check
428 hilit-predefined-face-list
456 ;; These faces are either a valid face name, or nil
459 (defconst hilit-default-face-table
521 "alist of default faces (face . (light-default dark-default mono-default))
527 See also the documentation for hilit-lookup-face-create.")
529 (defconst hilit-face-translation-table
535 hilit-default-face-table))
536 "alist that maps symbolic face-names to real face names")
539 ;; To translate one face to another...
543 "(hilit-translate FROM TO FROM TO ...): translate each face FROM to the
544 value of its TO face. This is like setq for faces.
546 The function hilit-lookup-face-create will repeatedly translate until no more
547 translations for the face exist in the translation table.
549 See the documentation for hilit-lookup-face-create for names of valid faces."
555 cmdl (cons (list 'hilit-associate ''hilit-face-translation-table
564 (defun hilit-lookup-face-create (face &optional force)
566 properly create the face, the following naming convention must be used:
568 Example: (hilit-lookup-face-create 'comment-face) might create and return 'red
573 An optional argument, FORCE, will cause the face to be recopied from the
576 See the documentation for hilit-translate and hilit-face-translation-table."
578 ;; translate the face ...
581 (cond ((memq face visited) (error "face translation loop: %S" visited))
582 (t (setq visited (cons face visited)
583 trec (assq face hilit-face-translation-table))
584 (and trec (setq face (cdr trec)))))))
586 ;; make the face if we need to...
587 (let* ((fn (symbol-name face))
592 ((or (null face)
593 (memq face hilit-predefined-face-list))
594 ;; do nothing if the face is nil or if it's predefined.
597 (not (memq face (face-list)))
598 (and hilit-face-check
599 (not (string= (get face 'basefont) basefont))))
600 (copy-face 'default 'scratch-face)
602 (progn (invert-face 'scratch-face)
611 (error "bad face name %S" face))
625 (progn (and fgcolor (set-face-foreground 'scratch-face fgcolor))
626 (and bgcolor (set-face-background 'scratch-face bgcolor))
627 (copy-face 'scratch-face face)
628 (put face 'basefont basefont))
630 (symbol-name face))
631 (setq face 'default)
635 ;; we wanted, but ignore errors making the face bold or italic
639 (set-face-font face basefont frame))
640 (set-face-underline-p face (string-match "underline" fn))
642 ;; make face bold in all frames
643 (make-face-bold face nil 'noerr))
645 ;; make face italic in all frames
646 (make-face-italic face nil 'noerr))
649 face)
655 (defsubst hilit-region-set-face (start end face-name &optional prio prop)
659 (overlay-put overlay 'face face-name)
679 ;;(defsubst hilit-region-set-face (start end face-name &optional prio prop)
682 ;; (put-text-property start end 'face face-name)
690 ;; (remove-text-properties start end '(face))
714 p pstart pend face mstart (puke-count 0))
724 face (hilit-lookup-face-create (nth 2 p)))
725 (if (not face) ; skipped if nil
734 ;; inner loop -- special function to find pattern
737 (hilit-region-set-face (car region) (cdr region)
738 face prio))))
744 (hilit-region-set-face mstart (match-end 0)
745 face prio)
751 (hilit-region-set-face (match-beginning pend)
752 (match-end pend) face prio)))
791 ;; find separation between headers and body (either a blank line or
800 ;; Well, I want to remove this function...there's one sure way to find out if
818 (defun hilit-find-file-hook ()
905 ;; appropriate text attribute. Suitable for a find-file hook."
908 ;; (let ((wysb (hilit-lookup-face-create 'wysiwyg-bold))
909 ;; (wysu (hilit-lookup-face-create 'wysiwyg-underline))
915 ;; (hilit-region-set-face st en wysu 100 'wysiwyg)
916 ;; (hilit-region-set-face st en wysb 100 'wysiwyg))
971 (add-hook 'find-file-hook 'hilit-find-file-hook t)
972 (remove-hook 'find-file-hook 'hilit-find-file-hook))
1048 (defun hilit-add-pattern (pstart pend face &optional mode first)
1049 "Highlight pstart with face for the current major-mode.
1058 (new-pat (list pstart pend face)))
1067 (defun hilit-string-find (qchar)
1095 ;; definitions the defun face. Hmmm - seems to work for me anyway.
1100 (strings '((hilit-string-find ?' string)))
1207 (hilit-string-find ?\\ string)
1353 (hilit-string-find ?\\ string)
1371 (hilit-string-find ?\\ string)