Lines Matching +defs:goto +defs:line
65 "Sorted list of line numbers and lists of err info in the form (file, err-text).")
111 (defalias 'flymake-line-beginning-position
112 (if (fboundp 'line-beginning-position)
113 'line-beginning-position
114 (lambda (&optional arg) (save-excursion (beginning-of-line arg) (point)))))
116 (defalias 'flymake-line-end-position
117 (if (fboundp 'line-end-position)
118 'line-end-position
119 (lambda (&optional arg) (save-excursion (end-of-line arg) (point)))))
463 (goto-char (point-min))
485 (forward-line 1)))
499 (goto-char end)
639 (flymake-fix-line-numbers
681 (defun flymake-er-make-er (line-no line-err-info-list)
682 (list line-no line-err-info-list))
684 (defun flymake-er-get-line (err-info)
687 (defun flymake-er-get-line-err-info-list (err-info)
692 (:constructor flymake-ler-make-ler (file line type text &optional full-file)))
693 file line type text full-file)
695 (defun flymake-ler-set-file (line-err-info file)
697 (flymake-ler-line line-err-info)
698 (flymake-ler-type line-err-info)
699 (flymake-ler-text line-err-info)
700 (flymake-ler-full-file line-err-info)))
702 (defun flymake-ler-set-full-file (line-err-info full-file)
703 (flymake-ler-make-ler (flymake-ler-file line-err-info)
704 (flymake-ler-line line-err-info)
705 (flymake-ler-type line-err-info)
706 (flymake-ler-text line-err-info)
709 (defun flymake-ler-set-line (line-err-info line)
710 (flymake-ler-make-ler (flymake-ler-file line-err-info)
711 line
712 (flymake-ler-type line-err-info)
713 (flymake-ler-text line-err-info)
714 (flymake-ler-full-file line-err-info)))
716 (defun flymake-get-line-err-count (line-err-info-list type)
720 (count (length line-err-info-list))
724 (when (equal type (flymake-ler-type (nth idx line-err-info-list)))
735 (setq err-count (+ err-count (flymake-get-line-err-count (nth 1 (nth idx err-info-list)) type)))
739 (defun flymake-fix-line-numbers (err-info-list min-line max-line)
740 "Replace line numbers with fixed value.
741 If line-numbers is less than MIN-LINE, set line numbers to MIN-LINE.
742 If line numbers is greater than MAX-LINE, set line numbers to MAX-LINE.
744 line number outside the file being compiled."
747 (line 0))
750 (setq line (flymake-er-get-line err-info))
751 (when (or (< line min-line) (> line max-line))
752 (setq line (if (< line min-line) min-line max-line))
754 (flymake-er-make-er line
755 (flymake-er-get-line-err-info-list err-info)))))
763 (flymake-highlight-line (car err) (nth 1 err)))))
815 (defun flymake-highlight-line (line-no line-err-info-list)
816 "Highlight line LINE-NO in current buffer.
818 (goto-line line-no)
819 (let* ((line-beg (flymake-line-beginning-position))
820 (line-end (flymake-line-end-position))
821 (beg line-beg)
822 (end line-end)
823 (tooltip-text (flymake-ler-text (nth 0 line-err-info-list)))
826 (goto-char line-beg)
832 (goto-char line-end)
839 (setq beg line-beg)
840 (setq end line-end))
843 (goto-char end)
844 (forward-line)
847 (if (> (flymake-get-line-err-count line-err-info-list "e") 0)
857 (line-err-info nil)
863 (setq line-err-info (flymake-parse-line (nth idx lines)))
864 (when line-err-info
866 (flymake-ler-file line-err-info)))
867 (setq line-err-info (flymake-ler-set-full-file line-err-info real-file-name))
870 (setq line-err-info (flymake-ler-set-file line-err-info nil))
871 (setq line-err-info (flymake-ler-set-file line-err-info (file-name-nondirectory real-file-name))))
873 (setq err-info-list (flymake-add-err-info err-info-list line-err-info)))
874 (flymake-log 3 "parsed '%s', %s line-err-info" (nth idx lines) (if line-err-info "got" "no"))
891 (defun flymake-reformat-err-line-patterns-from-compile-el (original-list)
892 "Grab error line patterns from ORIGINAL-LIST in compile.el format.
899 (line (nth 2 item))
902 (if (consp line) (setq line (car line)))
905 (when (not (functionp line))
906 (setq converted-list (cons (list regexp file line col) converted-list)))))
911 (defvar flymake-err-line-patterns ; regexp file-idx line-idx col-idx (optional) text-idx(optional), match-end to end of string is error text
921 ("midl[ ]*:[ ]*\\(command line error .*\\)"
927 ("\\(.*\\) at \\([^ \n]+\\) line \\([0-9]+\\)[,.\n]" 2 3 nil 1)
928 ;; LaTeX warnings (fileless) ("\\(LaTeX \\(Warning\\|Error\\): .*\\) on input line \\([0-9]+\\)" 20 3 nil 1)
933 (flymake-reformat-err-line-patterns-from-compile-el compilation-error-regexp-alist-alist))
936 Use `flymake-reformat-err-line-patterns-from-compile-el' to add patterns
939 ;;(defcustom flymake-err-line-patterns
947 ;; "patterns for matching error/warning lines, (regexp file-idx line-idx err-text-idx)"
952 (defun flymake-parse-line (line)
956 (line-no 0)
959 (patterns flymake-err-line-patterns)
962 (when (string-match (car (car patterns)) line)
964 (line-idx (nth 2 (car patterns))))
966 (setq raw-file-name (if file-idx (match-string file-idx line) nil))
967 (setq line-no (if line-idx (string-to-number (match-string line-idx line)) 0))
969 (match-string (nth 4 (car patterns)) line)
970 (flymake-patch-err-text (substring line (match-end 0)))))
975 (flymake-log 3 "parse line: file-idx=%s line-idx=%s file=%s line=%s text=%s" file-idx line-idx
976 raw-file-name line-no err-text)
980 (flymake-ler-make-ler raw-file-name line-no err-type err-text)
983 (defun flymake-find-err-info (err-info-list line-no)
984 "Find (line-err-info-list pos) for specified LINE-NO."
986 (let* ((line-err-info-list nil)
990 (while (and (< pos count) (< (car (nth pos err-info-list)) line-no))
992 (when (and (< pos count) (equal (car (nth pos err-info-list)) line-no))
993 (setq line-err-info-list (flymake-er-get-line-err-info-list (nth pos err-info-list))))
994 (list line-err-info-list pos))
997 (defun flymake-line-err-info-is-less-or-equal (line-one line-two)
998 (or (string< (flymake-ler-type line-one) (flymake-ler-type line-two))
999 (and (string= (flymake-ler-type line-one) (flymake-ler-type line-two))
1000 (not (flymake-ler-file line-one)) (flymake-ler-file line-two))
1001 (and (string= (flymake-ler-type line-one) (flymake-ler-type line-two))
1002 (or (and (flymake-ler-file line-one) (flymake-ler-file line-two))
1003 (and (not (flymake-ler-file line-one)) (not (flymake-ler-file line-two)))))))
1005 (defun flymake-add-line-err-info (line-err-info-list line-err-info)
1009 the predicate `flymake-line-err-info-is-less-or-equal'.
1011 (if (not line-err-info-list)
1012 (list line-err-info)
1013 (let* ((count (length line-err-info-list))
1015 (while (and (< idx count) (flymake-line-err-info-is-less-or-equal (nth idx line-err-info-list) line-err-info))
1017 (cond ((equal 0 idx) (setq line-err-info-list (cons line-err-info line-err-info-list)))
1018 (t (setq line-err-info-list (flymake-ins-after line-err-info-list (1- idx) line-err-info))))
1019 line-err-info-list)))
1021 (defun flymake-add-err-info (err-info-list line-err-info)
1026 (let* ((line-no (if (flymake-ler-file line-err-info) 1 (flymake-ler-line line-err-info)))
1027 (info-and-pos (flymake-find-err-info err-info-list line-no))
1030 (line-err-info-list nil)
1034 (setq line-err-info-list (flymake-er-get-line-err-info-list (car (nthcdr pos err-info-list)))))
1035 (setq line-err-info-list (flymake-add-line-err-info line-err-info-list line-err-info))
1037 (setq err-info (flymake-er-make-er line-no line-err-info-list))
1049 (let* ((command-line (concat "make -C "
1052 (output (shell-command-to-string command-line))
1229 (defun flymake-current-line-no ()
1230 "Return number of current line in current buffer."
1237 (defun flymake-display-err-menu-for-current-line ()
1238 "Display a menu with errors/warnings for current line if it has errors and/or warnings."
1240 (let* ((line-no (flymake-current-line-no))
1241 (line-err-info-list (nth 0 (flymake-find-err-info flymake-err-info line-no)))
1242 (menu-data (flymake-make-err-menu-data line-no line-err-info-list))
1250 (flymake-log 1 "no errors for line %d" line-no))))
1252 (defun flymake-make-err-menu-data (line-no line-err-info-list)
1255 (when line-err-info-list
1256 (let* ((count (length line-err-info-list))
1259 (setq menu-item-text (flymake-ler-text (nth (1- count) line-err-info-list)))
1260 (let* ((file (flymake-ler-file (nth (1- count) line-err-info-list)))
1261 (full-file (flymake-ler-full-file (nth (1- count) line-err-info-list)))
1262 (line (flymake-ler-line (nth (1- count) line-err-info-list))))
1264 (setq menu-item-text (concat menu-item-text " - " file "(" (format "%d" line) ")")))
1266 (if file (list 'flymake-goto-file-and-line full-file line) nil))
1271 (let* ((menu-title (format "Line %d: %d error(s), %d warning(s)" line-no
1272 (flymake-get-line-err-count line-err-info-list "e")
1273 (flymake-get-line-err-count line-err-info-list "w"))))
1277 (defun flymake-goto-file-and-line (file line)
1278 "Try to get buffer for FILE and goto line LINE in it."
1283 (goto-line line))))
1286 (defvar flymake-mode-line nil)
1288 (make-variable-buffer-local 'flymake-mode-line)
1290 (defvar flymake-mode-line-e-w nil)
1292 (make-variable-buffer-local 'flymake-mode-line-e-w)
1294 (defvar flymake-mode-line-status nil)
1296 (make-variable-buffer-local 'flymake-mode-line-status)
1299 "Show status in mode line."
1301 (setq flymake-mode-line-e-w e-w))
1303 (setq flymake-mode-line-status status))
1304 (let* ((mode-line " Flymake"))
1305 (when (> (length flymake-mode-line-e-w) 0)
1306 (setq mode-line (concat mode-line ":" flymake-mode-line-e-w)))
1307 (setq mode-line (concat mode-line flymake-mode-line-status))
1308 (setq flymake-mode-line mode-line)
1309 (force-mode-line-update)))
1339 :group 'flymake :lighter flymake-mode-line
1396 (flymake-log 3 "starting syntax check as new-line has been seen")
1421 (defun flymake-get-first-err-line-no (err-info-list)
1422 "Return first line with error."
1424 (flymake-er-get-line (car err-info-list))))
1426 (defun flymake-get-last-err-line-no (err-info-list)
1427 "Return last line with error."
1429 (flymake-er-get-line (nth (1- (length err-info-list)) err-info-list))))
1431 (defun flymake-get-next-err-line-no (err-info-list line-no)
1432 "Return next line with error."
1436 (while (and (< idx count) (>= line-no (flymake-er-get-line (nth idx err-info-list))))
1439 (flymake-er-get-line (nth idx err-info-list))))))
1441 (defun flymake-get-prev-err-line-no (err-info-list line-no)
1442 "Return previous line with error."
1445 (while (and (> count 0) (<= line-no (flymake-er-get-line (nth (1- count) err-info-list))))
1448 (flymake-er-get-line (nth (1- count) err-info-list))))))
1455 (defun flymake-goto-line (line-no)
1456 "Go to line LINE-NO, then skip whitespace."
1457 (goto-line line-no)
1460 (defun flymake-goto-next-error ()
1463 (let ((line-no (flymake-get-next-err-line-no flymake-err-info (flymake-current-line-no))))
1464 (when (not line-no)
1465 (setq line-no (flymake-get-first-err-line-no flymake-err-info))
1467 (if line-no
1468 (flymake-goto-line line-no)
1471 (defun flymake-goto-prev-error ()
1474 (let ((line-no (flymake-get-prev-err-line-no flymake-err-info (flymake-current-line-no))))
1475 (when (not line-no)
1476 (setq line-no (flymake-get-last-err-line-no flymake-err-info))
1478 (if line-no
1479 (flymake-goto-line line-no)
1650 (defun flymake-get-syntax-check-program-args (source-file-name base-dir use-relative-base-dir use-relative-source get-cmd-line-f)
1651 "Create a command line for syntax check using GET-CMD-LINE-F."
1652 (funcall get-cmd-line-f
1678 "Create syntax check command line for a directly checked source file.
1694 "Create make command line for a source file checked via master file compilation."