Lines Matching +defs:set +defs:line
39 ;; location refers to a indented beginning of line or beginning of file.
55 ;; are either nil or line numbers. If present, nil comes first, followed by
56 ;; the numbers in decreasing order. The LOCs for each line are again an alist
65 ;; range didn't specify a COLUMN, it defaults to -1, meaning end of line.
110 started. It can be used to set any variables or functions that are used
161 " in line \\([0-9]+\\) of file \\([^ \n]+[^. \n]\\)\\.? " 2 1)
168 "^\\([^: \n\t]+\\): line \\([0-9]+\\):" 1 2)
181 "^\"\\([^,\" \n\t]+\\)\", line \\([0-9]+\\)\
188 "at line \\([0-9]+\\) of \"\\([^ \n]+\\)\"$"
195 "\\(^Warning .*\\)? line[ \n]\\([0-9]+\\)[ \n]\\(?:col \\([0-9]+\\)[ \n]\\)?file \\([^ :;\n]+\\)"
209 \\([^,\" \n\t]+\\)\\(?:, line\\|:\\) \\([0-9]+\\):" 3 4 nil (1 . 2))
216 (jikes-line
222 ;; I have no idea what this first line is supposed to match, but it
224 ;; the "foo" part can match this first line (in which case the file
225 ;; name as "344"). To avoid this, the second line disallows filenames
228 ;; times of the form "HH:MM:SS" where MM is taken as a line number, so
229 ;; the last line tries to rule out message where the info after the
230 ;; line number starts with "SS". --Stef
256 (3 compilation-line-face nil t)
271 "^\\(?:Semantic error\\|Error\\|PCC-[0-9]+:\\).* line \\([0-9]+\\)\
277 " at \\([^ \n]+\\) line \\([0-9]+\\)\\(?:[,.]\\|$\\)" 1 2)
280 "^\\(?:Error\\|Warnin\\(g\\)\\):.*\n.* line \\([0-9]+\\) char\
288 (sparc-pascal-line
289 "^\\(\\(?:E\\|\\(w\\)\\) +[0-9]+\\) line \\([0-9]+\\) - "
301 "^\\([^, \n\t]+\\), line \\([0-9]+\\), char \\([0-9]+\\)[:., \(-]" 1 2 3)
310 (1 compilation-line-face prepend) (2 compilation-info-face prepend))
314 (1 compilation-line-face prepend))
324 (1 compilation-line-face prepend))
325 (gcov-called-line
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
354 that line.
357 information is not present on the matched line. In that case the
359 buffer, line number defaults to 1 and column defaults to
360 beginning of line's indentation.
386 :type `(set :menu-tag "Pick"
422 (1 font-lock-function-name-face) (3 compilation-line-face nil t))
436 Highlight entire line if t; don't highlight source lines if nil.")
485 (set (make-local-variable 'compile-command)
508 Then every error line will have a debug text property with the matcher that
509 fit this line and the match data. Use `describe-text-properties'.")
515 write into the compilation buffer, and to put in its mode line.")
553 (defface compilation-line-number
555 "Face for displaying line numbers in compiler messages."
568 `compilation-info-face', `compilation-line-face' and
583 (defvar compilation-line-face 'compilation-line-number
584 "Face name to use for line numbers in compiler messages.")
636 ;; may be nil. The other KEYs are ordered backwards so that growing line
657 (defun compilation-error-properties (file line end-line col end-col type fmt)
689 (and line
690 (setq line (match-string-no-properties line))
691 (setq line (string-to-number line)))
692 (and end-line
693 (setq end-line (match-string-no-properties end-line))
694 (setq end-line (string-to-number end-line)))
705 (if end-line (setq end-col -1))))
710 (compilation-internal-error-properties file line end-line col end-col type fmt)))
713 "Go to column COL on the current line.
718 (goto-char (min (+ (line-beginning-position) col) (line-end-position)))))
720 (defun compilation-internal-error-properties (file line end-line col end-col type fmts)
731 (marker-line (car (cddr file-struct))) ; a line structure
732 (marker (nth 3 (cadr marker-line))) ; its marker
737 (setq loc (or line 1)) ; normalize no linenumber to line 1
741 (setq marker-line x)
742 (if (> (- (or (car marker-line) 1) loc)
743 (- loc (car x))) ; current line is nearer
744 (setq marker-line x))
746 (setq marker (nth 3 (cadr marker-line))
747 marker-line (or (car marker-line) 1))
753 (when (or end-col end-line)
754 (beginning-of-line (- (or end-line line) marker-line -1))
756 (end-of-line)
760 (beginning-of-line (if end-line
761 (- line end-line -1)
762 (- loc marker-line -1)))
769 (setq loc (compilation-assq line (cdr file-struct)))
770 (if end-line
771 (setq end-loc (compilation-assq end-line (cdr file-struct))
773 (if end-col ; use same line element
777 (or (cdr loc) (setcdr loc `(,line ,file-struct ,@marker)))
780 (setcdr end-loc `(,(or end-line line) ,file-struct ,@end-marker))))
789 "mouse-2: visit this file, line and column"
790 (if line
791 "mouse-2: visit this file and line"
819 (line (nth 2 item))
822 end-line end-col fmt)
824 (if (consp line) (setq end-line (cdr line) line (car line)))
827 (if (functionp line)
829 ;; allowed `line' to be a function that computed the actual
834 (funcall ',line (cons (match-string ,file)
853 ,@(when line
854 `((,line compilation-line-face nil t)))
855 ,@(when end-line
856 `((,end-line compilation-line-face nil t)))
865 (compilation-error-properties ',file ,line ,end-line
899 the function in `compilation-buffer-name-function', so you can set that
918 ;; run compile with the default command line
985 MODE is the major mode to set in the compilation buffer. Mode
991 the matching section of the visited source line; the default is to use the
1042 (set (make-local-variable 'compilation-highlight-regexp)
1053 (set-buffer-modified-p nil))
1077 (set (make-local-variable 'compilation-arguments)
1079 (set (make-local-variable 'revert-buffer-function)
1081 (set-window-start outwin (point-min))
1083 (set-window-point outwin (if compilation-scroll-output
1086 ;; The setup function is called before compilation-set-window-height
1087 ;; so it can set the compilation-window-height buffer locally.
1090 (compilation-set-window-height outwin)
1100 ;; Make the buffer's mode line show process state.
1101 (setq mode-line-process '(":%s"))
1102 (set-process-sentinel proc 'compilation-sentinel)
1103 (set-process-filter proc 'compilation-filter)
1104 (set-marker (process-mark proc) (point) outbuf)
1115 (setq mode-line-process ":run")
1116 (force-mode-line-update)
1137 (set-buffer-modified-p nil)
1148 (defun compilation-set-window-height (window)
1240 (set-keymap-parent submap compilation-menu-map))
1272 Visited messages are ones for which the file, line and column have been jumped
1282 \\<compilation-mode-map>To visit the source for a line-numbered error,
1283 move point to the error message line and type \\[compile-goto-error].
1294 (set (make-local-variable 'page-delimiter)
1303 variables are also set from the name of the mode you have chosen,
1318 `(set (make-local-variable ',(car v)) ,(cdr v))))
1364 (set (make-local-variable 'overlay-arrow-string) "")
1372 (set (make-local-variable 'font-lock-extra-managed-props)
1374 (set (make-local-variable 'compilation-locs)
1378 (set (make-local-variable 'font-lock-support-mode) nil)
1379 (set (make-local-variable 'font-lock-maximum-size) nil)
1390 ;; maybe defer font-lock till after derived mode is set up
1423 "Write MSG in the current buffer and hack its mode-line-process."
1445 (setq mode-line-process (format ":%s [%s]" process-status (cdr status)))
1446 ;; Force mode line redisplay soon.
1447 (force-mode-line-update)
1462 (set-process-buffer proc nil)
1465 ;; and hack its mode line.
1469 ;; Since the buffer and mode line will show that the
1530 Does NOT find the source line like \\[next-error]."
1543 (line-beginning-position)))
1546 (line-end-position)))
1569 Does NOT find the source line like \\[previous-error]."
1599 (if event (posn-set-point (event-end event)))
1634 (copy-marker (line-beginning-position)))
1646 (dolist (line (reverse (cddr (nth 2 loc))))
1647 (when (car line) ; else this is a filename w/o a line#
1648 (beginning-of-line (- (car line) last -1))
1649 (setq last (car line)))
1650 ;; Treat line's found columns and store/update a marker for each.
1651 (dolist (col (cdr line))
1654 (end-of-line)
1656 (beginning-of-line)
1659 (set-marker (nth 3 col) (point))
1668 (defun compilation-fake-loc (marker file &optional line col)
1678 this. In the simplest case the marker points to the first line
1683 call this several times, once each for the last line of one
1684 region and the first line of the next region."
1692 (let ((loc (compilation-assq (or line 1) (cdr file))))
1696 (setcdr loc (list line file marker)))
1709 (defsubst compilation-set-window (w mk)
1712 (set-window-start w (save-excursion
1714 (beginning-of-line
1719 (set-window-start w (save-excursion
1721 (beginning-of-line 1)
1723 (set-window-point w mk))
1729 All arguments are markers. If END-MK is non-nil, mark is set there
1747 (compilation-set-window w msg)
1752 (unless pre-existing (compilation-set-window-height w))
1786 (if end-mk (goto-char end-mk) (end-of-line))
1788 (if mk (goto-char mk) (beginning-of-line))
1806 ;; set up a timer to delete it.
1814 (copy-marker (line-beginning-position))))))
1861 (compilation-set-window (display-buffer (marker-buffer marker))
1928 (setq filename (command-line-normalize-file-name filename))
1959 (line (pop dst))
1965 (cons filename dirname) line nil col nil 2 fmt)))))
1981 (set-marker compilation-parsing-end (point))
1997 ;; (put-text-property src (line-end-position) 'font-lock-face 'font-lock-warning-face)
1998 (put-text-property src (line-end-position)
2005 ;; In case we hit the same file/line specs, we want to recompute a new