Lines Matching +defs:find +defs:face
33 (defvar font-lock-comment-face)
34 (defvar font-lock-doc-face)
36 (defvar font-lock-string-face)
160 (defun lisp-font-lock-syntactic-face-function (state)
192 font-lock-doc-face
193 font-lock-string-face))))
194 font-lock-comment-face))
250 (font-lock-syntactic-face-function
251 . lisp-font-lock-syntactic-face-function))))
400 (put 'lisp-mode 'find-tag-default-function 'lisp-find-tag-default)
402 (defun lisp-find-tag-default ()
403 (let ((default (find-tag-default)))
473 mouse-face highlight
476 rear-nonsticky (mouse-face keymap help-echo
642 Reinitialize the face according to the `defface' specification."
660 ;; `defface' is macroexpanded to `custom-declare-face'.
661 ((eq (car form) 'custom-declare-face)
662 ;; Reset the face.
663 (setq face-new-frame-defaults
664 (assq-delete-all (eval (nth 1 form)) face-new-frame-defaults))
665 (put (eval (nth 1 form)) 'face-defface-spec nil)
666 ;; Setting `customized-face' to the new spec after calling
667 ;; the form, but preserving the old saved spec in `saved-face',
668 ;; imitates the situation when the new face spec is set
670 ;; buffer, thus allowing `face-user-default-spec' to use the
672 ;; Resetting `saved-face' temporarily to nil is needed to let
675 (put ,(nth 1 form) 'saved-face
676 ',(get (eval (nth 1 form)) 'saved-face))
677 (put ,(nth 1 form) 'customized-face
679 (put (eval (nth 1 form)) 'saved-face nil)))
889 ;; Skip the first element, find start of second (the first
1029 ;; Now find the start of the last form.
1114 ;; so that calculate-lisp-indent will find the beginning of