Lines Matching +defs:face +defs:name
53 ;; a file of that name can't be found.
103 It takes one arg FILENAME which is the name of a file as found
104 in the compilation output, and should return a transformed file name.")
116 (defvar compilation-buffer-name-function nil
117 "Function to compute the name of a compilation buffer.
118 The function receives one argument, the name of the major mode of the
120 nil means compute the name with `(concat \"*\" (downcase major-mode) \"*\")'.")
219 (2 (compilation-face '(3))))
225 ;; name as "344"). To avoid this, the second line disallows filenames
255 (2 compilation-info-face)
256 (3 compilation-line-face nil t)
290 nil 3 nil (2) nil (1 (compilation-face '(2))))
293 nil 1 nil (3) nil (2 (compilation-face '(3))))
310 (1 compilation-line-face prepend) (2 compilation-info-face prepend))
314 (1 compilation-line-face prepend))
317 ;; So I put default face on the lines; and then put
318 ;; compilation-*-face by manually to eliminate the underlines.
324 (1 compilation-line-face prepend))
329 (1 compilation-info-face prepend) (2 compilation-line-face prepend))
334 (1 compilation-error-face prepend) (2 compilation-line-face prepend))
352 gives the file name, and the LINE'th subexpression gives the line
358 file name is assumed to be the same as the previous one in the
364 name, until a file of that name is found. Or FILE can also be a
377 See `compilation-error-face', `compilation-warning-face',
378 `compilation-info-face' and `compilation-skip-threshold'.
380 What matched the HYPERLINK'th subexpression has `mouse-face' and
381 `compilation-message-face' applied. If this is nil, the text
391 ,(expand-file-name "compilation.txt" data-directory))
405 matches, that is a directory name. If LEAVE is nil or the corresponding
418 (1 font-lock-variable-name-face)
419 (2 (compilation-face '(4 . 3))))
422 (1 font-lock-function-name-face) (3 compilation-line-face nil t))
425 (0 '(face nil message nil help-echo nil mouse-face nil) t)
426 (1 compilation-info-face))
428 (0 '(face nil message nil help-echo nil mouse-face nil) t)
429 (1 compilation-error-face)
430 (2 compilation-error-face nil t)))
487 (file-name-sans-extension buffer-file-name))))))"
527 '((t :inherit font-lock-warning-face))
554 '((t :inherit font-lock-variable-name-face))
560 '((t :inherit font-lock-type-face))
565 (defcustom compilation-message-face 'underline
566 "Face name to use for whole messages.
567 Faces `compilation-error-face', `compilation-warning-face',
568 `compilation-info-face', `compilation-line-face' and
569 `compilation-column-face' get prepended to this, when applicable."
570 :type 'face
574 (defvar compilation-error-face 'compilation-error
575 "Face name to use for file name in error messages.")
577 (defvar compilation-warning-face 'compilation-warning
578 "Face name to use for file name in warning messages.")
580 (defvar compilation-info-face 'compilation-info
581 "Face name to use for file name in informational messages.")
583 (defvar compilation-line-face 'compilation-line-number
584 "Face name to use for line numbers in compiler messages.")
586 (defvar compilation-column-face 'compilation-column-number
587 "Face name to use for column numbers in compiler messages.")
590 (defvar compilation-enter-directory-face 'font-lock-function-name-face
591 "Face name to use for entering directory messages.")
593 (defvar compilation-leave-directory-face 'font-lock-type-face
594 "Face name to use for leaving directory messages.")
605 (defun compilation-face (type)
606 (or (and (car type) (match-end (car type)) compilation-warning-face)
607 (and (cdr type) (match-end (cdr type)) compilation-info-face)
608 compilation-error-face))
620 `(face ,(if leave
621 compilation-leave-directory-face
622 compilation-enter-directory-face)
627 mouse-face highlight
665 (unless (file-name-absolute-p file)
725 FMTS is a list of format specs for transforming the file name.
782 ;; Must start with face
783 `(face ,compilation-message-face
794 mouse-face highlight)))
838 (,file compilation-error-face t))
847 `(compilation-face ',type)
848 (aref [compilation-info-face
849 compilation-warning-face
850 compilation-error-face]
854 `((,line compilation-line-face nil t)))
856 `((,end-line compilation-line-face nil t)))
859 `((,col compilation-column-face nil t)))
861 `((,end-col compilation-column-face nil t)))
868 append))))) ; for compilation-message-face
893 the \`*compilation*' buffer to some other name with
898 The name used for the buffer is actually whatever is returned by
899 the function in `compilation-buffer-name-function', so you can set that
900 to a function that generates a unique name."
943 (defun compilation-buffer-name (mode-name mode-command name-function)
944 "Return the name of a compilation buffer to use.
946 to determine the buffer name.
947 Likewise if `compilation-buffer-name-function' is non-nil.
949 return the name of the current buffer, so that it gets reused.
950 Otherwise, construct a buffer name from MODE-NAME."
951 (cond (name-function
952 (funcall name-function mode-name))
953 (compilation-buffer-name-function
954 (funcall compilation-buffer-name-function mode-name))
957 (buffer-name))
959 (concat "*" (downcase mode-name) "*"))))
964 &optional name-of-mode parser
965 error-regexp-alist name-function
976 (compilation-start command nil name-function highlight-regexp)))
980 (defun compilation-start (command &optional mode name-function highlight-regexp)
987 If NAME-FUNCTION is non-nil, call it with one argument (the mode name)
988 to determine the buffer name.
996 (let* ((name-of-mode
999 (replace-regexp-in-string "-mode$" "" (symbol-name mode))))
1005 (compilation-buffer-name name-of-mode mode name-function)))
1011 name-of-mode)))
1019 (buffer-name)))))
1045 (insert "-*- mode: " name-of-mode
1049 mode-name
1078 (list command mode name-function highlight-regexp))
1096 (comint-exec outbuf (downcase mode-name)
1097 shell-file-name nil `("-c" ,command))))
1098 (start-process-shell-command (downcase mode-name)
1119 (status (call-process shell-file-name nil outbuf nil "-c"
1179 (define-key map [follow-link] 'mouse-face)
1209 (define-key map [follow-link] 'mouse-face)
1221 (define-key map [follow-link] 'mouse-face)
1280 (defun compilation-mode (&optional name-of-mode)
1293 mode-name (or name-of-mode "Compilation"))
1300 (defmacro define-compilation-mode (mode name doc &rest body)
1303 variables are also set from the name of the mode you have chosen,
1306 (let ((mode-name (replace-regexp-in-string "-mode\\'" "" (symbol-name mode))))
1307 `(define-derived-mode ,mode compilation-mode ,name
1312 "^compilation" mode-name
1313 (symbol-name v)))))
1319 '(compilation-buffer-name-function
1339 (if buffer-file-name
1353 ;; A function name can't be a hook, must be something with a value.
1373 '(directory message help-echo mouse-face debug))
1434 (insert ?\n mode-name " " (car status))
1460 (if (null (buffer-name buffer))
1478 (if (buffer-name (process-buffer proc))
1591 (error "The %s process is not running" (downcase mode-name)))))
1783 (overlay-put compilation-highlight-overlay 'face 'next-error))
1837 (expand-file-name directory)
1839 buffer thisdir fmts name)
1840 (if (file-name-absolute-p filename)
1841 ;; The file name is absolute. Use its explicit directory as
1843 (setq filename (abbreviate-file-name (expand-file-name filename))
1844 dirs (cons (file-name-directory filename) dirs)
1845 filename (file-name-nondirectory filename)))
1852 (setq name (expand-file-name (format (car fmts) filename) thisdir)
1853 buffer (and (file-exists-p name)
1854 (find-file-noselect name))
1863 (let* ((name (read-file-name
1867 (origname name))
1869 ((not (file-exists-p name))
1870 (message "Cannot find file `%s'" name)
1872 ((and (file-directory-p name)
1874 (setq name (expand-file-name filename name)))))
1878 (setq buffer (find-file-noselect name))))))))
1903 ;; Check for a comint-file-name-prefix and prepend it if appropriate.
1906 (when (and (boundp 'comint-file-name-prefix)
1907 (not (equal comint-file-name-prefix "")))
1908 (if (file-name-absolute-p filename)
1910 (concat comint-file-name-prefix filename))
1914 (concat comint-file-name-prefix spec-directory))))))
1925 ;; expand-file-name will collapse these into "/foo.c" and fail to find
1927 ;; name and fix them.
1928 (setq filename (command-line-normalize-file-name filename))
1930 ;; Store it for the possibly unnormalized name
1932 ;; Retrieve or create file-structure for normalized name
1951 ;; Must start with a face, for font-lock.
1952 `(face nil
1956 mouse-face highlight)
1997 ;; (put-text-property src (line-end-position) 'font-lock-face 'font-lock-warning-face)