Lines Matching +defs:find +defs:face
28 ;; To enter Delphi mode when you find a Delphi source file, one must override
163 (defcustom delphi-comment-face 'font-lock-comment-face
165 :type 'face
168 (defcustom delphi-string-face 'font-lock-string-face
170 :type 'face
173 (defcustom delphi-keyword-face 'font-lock-keyword-face
175 :type 'face
178 (defcustom delphi-other-face nil
180 :type '(choice (const :tag "None" nil) face)
413 (defun delphi-face-of (token-kind)
414 ;; Returns the face property appropriate for the token kind.
415 (cond ((delphi-is token-kind delphi-comments) delphi-comment-face)
416 ((delphi-is token-kind delphi-strings) delphi-string-face)
417 ((delphi-is token-kind delphi-keywords) delphi-keyword-face)
418 (delphi-other-face)))
554 (list 'token kind 'face (delphi-face-of kind) 'lazy-lock t)
560 ;; marked as such with a text property, to speed up tokenizing during face
736 (list 'face (delphi-face-of (delphi-token-kind token)) 'lazy-lock t))
1700 (defun delphi-find-unit-in-directory (unit dir)
1714 (defun delphi-find-unit-file (unit)
1719 (delphi-find-unit-in-directory unit "."))
1722 (delphi-find-unit-in-directory unit delphi-search-path))
1726 (let ((file (delphi-find-unit-in-directory unit dir)))
1731 (defun delphi-find-unit (unit)
1738 (file (delphi-find-unit-file unit-file)))
1741 (find-file file)
1746 (defun delphi-find-current-def ()
1749 (error "delphi-find-current-def: not implemented yet"))
1751 (defun delphi-find-current-xdef ()
1757 (error "delphi-find-current-xdef: not implemented yet"))
1759 (defun delphi-find-current-body ()
1763 (error "delphi-find-current-body: not implemented yet"))
1882 nil ; Don't care about case since we don't use regexps to find tokens.
1916 ;; '("\C-cd" delphi-find-current-def)
1917 ;; '("\C-cx" delphi-find-current-xdef)
1918 ;; '("\C-cb" delphi-find-current-body)
1919 '("\C-cu" delphi-find-unit)
1929 This is ok since we do our own keyword/comment/string face coloring.")
1935 \\[delphi-find-unit]\t- Search for a Delphi source file.
1963 `delphi-comment-face' (default font-lock-comment-face)
1965 `delphi-string-face' (default font-lock-string-face)
1967 `delphi-keyword-face' (default font-lock-keyword-face)
1969 `delphi-other-face' (default nil)