Lines Matching +defs:find +defs:face
31 ;; using a yellow background face. New occurrences of `clearly' will
33 ;; will remove the highlighting. Any existing face can be used for
76 ;; (define-key hi-lock-map "\C-zi" 'hi-lock-find-patterns)
88 ; Hi-lock: ( ("make-variable-buffer-\\(local\\)" (0 font-lock-keyword-face)(1 'italic append)))))
105 of functions `hi-lock-mode' and `hi-lock-find-patterns'."
153 "Default face for hi-lock mode."
211 (defvar hi-lock-face-history
216 ;(dolist (f hi-lock-face-history) (unless (facep f) (error "%s not a face" f)))
267 (define-key-after hi-lock-menu [hi-lock-find-patterns]
268 '(menu-item "Patterns from Buffer" hi-lock-find-patterns
274 (define-key hi-lock-map "\C-xwi" 'hi-lock-find-patterns)
310 be read the next time file is loaded or when the \\[hi-lock-find-patterns] command
312 (See `font-lock-keywords'.) They may be edited and re-loaded with \\[hi-lock-find-patterns],
319 \\[hi-lock-find-patterns]
361 (hi-lock-find-patterns)
388 (defalias 'highlight-lines-matching-regexp 'hi-lock-line-face-buffer)
390 (defun hi-lock-line-face-buffer (regexp &optional face)
391 "Set face of all lines containing a match of REGEXP to FACE.
403 (hi-lock-read-face-name)))
404 (or (facep face) (setq face 'hi-yellow))
409 (concat "^.*\\(?:" regexp "\\).*$") face))
413 (defalias 'highlight-regexp 'hi-lock-face-buffer)
415 (defun hi-lock-face-buffer (regexp &optional face)
416 "Set face of each match of REGEXP to FACE.
428 (hi-lock-read-face-name)))
429 (or (facep face) (setq face 'hi-yellow))
431 (hi-lock-set-pattern regexp face))
434 (defalias 'highlight-phrase 'hi-lock-face-phrase-buffer)
436 (defun hi-lock-face-phrase-buffer (regexp &optional face)
437 "Set face of each match of phrase REGEXP to FACE.
448 (hi-lock-read-face-name)))
449 (or (facep face) (setq face 'hi-yellow))
451 (hi-lock-set-pattern regexp face))
552 (defun hi-lock-read-face-name ()
553 "Read face name from minibuffer with completion and history."
555 "Highlight using face: "
557 (cons (car hi-lock-face-history)
560 (substring (car hi-lock-face-history) 0 1)
562 hi-lock-face-history))))
564 (not (equal prefix (car hi-lock-face-history))))
566 '(hi-lock-face-history . 0))))
568 (defun hi-lock-set-pattern (regexp face)
569 "Highlight REGEXP with face FACE."
570 (let ((pattern (list regexp (list 0 (list 'quote face) t))))
591 (overlay-put overlay 'face face))
602 (defun hi-lock-find-patterns ()
624 ((eq this-command 'hi-lock-find-patterns) t)