Lines Matching +defs:message +defs:goto +defs:keywords
37 ;; COLUMN and LINE are numbers parsed from an error message. COLUMN and maybe
38 ;; LINE will be nil for a message that doesn't contain them. Then the
50 ;; FILENAME is a string parsed from an error message. DIRECTORY is a string
62 ;; TYPE is 0 for info or 1 for warning if the message matcher identified it as
64 ;; other end, if the parsed message contained a range. If the end of the
66 ;; These are the value of the `message' text-properties in the compilation
74 (defvar font-lock-keywords)
145 "Stem of message to print when no matches are found.")
229 ;; the last line tries to rule out message where the info after the
241 ;; included from" message, so we process that first. -- cyd
381 `compilation-message-face' applied. If this is nil, the text
384 Additional HIGHLIGHTs as described under `font-lock-keywords' can
406 LEAVE'th subexpression doesn't match, this message is about going into another
407 directory. If it does match anything, this message is about going back to the
408 directory we were in before the last entering message. If you change this,
415 (defvar compilation-mode-font-lock-keywords
425 (0 '(face nil message nil help-echo nil mouse-face nil) t)
428 (0 '(face nil message nil help-echo nil mouse-face nil) t)
511 (defvar compilation-exit-message-function nil "\
512 If non-nil, called when a compilation process dies to return a status message.
514 and exit message; it returns a cons (MESSAGE . MODELINE) of the strings to
565 (defcustom compilation-message-face 'underline
611 ;; change message. The directory property is important, because it is
670 ;; This message didn't mention one, get it from previous
672 ;; Find the previous message.
673 (previous-single-property-change (point) 'message)))
677 (or (get-text-property (1- prev-pos) 'message)
678 (get-text-property prev-pos 'message)))
688 ;; it matched some part of the message.
718 (goto-char (min (+ (line-beginning-position) col) (line-end-position)))))
752 (goto-char (marker-position marker))
783 `(face ,compilation-message-face
784 message (,loc ,type ,end-loc)
786 `(debug (,(assoc (with-no-warnings matcher) font-lock-keywords)
796 (defun compilation-mode-font-lock-keywords ()
868 append))))) ; for compilation-message-face
871 compilation-mode-font-lock-keywords)))
881 You can then use the command \\[next-error] to find the next error message
963 (defun compile-internal (command error-message
975 "\\1" error-message)))
1057 (goto-char (point-max)))
1113 (message "Executing `%s'..." command)
1138 (message "Executing `%s'...done" command)))
1144 (goto-char (point-max))))
1178 (define-key map [mouse-2] 'compile-goto-error)
1180 (define-key map "\C-c\C-c" 'compile-goto-error)
1181 (define-key map "\C-m" 'compile-goto-error)
1195 (define-key map "\M-\C-m" 'compile-goto-error)
1208 (define-key map [mouse-2] 'compile-goto-error)
1210 (define-key map "\C-m" 'compile-goto-error)
1212 "Keymap for compilation-message buttons.")
1220 (define-key map [mouse-2] 'compile-goto-error)
1222 (define-key map "\C-c\C-c" 'compile-goto-error)
1223 (define-key map "\C-m" 'compile-goto-error)
1274 from a different message."
1283 move point to the error message line and type \\[compile-goto-error].
1328 compilation-mode-font-lock-keywords
1347 The global commands next/previous/first-error/goto-error use this.")
1373 '(directory message help-echo mouse-face debug))
1376 ;; lazy-lock would never find the message unless it's scrolled to.
1382 (font-lock-add-keywords nil (compilation-mode-font-lock-keywords))
1389 (setq font-lock-defaults '(compilation-mode-font-lock-keywords t))
1405 (font-lock-remove-keywords nil (compilation-mode-font-lock-keywords))
1419 (font-lock-remove-keywords nil (compilation-mode-font-lock-keywords))
1425 (status (if compilation-exit-message-function
1426 (funcall compilation-exit-message-function
1432 ;; Record where we put the message, so we can ignore it later on.
1433 (goto-char omax)
1437 (message "%s" (cdr status)))
1441 (goto-char (point-max))
1442 ;; Prevent that message from being recognized as a compilation error.
1449 (goto-char opoint))
1482 (goto-char (process-mark proc))
1501 (or (setq pt (,property-change pt 'message))
1502 ;; Handle the case where where the first error message is
1504 (if (or (eq (get-text-property ,limit 'message)
1505 (get-text-property opt 'message))
1509 ;; prop 'message usually has 2 changes, on and off, so
1511 (or (setq msg (get-text-property pt 'message))
1512 (if (setq pt (,property-change pt 'message nil ,limit))
1513 (setq msg (get-text-property pt 'message)))
1523 ;; count this message only if none of the above are true
1535 (let* ((msg (get-text-property pt 'message))
1539 (unless (or msg ; find message near here
1541 'message)))
1542 (setq pt (previous-single-property-change pt 'message nil
1544 (unless (setq msg (get-text-property (max (1- pt) (point-min)) 'message))
1545 (setq pt (next-single-property-change pt 'message nil
1547 (or (setq msg (get-text-property pt 'message))
1556 ;; Don't move "back" to message at or before point.
1558 (setq pt (previous-single-property-change pt 'message nil (point-min)))
1561 (goto-char pt)
1593 (defalias 'compile-mouse-goto-error 'compile-goto-error)
1595 (defun compile-goto-error (&optional event)
1596 "Visit the source for the error message at point.
1617 "Advance to the next error message and visit the file where the error was.
1644 (goto-char (point-min))
1661 (compilation-goto-locus marker (nth 3 loc) (nth 3 end-loc))
1674 message about FILE appears!
1688 ;; of an error message referring to `file', the data is only kept is the
1700 "Display this many lines of leading context before the current message.
1703 the current message. If nil and there is no left fringe, the message
1713 (goto-char mk)
1720 (goto-char mk)
1727 (defun compilation-goto-locus (msg mk end-mk)
1764 (unless (eq (goto-char mk) (point))
1766 (goto-char mk))
1775 (goto-char mk)))
1786 (if end-mk (goto-char end-mk) (end-of-line))
1788 (if mk (goto-char mk) (beginning-of-line))
1792 (goto-char (match-beginning 0))
1802 'compilation-goto-locus-delete-o)
1810 'compilation-goto-locus-delete-o)))))))
1816 (defun compilation-goto-locus-delete-o ()
1822 'compilation-goto-locus-delete-o))
1870 (message "Cannot find file `%s'" name)
1875 (message "No `%s' in directory %s" filename origname)
1946 "Map old-style error ERR to new-style message."
1953 message ,(list (list nil nil nil dst) 2)
1969 ;; FIXME: We should remove the rest of the compilation keywords
1978 ;; because font-lock has just removed the `message' property so
1996 (goto-char src)
1999 'message (list loc 2)))))))
2000 (goto-char limit)