flymake.el 72.3 KB
Newer Older
Eli Zaretskii's avatar
Eli Zaretskii committed
1 2
;;; flymake.el -- a universal on-the-fly syntax checker

3
;; Copyright (C) 2003-2013 Free Software Foundation, Inc.
Eli Zaretskii's avatar
Eli Zaretskii committed
4

5 6
;; Author:  Pavel Kobyakov <pk_at_work@yahoo.com>
;; Maintainer: Pavel Kobyakov <pk_at_work@yahoo.com>
Eli Zaretskii's avatar
Eli Zaretskii committed
7 8 9 10 11
;; Version: 0.3
;; Keywords: c languages tools

;; This file is part of GNU Emacs.

12
;; GNU Emacs is free software: you can redistribute it and/or modify
Eli Zaretskii's avatar
Eli Zaretskii committed
13
;; it under the terms of the GNU General Public License as published by
14 15
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.
Eli Zaretskii's avatar
Eli Zaretskii committed
16 17 18 19 20 21 22

;; GNU Emacs is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;; GNU General Public License for more details.

;; You should have received a copy of the GNU General Public License
23
;; along with GNU Emacs.  If not, see <http://www.gnu.org/licenses/>.
Eli Zaretskii's avatar
Eli Zaretskii committed
24 25 26 27 28 29 30

;;; Commentary:
;;
;; Flymake is a minor Emacs mode performing on-the-fly syntax
;; checks using the external syntax check tool (for C/C++ this
;; is usually the compiler)

Stefan Monnier's avatar
Stefan Monnier committed
31 32 33 34 35
;;; Bugs/todo:

;; - Only uses "Makefile", not "makefile" or "GNUmakefile"
;;   (from http://bugs.debian.org/337339).

Eli Zaretskii's avatar
Eli Zaretskii committed
36 37
;;; Code:

38
(eval-when-compile (require 'cl-lib))
39 40
(if (featurep 'xemacs) (require 'overlay))

41 42 43
(defvar flymake-is-running nil
  "If t, flymake syntax check process is running for the current buffer.")
(make-variable-buffer-local 'flymake-is-running)
44

45 46 47
(defvar flymake-timer nil
  "Timer for starting syntax check.")
(make-variable-buffer-local 'flymake-timer)
48

49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67
(defvar flymake-last-change-time nil
  "Time of last buffer change.")
(make-variable-buffer-local 'flymake-last-change-time)

(defvar flymake-check-start-time nil
  "Time at which syntax check was started.")
(make-variable-buffer-local 'flymake-check-start-time)

(defvar flymake-check-was-interrupted nil
  "Non-nil if syntax check was killed by `flymake-compile'.")
(make-variable-buffer-local 'flymake-check-was-interrupted)

(defvar flymake-err-info nil
  "Sorted list of line numbers and lists of err info in the form (file, err-text).")
(make-variable-buffer-local 'flymake-err-info)

(defvar flymake-new-err-info nil
  "Same as `flymake-err-info', effective when a syntax check is in progress.")
(make-variable-buffer-local 'flymake-new-err-info)
68

Eli Zaretskii's avatar
Eli Zaretskii committed
69
;;;; [[ cross-emacs compatibility routines
Kim F. Storm's avatar
Kim F. Storm committed
70 71 72
(defsubst flymake-makehash (&optional test)
  (if (fboundp 'make-hash-table)
      (if test (make-hash-table :test test) (make-hash-table))
73 74
    (with-no-warnings
      (makehash test))))
Richard M. Stallman's avatar
Richard M. Stallman committed
75

Stefan Monnier's avatar
Stefan Monnier committed
76 77 78
(defalias 'flymake-float-time
  (if (fboundp 'float-time)
      'float-time
79 80
    (if (featurep 'xemacs)
	(lambda ()
Deepak Goel's avatar
Deepak Goel committed
81
	  (multiple-value-bind (s0 s1 s2) (values-list (current-time))
82
	    (+ (* (float (ash 1 16)) s0) (float s1) (* 0.0000001 s2)))))))
Kim F. Storm's avatar
Kim F. Storm committed
83

84 85 86 87 88 89 90 91 92 93 94 95
(defalias 'flymake-replace-regexp-in-string
  (if (eval-when-compile (fboundp 'replace-regexp-in-string))
      'replace-regexp-in-string
    (lambda (regexp rep str)
      (replace-in-string str regexp rep))))

(defalias 'flymake-split-string
  (if (condition-case nil (equal (split-string " bc " " " t) '("bc"))
        (error nil))
      (lambda (str pattern) (split-string str pattern t))
    (lambda (str pattern)
      "Split STR into a list of substrings bounded by PATTERN.
Richard M. Stallman's avatar
Richard M. Stallman committed
96
Zero-length substrings at the beginning and end of the list are omitted."
97
      (let ((split (split-string str pattern)))
98 99 100 101
        (while (equal (car split) "") (setq split (cdr split)))
        (setq split (nreverse split))
        (while (equal (car split) "") (setq split (cdr split)))
        (nreverse split)))))
102 103

(defalias 'flymake-get-temp-dir
Stefan Monnier's avatar
Stefan Monnier committed
104
  (if (fboundp 'temp-directory)
105 106
      'temp-directory
    (lambda () temporary-file-directory)))
Eli Zaretskii's avatar
Eli Zaretskii committed
107

108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131
(defun flymake-posn-at-point-as-event (&optional position window dx dy)
  "Return pixel position of top left corner of glyph at POSITION,
relative to top left corner of WINDOW, as a mouse-1 click
event (identical to the event that would be triggered by clicking
mouse button 1 at the top left corner of the glyph).

POSITION and WINDOW default to the position of point in the
selected window.

DX and DY specify optional offsets from the top left of the glyph."
  (unless window (setq window (selected-window)))
  (unless position (setq position (window-point window)))
  (unless dx (setq dx 0))
  (unless dy (setq dy 0))

  (let* ((pos (posn-at-point position window))
         (x-y (posn-x-y pos))
         (edges (window-inside-pixel-edges window))
         (win-x-y (window-pixel-edges window)))
    ;; adjust for window edges
    (setcar (nthcdr 2 pos)
            (cons (+ (car x-y) (car  edges) (- (car win-x-y))  dx)
                  (+ (cdr x-y) (cadr edges) (- (cadr win-x-y)) dy)))
    (list 'mouse-1 pos)))
132 133 134

(defun flymake-popup-menu (menu-data)
  "Pop up the flymake menu at point, using the data MENU-DATA.
Richard M. Stallman's avatar
Richard M. Stallman committed
135 136 137 138 139
POS is a list of the form ((X Y) WINDOW), where X and Y are
pixels positions from the top left corner of WINDOW's frame.
MENU-DATA is a list of error and warning messages returned by
`flymake-make-err-menu-data'."
  (if (featurep 'xemacs)
140 141 142
      (let* ((pos         (flymake-get-point-pixel-pos))
             (x-pos       (nth 0 pos))
	     (y-pos       (nth 1 pos))
Kim F. Storm's avatar
Kim F. Storm committed
143 144 145
	     (fake-event-props  '(button 1 x 1 y 1)))
	(setq fake-event-props (plist-put fake-event-props 'x x-pos))
	(setq fake-event-props (plist-put fake-event-props 'y y-pos))
146 147 148
	(popup-menu (flymake-make-xemacs-menu menu-data)
                    (make-event 'button-press fake-event-props)))
    (x-popup-menu (if (eval-when-compile (fboundp 'posn-at-point))
149
                      (flymake-posn-at-point-as-event)
150 151
                    (list (flymake-get-point-pixel-pos) (selected-window)))
                  (flymake-make-emacs-menu menu-data))))
Eli Zaretskii's avatar
Eli Zaretskii committed
152

Richard M. Stallman's avatar
Richard M. Stallman committed
153
(defun flymake-make-emacs-menu (menu-data)
Richard M. Stallman's avatar
Richard M. Stallman committed
154 155 156 157
  "Return a menu specifier using MENU-DATA.
MENU-DATA is a list of error and warning messages returned by
`flymake-make-err-menu-data'.
See `x-popup-menu' for the menu specifier format."
Richard M. Stallman's avatar
Richard M. Stallman committed
158 159
  (let* ((menu-title     (nth 0 menu-data))
	 (menu-items     (nth 1 menu-data))
160 161 162
	 (menu-commands  (mapcar (lambda (foo)
                                   (cons (nth 0 foo) (nth 1 foo)))
                                 menu-items)))
Richard M. Stallman's avatar
Richard M. Stallman committed
163
    (list menu-title (cons "" menu-commands))))
Eli Zaretskii's avatar
Eli Zaretskii committed
164

Kim F. Storm's avatar
Kim F. Storm committed
165 166
(if (featurep 'xemacs) (progn

Stefan Monnier's avatar
Stefan Monnier committed
167 168
(defun flymake-nop ())

169
(defun flymake-make-xemacs-menu (menu-data)
Richard M. Stallman's avatar
Richard M. Stallman committed
170
  "Return a menu specifier using MENU-DATA."
Richard M. Stallman's avatar
Richard M. Stallman committed
171 172 173 174 175 176 177 178
  (let* ((menu-title     (nth 0 menu-data))
	 (menu-items     (nth 1 menu-data))
	 (menu-commands  nil))
    (setq menu-commands (mapcar (lambda (foo)
				  (vector (nth 0 foo) (or (nth 1 foo) '(flymake-nop)) t))
				menu-items))
    (cons menu-title menu-commands)))

Kim F. Storm's avatar
Kim F. Storm committed
179 180
)) ;; xemacs

181 182
(unless (eval-when-compile (fboundp 'posn-at-point))

Richard M. Stallman's avatar
Richard M. Stallman committed
183 184
(defun flymake-current-row ()
  "Return current row number in current frame."
Stefan Monnier's avatar
Stefan Monnier committed
185 186 187
  (if (fboundp 'window-edges)
      (+ (car (cdr (window-edges))) (count-lines (window-start) (point)))
    (count-lines (window-start) (point))))
Richard M. Stallman's avatar
Richard M. Stallman committed
188 189

(defun flymake-selected-frame ()
Stefan Monnier's avatar
Stefan Monnier committed
190 191 192
  (if (fboundp 'window-edges)
      (selected-frame)
    (selected-window)))
Eli Zaretskii's avatar
Eli Zaretskii committed
193

194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211
(defun flymake-get-point-pixel-pos ()
  "Return point position in pixels: (x, y)."
  (let ((mouse-pos  (mouse-position))
	(pixel-pos  nil)
	(ret        nil))
    (if (car (cdr mouse-pos))
	(progn
	  (set-mouse-position (flymake-selected-frame) (current-column) (flymake-current-row))
	  (setq pixel-pos (mouse-pixel-position))
	  (set-mouse-position (car mouse-pos) (car (cdr mouse-pos)) (cdr (cdr mouse-pos)))
	  (setq ret (list (car (cdr pixel-pos)) (cdr (cdr pixel-pos)))))
      (progn
	(setq ret '(0 0))))
    (flymake-log 3 "mouse pos is %s" ret)
    ret))

) ;; End of (unless (fboundp 'posn-at-point)

Eli Zaretskii's avatar
Eli Zaretskii committed
212 213 214
;;;; ]]

(defcustom flymake-log-level -1
Stefan Monnier's avatar
Stefan Monnier committed
215
  "Logging level, only messages with level lower or equal will be logged.
Eli Zaretskii's avatar
Eli Zaretskii committed
216
-1 = NONE, 0 = ERROR, 1 = WARNING, 2 = INFO, 3 = DEBUG"
Richard M. Stallman's avatar
Richard M. Stallman committed
217 218
  :group 'flymake
  :type 'integer)
Eli Zaretskii's avatar
Eli Zaretskii committed
219

220
(defun flymake-log (level text &rest args)
Richard M. Stallman's avatar
Richard M. Stallman committed
221 222 223 224 225
  "Log a message at level LEVEL.
If LEVEL is higher than `flymake-log-level', the message is
ignored.  Otherwise, it is printed using `message'.
TEXT is a format control string, and the remaining arguments ARGS
are the string substitutions (see `format')."
Richard M. Stallman's avatar
Richard M. Stallman committed
226 227
  (if (<= level flymake-log-level)
      (let* ((msg (apply 'format text args)))
228
	(message "%s" msg)
Richard M. Stallman's avatar
Richard M. Stallman committed
229 230 231
	;;(with-temp-buffer
	;;    (insert msg)
	;;   (insert "\n")
232
	;;   (flymake-save-buffer-in-file "d:/flymake.log" t)  ; make log file name customizable
Richard M. Stallman's avatar
Richard M. Stallman committed
233
	;;)
234
	)))
Eli Zaretskii's avatar
Eli Zaretskii committed
235

236
(defun flymake-ins-after (list pos val)
Richard M. Stallman's avatar
Richard M. Stallman committed
237 238 239 240
  "Insert VAL into LIST after position POS."
  (let ((tmp (copy-sequence list)))	; (???)
    (setcdr (nthcdr pos tmp) (cons val (nthcdr (1+ pos) tmp)))
    tmp))
Eli Zaretskii's avatar
Eli Zaretskii committed
241

242
(defun flymake-set-at (list pos val)
243
  "Set VAL at position POS in LIST."
Richard M. Stallman's avatar
Richard M. Stallman committed
244 245 246
  (let ((tmp (copy-sequence list)))	; (???)
    (setcar (nthcdr pos tmp) val)
    tmp))
Eli Zaretskii's avatar
Eli Zaretskii committed
247

248 249
(defvar flymake-processes nil
  "List of currently active flymake processes.")
Eli Zaretskii's avatar
Eli Zaretskii committed
250

251
(defvar flymake-output-residual nil)
252

Eli Zaretskii's avatar
Eli Zaretskii committed
253
(make-variable-buffer-local 'flymake-output-residual)
254

255
(defgroup flymake nil
256
  "Universal on-the-fly syntax checker."
257 258 259
  :version "23.1"
  :group 'tools)

Richard M. Stallman's avatar
Richard M. Stallman committed
260
(defcustom flymake-allowed-file-name-masks
261
  '(("\\.\\(?:c\\(?:pp\\|xx\\|\\+\\+\\)?\\|CC\\)\\'" flymake-simple-make-init)
262 263 264
    ("\\.xml\\'" flymake-xml-init)
    ("\\.html?\\'" flymake-xml-init)
    ("\\.cs\\'" flymake-simple-make-init)
265 266
    ("\\.p[ml]\\'" flymake-perl-init)
    ("\\.php[345]?\\'" flymake-php-init)
267 268 269
    ("\\.h\\'" flymake-master-make-header-init flymake-master-cleanup)
    ("\\.java\\'" flymake-simple-make-java-init flymake-simple-java-cleanup)
    ("[0-9]+\\.tex\\'" flymake-master-tex-init flymake-master-cleanup)
270 271
    ("\\.tex\\'" flymake-simple-tex-init)
    ("\\.idl\\'" flymake-simple-make-init)
272 273 274
    ;; ("\\.cpp\\'" 1)
    ;; ("\\.java\\'" 3)
    ;; ("\\.h\\'" 2 ("\\.cpp\\'" "\\.c\\'")
275
    ;; ("[ \t]*#[ \t]*include[ \t]*\"\\([\w0-9/\\_\.]*[/\\]*\\)\\(%s\\)\"" 1 2))
276 277 278
    ;; ("\\.idl\\'" 1)
    ;; ("\\.odl\\'" 1)
    ;; ("[0-9]+\\.tex\\'" 2 ("\\.tex\\'")
279
    ;; ("[ \t]*\\input[ \t]*{\\(.*\\)\\(%s\\)}" 1 2 ))
280
    ;; ("\\.tex\\'" 1)
Richard M. Stallman's avatar
Richard M. Stallman committed
281
    )
282 283 284 285 286 287 288
  "Files syntax checking is allowed for.
This is an alist with elements of the form:
  REGEXP INIT [CLEANUP [NAME]]
REGEXP is a regular expression that matches a file name.
INIT is the init function to use.
CLEANUP is the cleanup function to use, default `flymake-simple-cleanup'.
NAME is the file name function to use, default `flymake-get-real-file-name'."
Richard M. Stallman's avatar
Richard M. Stallman committed
289
  :group 'flymake
290 291 292 293 294 295 296 297 298 299
  :type '(alist :key-type (regexp :tag "File regexp")
                :value-type
                (list :tag "Handler functions"
                      (function :tag "Init function")
                      (choice :tag "Cleanup function"
                              (const :tag "flymake-simple-cleanup" nil)
                              function)
                      (choice :tag "Name function"
                              (const :tag "flymake-get-real-file-name" nil)
                              function))))
Eli Zaretskii's avatar
Eli Zaretskii committed
300

301
(defun flymake-get-file-name-mode-and-masks (file-name)
302
  "Return the corresponding entry from `flymake-allowed-file-name-masks'."
Richard M. Stallman's avatar
Richard M. Stallman committed
303 304
  (unless (stringp file-name)
    (error "Invalid file-name"))
305
  (let ((fnm flymake-allowed-file-name-masks)
Richard M. Stallman's avatar
Richard M. Stallman committed
306
	(mode-and-masks  nil))
307 308 309 310
    (while (and (not mode-and-masks) fnm)
      (if (string-match (car (car fnm)) file-name)
	  (setq mode-and-masks (cdr (car fnm))))
      (setq fnm (cdr fnm)))
Richard M. Stallman's avatar
Richard M. Stallman committed
311 312
    (flymake-log 3 "file %s, init=%s" file-name (car mode-and-masks))
    mode-and-masks))
Eli Zaretskii's avatar
Eli Zaretskii committed
313

314
(defun flymake-can-syntax-check-file (file-name)
Richard M. Stallman's avatar
Richard M. Stallman committed
315
  "Determine whether we can syntax check FILE-NAME.
316
Return nil if we cannot, non-nil if we can."
Richard M. Stallman's avatar
Richard M. Stallman committed
317
  (if (flymake-get-init-function file-name) t nil))
Eli Zaretskii's avatar
Eli Zaretskii committed
318

319
(defun flymake-get-init-function (file-name)
Richard M. Stallman's avatar
Richard M. Stallman committed
320 321
  "Return init function to be used for the file."
  (let* ((init-f  (nth 0 (flymake-get-file-name-mode-and-masks file-name))))
322 323
    ;;(flymake-log 0 "calling %s" init-f)
    ;;(funcall init-f (current-buffer))
Richard M. Stallman's avatar
Richard M. Stallman committed
324
    init-f))
Eli Zaretskii's avatar
Eli Zaretskii committed
325

326
(defun flymake-get-cleanup-function (file-name)
Richard M. Stallman's avatar
Richard M. Stallman committed
327
  "Return cleanup function to be used for the file."
328 329
  (or (nth 1 (flymake-get-file-name-mode-and-masks file-name))
      'flymake-simple-cleanup))
Eli Zaretskii's avatar
Eli Zaretskii committed
330

331
(defun flymake-get-real-file-name-function (file-name)
332 333
  (or (nth 2 (flymake-get-file-name-mode-and-masks file-name))
      'flymake-get-real-file-name))
Eli Zaretskii's avatar
Eli Zaretskii committed
334 335 336

(defvar flymake-find-buildfile-cache (flymake-makehash 'equal))

337
(defun flymake-get-buildfile-from-cache (dir-name)
Richard M. Stallman's avatar
Richard M. Stallman committed
338
  (gethash dir-name flymake-find-buildfile-cache))
339 340

(defun flymake-add-buildfile-to-cache (dir-name buildfile)
Richard M. Stallman's avatar
Richard M. Stallman committed
341
  (puthash dir-name buildfile flymake-find-buildfile-cache))
342 343

(defun flymake-clear-buildfile-cache ()
Richard M. Stallman's avatar
Richard M. Stallman committed
344
  (clrhash flymake-find-buildfile-cache))
345

346
(defun flymake-find-buildfile (buildfile-name source-dir-name)
Richard M. Stallman's avatar
Richard M. Stallman committed
347
  "Find buildfile starting from current directory.
348
Buildfile includes Makefile, build.xml etc.
Richard M. Stallman's avatar
Richard M. Stallman committed
349
Return its file name if found, or nil if not found."
350
  (or (flymake-get-buildfile-from-cache source-dir-name)
351
      (let* ((file (locate-dominating-file source-dir-name buildfile-name)))
352
        (if file
353
            (progn
354 355 356
              (flymake-log 3 "found buildfile at %s" file)
              (flymake-add-buildfile-to-cache source-dir-name file)
              file)
357 358 359
          (progn
            (flymake-log 3 "buildfile for %s not found" source-dir-name)
            nil)))))
Richard M. Stallman's avatar
Richard M. Stallman committed
360 361

(defun flymake-fix-file-name (name)
362
  "Replace all occurrences of '\' with '/'."
Richard M. Stallman's avatar
Richard M. Stallman committed
363
  (when name
364 365 366 367
    (setq name (expand-file-name name))
    (setq name (abbreviate-file-name name))
    (setq name (directory-file-name name))
    name))
Eli Zaretskii's avatar
Eli Zaretskii committed
368

369
(defun flymake-same-files (file-name-one file-name-two)
Richard M. Stallman's avatar
Richard M. Stallman committed
370
  "Check if FILE-NAME-ONE and FILE-NAME-TWO point to same file.
371
Return t if so, nil if not."
Richard M. Stallman's avatar
Richard M. Stallman committed
372 373 374
  (equal (flymake-fix-file-name file-name-one)
	 (flymake-fix-file-name file-name-two)))

Eli Zaretskii's avatar
Eli Zaretskii committed
375
(defcustom flymake-master-file-dirs '("." "./src" "./UnitTest")
376
  "Dirs where to look for master files."
Richard M. Stallman's avatar
Richard M. Stallman committed
377 378
  :group 'flymake
  :type '(repeat (string)))
Eli Zaretskii's avatar
Eli Zaretskii committed
379 380

(defcustom flymake-master-file-count-limit 32
Richard M. Stallman's avatar
Richard M. Stallman committed
381 382 383
  "Max number of master files to check."
  :group 'flymake
  :type 'integer)
384

Kim F. Storm's avatar
Kim F. Storm committed
385 386
;; This is bound dynamically to pass a parameter to a sort predicate below
(defvar flymake-included-file-name)
Eli Zaretskii's avatar
Eli Zaretskii committed
387

388
(defun flymake-find-possible-master-files (file-name master-file-dirs masks)
389
  "Find (by name and location) all possible master files.
390
Master files include .cpp and .c for .h.  Files are searched for
391
starting from the .h directory and max max-level parent dirs.
Eli Zaretskii's avatar
Eli Zaretskii committed
392
File contents are not checked."
393
  (let* ((dirs master-file-dirs)
Richard M. Stallman's avatar
Richard M. Stallman committed
394
	 (files  nil)
395 396 397
	 (done   nil))

    (while (and (not done) dirs)
398
      (let* ((dir (expand-file-name (car dirs) (file-name-directory file-name)))
399 400 401 402 403 404 405 406 407 408
	     (masks masks))
	(while (and (file-exists-p dir) (not done) masks)
	  (let* ((mask        (car masks))
		 (dir-files   (directory-files dir t mask)))

	    (flymake-log 3 "dir %s, %d file(s) for mask %s"
			 dir (length dir-files) mask)
	    (while (and (not done) dir-files)
	      (when (not (file-directory-p (car dir-files)))
		(setq files (cons (car dir-files) files))
Richard M. Stallman's avatar
Richard M. Stallman committed
409 410 411
		(when (>= (length files) flymake-master-file-count-limit)
		  (flymake-log 3 "master file count limit (%d) reached" flymake-master-file-count-limit)
		  (setq done t)))
412 413 414
	      (setq dir-files (cdr dir-files))))
	  (setq masks (cdr masks))))
      (setq dirs (cdr dirs)))
Richard M. Stallman's avatar
Richard M. Stallman committed
415
    (when files
Kim F. Storm's avatar
Kim F. Storm committed
416 417
      (let ((flymake-included-file-name (file-name-nondirectory file-name)))
	(setq files (sort files 'flymake-master-file-compare))))
Richard M. Stallman's avatar
Richard M. Stallman committed
418 419
    (flymake-log 3 "found %d possible master file(s)" (length files))
    files))
Eli Zaretskii's avatar
Eli Zaretskii committed
420

421
(defun flymake-master-file-compare (file-one file-two)
422
  "Compare two files specified by FILE-ONE and FILE-TWO.
423
This function is used in sort to move most possible file names
424
to the beginning of the list (File.h -> File.cpp moved to top)."
Richard M. Stallman's avatar
Richard M. Stallman committed
425
  (and (equal (file-name-sans-extension flymake-included-file-name)
426
	      (file-name-base file-one))
Richard M. Stallman's avatar
Richard M. Stallman committed
427
       (not (equal file-one file-two))))
Eli Zaretskii's avatar
Eli Zaretskii committed
428 429

(defcustom flymake-check-file-limit 8192
Glenn Morris's avatar
Glenn Morris committed
430 431
  "Maximum number of chars to look at when checking possible master file.
Nil means search the entire file."
Richard M. Stallman's avatar
Richard M. Stallman committed
432
  :group 'flymake
Glenn Morris's avatar
Glenn Morris committed
433 434
  :type '(choice (const :tag "No limit" nil)
                 (integer :tag "Characters")))
Eli Zaretskii's avatar
Eli Zaretskii committed
435

436 437 438 439 440
(defun flymake-check-patch-master-file-buffer
       (master-file-temp-buffer
        master-file-name patched-master-file-name
        source-file-name patched-source-file-name
        include-dirs regexp)
Richard M. Stallman's avatar
Richard M. Stallman committed
441
  "Check if MASTER-FILE-NAME is a master file for SOURCE-FILE-NAME.
442 443
If yes, patch a copy of MASTER-FILE-NAME to include PATCHED-SOURCE-FILE-NAME
instead of SOURCE-FILE-NAME.
444 445 446

For example, foo.cpp is a master file if it includes foo.h.

447 448
Whether a buffer for MATER-FILE-NAME exists, use it as a source
instead of reading master file from disk."
449
  (let* ((source-file-nondir (file-name-nondirectory source-file-name))
Glenn Morris's avatar
Glenn Morris committed
450 451
         (source-file-extension (file-name-extension source-file-nondir))
         (source-file-nonext (file-name-sans-extension source-file-nondir))
452
         (found                     nil)
Richard M. Stallman's avatar
Richard M. Stallman committed
453 454
	 (inc-name                  nil)
	 (search-limit              flymake-check-file-limit))
455 456
    (setq regexp
          (format regexp	; "[ \t]*#[ \t]*include[ \t]*\"\\(.*%s\\)\""
Glenn Morris's avatar
Glenn Morris committed
457 458 459 460 461 462 463 464
                  ;; Hack for tex files, where \include often excludes .tex.
                  ;; Maybe this is safe generally.
                  (if (and (> (length source-file-extension) 1)
                           (string-equal source-file-extension "tex"))
                      (format "%s\\(?:\\.%s\\)?"
                              (regexp-quote source-file-nonext)
                              (regexp-quote source-file-extension))
                    (regexp-quote source-file-nondir))))
465 466
    (unwind-protect
        (with-current-buffer master-file-temp-buffer
Glenn Morris's avatar
Glenn Morris committed
467 468 469
          (if (or (not search-limit)
                  (> search-limit (point-max)))
              (setq search-limit (point-max)))
470 471 472 473 474 475 476 477 478 479
          (flymake-log 3 "checking %s against regexp %s"
                       master-file-name regexp)
          (goto-char (point-min))
          (while (and (< (point) search-limit)
                      (re-search-forward regexp search-limit t))
            (let ((match-beg   (match-beginning 1))
                  (match-end   (match-end 1)))

              (flymake-log 3 "found possible match for %s" source-file-nondir)
              (setq inc-name (match-string 1))
Glenn Morris's avatar
Glenn Morris committed
480 481 482 483 484
              (and (> (length source-file-extension) 1)
                   (string-equal source-file-extension "tex")
                   (not (string-match (format "\\.%s\\'" source-file-extension)
                                      inc-name))
                   (setq inc-name (concat inc-name "." source-file-extension)))
485 486 487 488 489 490 491 492 493 494 495 496 497 498 499 500 501 502 503 504
              (when (eq t (compare-strings
                           source-file-nondir nil nil
                           inc-name (- (length inc-name)
                                       (length source-file-nondir)) nil))
                (flymake-log 3 "inc-name=%s" inc-name)
                (when (flymake-check-include source-file-name inc-name
                                             include-dirs)
                  (setq found t)
                  ;;  replace-match is not used here as it fails in
                  ;; XEmacs with 'last match not a buffer' error as
                  ;; check-includes calls replace-in-string
                  (flymake-replace-region
                   match-beg match-end
                   (file-name-nondirectory patched-source-file-name))))
              (forward-line 1)))
          (when found
            (flymake-save-buffer-in-file patched-master-file-name)))
      ;;+(flymake-log 3 "killing buffer %s"
      ;;                (buffer-name master-file-temp-buffer))
      (kill-buffer master-file-temp-buffer))
505
    ;;+(flymake-log 3 "check-patch master file %s: %s" master-file-name found)
Richard M. Stallman's avatar
Richard M. Stallman committed
506 507 508
    (when found
      (flymake-log 2 "found master file %s" master-file-name))
    found))
Eli Zaretskii's avatar
Eli Zaretskii committed
509

510
(defun flymake-replace-region (beg end rep)
Richard M. Stallman's avatar
Richard M. Stallman committed
511 512
  "Replace text in BUFFER in region (BEG END) with REP."
  (save-excursion
513 514 515 516
    (goto-char end)
    ;; Insert before deleting, so as to better preserve markers's positions.
    (insert rep)
    (delete-region beg end)))
Eli Zaretskii's avatar
Eli Zaretskii committed
517

518
(defun flymake-read-file-to-temp-buffer (file-name)
Richard M. Stallman's avatar
Richard M. Stallman committed
519 520
  "Insert contents of FILE-NAME into newly created temp buffer."
  (let* ((temp-buffer (get-buffer-create (generate-new-buffer-name (concat "flymake:" (file-name-nondirectory file-name))))))
Stefan Monnier's avatar
Stefan Monnier committed
521
    (with-current-buffer temp-buffer
Richard M. Stallman's avatar
Richard M. Stallman committed
522 523
      (insert-file-contents file-name))
    temp-buffer))
Eli Zaretskii's avatar
Eli Zaretskii committed
524

525
(defun flymake-copy-buffer-to-temp-buffer (buffer)
Richard M. Stallman's avatar
Richard M. Stallman committed
526
  "Copy contents of BUFFER into newly created temp buffer."
527 528 529 530 531
  (with-current-buffer
      (get-buffer-create (generate-new-buffer-name
                          (concat "flymake:" (buffer-name buffer))))
    (insert-buffer-substring buffer)
    (current-buffer)))
Eli Zaretskii's avatar
Eli Zaretskii committed
532

533
(defun flymake-check-include (source-file-name inc-name include-dirs)
Richard M. Stallman's avatar
Richard M. Stallman committed
534
  "Check if SOURCE-FILE-NAME can be found in include path.
535 536 537 538 539 540 541 542 543 544 545
Return t if it can be found via include path using INC-NAME."
  (if (file-name-absolute-p inc-name)
      (flymake-same-files source-file-name inc-name)
    (while (and include-dirs
                (not (flymake-same-files
                      source-file-name
                      (concat (file-name-directory source-file-name)
                              "/" (car include-dirs)
                              "/" inc-name))))
      (setq include-dirs (cdr include-dirs)))
    include-dirs))
Eli Zaretskii's avatar
Eli Zaretskii committed
546

547
(defun flymake-find-buffer-for-file (file-name)
Richard M. Stallman's avatar
Richard M. Stallman committed
548
  "Check if there exists a buffer visiting FILE-NAME.
549
Return t if so, nil if not."
Richard M. Stallman's avatar
Richard M. Stallman committed
550 551 552
  (let ((buffer-name (get-file-buffer file-name)))
    (if buffer-name
	(get-buffer buffer-name))))
Eli Zaretskii's avatar
Eli Zaretskii committed
553

554
(defun flymake-create-master-file (source-file-name patched-source-file-name get-incl-dirs-f create-temp-f masks include-regexp)
Richard M. Stallman's avatar
Richard M. Stallman committed
555
  "Save SOURCE-FILE-NAME with a different name.
556
Find master file, patch and save it."
Richard M. Stallman's avatar
Richard M. Stallman committed
557 558 559 560 561 562 563 564 565 566 567 568 569 570 571 572 573 574 575 576 577 578
  (let* ((possible-master-files     (flymake-find-possible-master-files source-file-name flymake-master-file-dirs masks))
	 (master-file-count         (length possible-master-files))
	 (idx                       0)
	 (temp-buffer               nil)
	 (master-file-name          nil)
	 (patched-master-file-name  nil)
	 (found                     nil))

    (while (and (not found) (< idx master-file-count))
      (setq master-file-name (nth idx possible-master-files))
      (setq patched-master-file-name (funcall create-temp-f master-file-name "flymake_master"))
      (if (flymake-find-buffer-for-file master-file-name)
	  (setq temp-buffer (flymake-copy-buffer-to-temp-buffer (flymake-find-buffer-for-file master-file-name)))
	(setq temp-buffer (flymake-read-file-to-temp-buffer master-file-name)))
      (setq found
	    (flymake-check-patch-master-file-buffer
	     temp-buffer
	     master-file-name
	     patched-master-file-name
	     source-file-name
	     patched-source-file-name
	     (funcall get-incl-dirs-f (file-name-directory master-file-name))
579
	     include-regexp))
Richard M. Stallman's avatar
Richard M. Stallman committed
580 581 582 583 584 585 586
      (setq idx (1+ idx)))
    (if found
	(list master-file-name patched-master-file-name)
      (progn
	(flymake-log 3 "none of %d master file(s) checked includes %s" master-file-count
		     (file-name-nondirectory source-file-name))
	nil))))
Eli Zaretskii's avatar
Eli Zaretskii committed
587

588
(defun flymake-save-buffer-in-file (file-name)
589 590
  (make-directory (file-name-directory file-name) 1)
  (write-region nil nil file-name nil 566)
591
  (flymake-log 3 "saved buffer %s in file %s" (buffer-name) file-name))
Eli Zaretskii's avatar
Eli Zaretskii committed
592

593
(defun flymake-save-string-to-file (file-name data)
Richard M. Stallman's avatar
Richard M. Stallman committed
594 595
  "Save string DATA to file FILE-NAME."
  (write-region data nil file-name nil 566))
Eli Zaretskii's avatar
Eli Zaretskii committed
596

597
(defun flymake-read-file-to-string (file-name)
Richard M. Stallman's avatar
Richard M. Stallman committed
598 599 600 601
  "Read contents of file FILE-NAME and return as a string."
  (with-temp-buffer
    (insert-file-contents file-name)
    (buffer-substring (point-min) (point-max))))
Eli Zaretskii's avatar
Eli Zaretskii committed
602

603
(defun flymake-process-filter (process output)
Richard M. Stallman's avatar
Richard M. Stallman committed
604
  "Parse OUTPUT and highlight error lines.
605
It's flymake process filter."
606
  (let ((source-buffer (process-buffer process)))
Eli Zaretskii's avatar
Eli Zaretskii committed
607

608 609
    (flymake-log 3 "received %d byte(s) of output from process %d"
                 (length output) (process-id process))
610
    (when (buffer-live-p source-buffer)
611 612
      (with-current-buffer source-buffer
        (flymake-parse-output-and-residual output)))))
Eli Zaretskii's avatar
Eli Zaretskii committed
613

614
(defun flymake-process-sentinel (process _event)
Richard M. Stallman's avatar
Richard M. Stallman committed
615
  "Sentinel for syntax check buffers."
616 617 618 619 620 621 622 623 624 625 626 627 628 629 630 631 632 633 634 635 636 637 638 639 640 641 642 643 644 645
  (when (memq (process-status process) '(signal exit))
    (let* ((exit-status       (process-exit-status process))
           (command           (process-command process))
           (source-buffer     (process-buffer process))
           (cleanup-f         (flymake-get-cleanup-function (buffer-file-name source-buffer))))

      (flymake-log 2 "process %d exited with code %d"
                   (process-id process) exit-status)
      (condition-case err
          (progn
            (flymake-log 3 "cleaning up using %s" cleanup-f)
            (when (buffer-live-p source-buffer)
              (with-current-buffer source-buffer
                (funcall cleanup-f)))

            (delete-process process)
            (setq flymake-processes (delq process flymake-processes))

            (when (buffer-live-p source-buffer)
              (with-current-buffer source-buffer

                (flymake-parse-residual)
                (flymake-post-syntax-check exit-status command)
                (setq flymake-is-running nil))))
        (error
         (let ((err-str (format "Error in process sentinel for buffer %s: %s"
                                source-buffer (error-message-string err))))
           (flymake-log 0 err-str)
           (with-current-buffer source-buffer
             (setq flymake-is-running nil))))))))
Eli Zaretskii's avatar
Eli Zaretskii committed
646

647 648 649 650 651 652 653 654
(defun flymake-post-syntax-check (exit-status command)
  (setq flymake-err-info flymake-new-err-info)
  (setq flymake-new-err-info nil)
  (setq flymake-err-info
        (flymake-fix-line-numbers
         flymake-err-info 1 (flymake-count-lines)))
  (flymake-delete-own-overlays)
  (flymake-highlight-err-lines flymake-err-info)
Richard M. Stallman's avatar
Richard M. Stallman committed
655
  (let (err-count warn-count)
656 657 658 659
    (setq err-count (flymake-get-err-count flymake-err-info "e"))
    (setq warn-count  (flymake-get-err-count flymake-err-info "w"))
    (flymake-log 2 "%s: %d error(s), %d warning(s) in %.2f second(s)"
		 (buffer-name) err-count warn-count
Richard M. Stallman's avatar
Richard M. Stallman committed
660
		 (- (flymake-float-time) flymake-check-start-time))
661
    (setq flymake-check-start-time nil)
Richard M. Stallman's avatar
Richard M. Stallman committed
662

Richard M. Stallman's avatar
Richard M. Stallman committed
663 664
    (if (and (equal 0 err-count) (equal 0 warn-count))
	(if (equal 0 exit-status)
665 666 667
	    (flymake-report-status "" "")	; PASSED
	  (if (not flymake-check-was-interrupted)
	      (flymake-report-fatal-status "CFGERR"
668
					   (format "Configuration error has occurred while running %s" command))
669 670
	    (flymake-report-status nil ""))) ; "STOPPED"
      (flymake-report-status (format "%d/%d" err-count warn-count) ""))))
Eli Zaretskii's avatar
Eli Zaretskii committed
671

672
(defun flymake-parse-output-and-residual (output)
Richard M. Stallman's avatar
Richard M. Stallman committed
673
  "Split OUTPUT into lines, merge in residual if necessary."
674 675 676 677 678 679 680 681 682 683 684
  (let* ((buffer-residual     flymake-output-residual)
         (total-output        (if buffer-residual (concat buffer-residual output) output))
         (lines-and-residual  (flymake-split-output total-output))
         (lines               (nth 0 lines-and-residual))
         (new-residual        (nth 1 lines-and-residual)))
    (setq flymake-output-residual new-residual)
    (setq flymake-new-err-info
          (flymake-parse-err-lines
           flymake-new-err-info lines))))

(defun flymake-parse-residual ()
Richard M. Stallman's avatar
Richard M. Stallman committed
685
  "Parse residual if it's non empty."
686 687 688 689 690 691
  (when flymake-output-residual
    (setq flymake-new-err-info
          (flymake-parse-err-lines
           flymake-new-err-info
           (list flymake-output-residual)))
    (setq flymake-output-residual nil)))
Eli Zaretskii's avatar
Eli Zaretskii committed
692

693
(defun flymake-er-make-er (line-no line-err-info-list)
Richard M. Stallman's avatar
Richard M. Stallman committed
694
  (list line-no line-err-info-list))
695 696

(defun flymake-er-get-line (err-info)
Richard M. Stallman's avatar
Richard M. Stallman committed
697
  (nth 0 err-info))
698 699

(defun flymake-er-get-line-err-info-list (err-info)
Richard M. Stallman's avatar
Richard M. Stallman committed
700
  (nth 1 err-info))
Eli Zaretskii's avatar
Eli Zaretskii committed
701

702
(cl-defstruct (flymake-ler
703 704 705
            (:constructor nil)
            (:constructor flymake-ler-make-ler (file line type text &optional full-file)))
  file line type text full-file)
706 707

(defun flymake-ler-set-file (line-err-info file)
Richard M. Stallman's avatar
Richard M. Stallman committed
708
  (flymake-ler-make-ler file
709 710 711 712
			(flymake-ler-line line-err-info)
			(flymake-ler-type line-err-info)
			(flymake-ler-text line-err-info)
			(flymake-ler-full-file line-err-info)))
713 714

(defun flymake-ler-set-full-file (line-err-info full-file)
715 716 717 718
  (flymake-ler-make-ler (flymake-ler-file line-err-info)
			(flymake-ler-line line-err-info)
			(flymake-ler-type line-err-info)
			(flymake-ler-text line-err-info)
719 720 721
			full-file))

(defun flymake-ler-set-line (line-err-info line)
722
  (flymake-ler-make-ler (flymake-ler-file line-err-info)
Eli Zaretskii's avatar
Eli Zaretskii committed
723
			line
724 725 726
			(flymake-ler-type line-err-info)
			(flymake-ler-text line-err-info)
			(flymake-ler-full-file line-err-info)))
Eli Zaretskii's avatar
Eli Zaretskii committed
727

728
(defun flymake-get-line-err-count (line-err-info-list type)
Richard M. Stallman's avatar
Richard M. Stallman committed
729
  "Return number of errors of specified TYPE.
730
Value of TYPE is either \"e\" or \"w\"."
Richard M. Stallman's avatar
Richard M. Stallman committed
731 732 733
  (let* ((idx        0)
	 (count      (length line-err-info-list))
	 (err-count  0))
Eli Zaretskii's avatar
Eli Zaretskii committed
734

Richard M. Stallman's avatar
Richard M. Stallman committed
735
    (while (< idx count)
736
      (when (equal type (flymake-ler-type (nth idx line-err-info-list)))
Richard M. Stallman's avatar
Richard M. Stallman committed
737 738 739
	(setq err-count (1+ err-count)))
      (setq idx (1+ idx)))
    err-count))
Eli Zaretskii's avatar
Eli Zaretskii committed
740

741
(defun flymake-get-err-count (err-info-list type)
Richard M. Stallman's avatar
Richard M. Stallman committed
742 743 744 745 746 747 748 749
  "Return number of errors of specified TYPE for ERR-INFO-LIST."
  (let* ((idx        0)
	 (count      (length err-info-list))
	 (err-count  0))
    (while (< idx count)
      (setq err-count (+ err-count (flymake-get-line-err-count (nth 1 (nth idx err-info-list)) type)))
      (setq idx (1+ idx)))
    err-count))
750 751

(defun flymake-fix-line-numbers (err-info-list min-line max-line)
Richard M. Stallman's avatar
Richard M. Stallman committed
752
  "Replace line numbers with fixed value.
753 754
If line-numbers is less than MIN-LINE, set line numbers to MIN-LINE.
If line numbers is greater than MAX-LINE, set line numbers to MAX-LINE.
Kim F. Storm's avatar
Kim F. Storm committed
755
The reason for this fix is because some compilers might report
756
line number outside the file being compiled."
Richard M. Stallman's avatar
Richard M. Stallman committed
757 758 759 760 761 762 763 764 765 766 767 768 769
  (let* ((count     (length err-info-list))
	 (err-info  nil)
	 (line      0))
    (while (> count 0)
      (setq err-info (nth (1- count) err-info-list))
      (setq line (flymake-er-get-line err-info))
      (when (or (< line min-line) (> line max-line))
	(setq line (if (< line min-line) min-line max-line))
	(setq err-info-list (flymake-set-at err-info-list (1- count)
					    (flymake-er-make-er line
								(flymake-er-get-line-err-info-list err-info)))))
      (setq count (1- count))))
  err-info-list)
Eli Zaretskii's avatar
Eli Zaretskii committed
770

771
(defun flymake-highlight-err-lines (err-info-list)
Richard M. Stallman's avatar
Richard M. Stallman committed
772
  "Highlight error lines in BUFFER using info from ERR-INFO-LIST."
773 774 775
  (save-excursion
    (dolist (err err-info-list)
      (flymake-highlight-line (car err) (nth 1 err)))))
Eli Zaretskii's avatar
Eli Zaretskii committed
776

777
(defun flymake-overlay-p (ov)
Richard M. Stallman's avatar
Richard M. Stallman committed
778 779
  "Determine whether overlay OV was created by flymake."
  (and (overlayp ov) (overlay-get ov 'flymake-overlay)))
Eli Zaretskii's avatar
Eli Zaretskii committed
780

781
(defcustom flymake-error-bitmap '(exclamation-mark error)
Glenn Morris's avatar
Glenn Morris committed
782
  "Bitmap (a symbol) used in the fringe for indicating errors.
783
The value may also be a list of two elements where the second
Glenn Morris's avatar
Glenn Morris committed
784 785 786 787 788
element specifies the face for the bitmap.  For possible bitmap
symbols, see `fringe-bitmaps'.  See also `flymake-warning-bitmap'.

The option `flymake-fringe-indicator-position' controls how and where
this is used."
789
  :group 'flymake
Glenn Morris's avatar
Glenn Morris committed
790
  :version "24.3"
Glenn Morris's avatar
Glenn Morris committed
791 792 793 794
  :type '(choice (symbol :tag "Bitmap")
                 (list :tag "Bitmap and face"
                       (symbol :tag "Bitmap")
                       (face :tag "Face"))))
795 796

(defcustom flymake-warning-bitmap 'question-mark
Glenn Morris's avatar
Glenn Morris committed
797
  "Bitmap (a symbol) used in the fringe for indicating warnings.
798
The value may also be a list of two elements where the second
Glenn Morris's avatar
Glenn Morris committed
799 800 801 802 803
element specifies the face for the bitmap.  For possible bitmap
symbols, see `fringe-bitmaps'.  See also `flymake-error-bitmap'.

The option `flymake-fringe-indicator-position' controls how and where
this is used."
804
  :group 'flymake
Glenn Morris's avatar
Glenn Morris committed
805
  :version "24.3"
Glenn Morris's avatar
Glenn Morris committed
806 807 808 809
  :type '(choice (symbol :tag "Bitmap")
                 (list :tag "Bitmap and face"
                       (symbol :tag "Bitmap")
                       (face :tag "Face"))))
810 811 812

(defcustom flymake-fringe-indicator-position 'left-fringe
  "The position to put flymake fringe indicator.
Glenn Morris's avatar
Glenn Morris committed
813 814
The value can be nil (do not use indicators), `left-fringe' or `right-fringe'.
See `flymake-error-bitmap' and `flymake-warning-bitmap'."
815
  :group 'flymake
Glenn Morris's avatar
Glenn Morris committed
816
  :version "24.3"
817 818 819 820 821
  :type '(choice (const left-fringe)
		 (const right-fringe)
		 (const :tag "No fringe indicators" nil)))

(defun flymake-make-overlay (beg end tooltip-text face bitmap mouse-face)
Richard M. Stallman's avatar
Richard M. Stallman committed
822 823
  "Allocate a flymake overlay in range BEG and END."
  (when (not (flymake-region-has-flymake-overlays beg end))
824 825 826 827 828 829 830
    (let ((ov (make-overlay beg end nil t t))
	  (fringe (and flymake-fringe-indicator-position
		       (propertize "!" 'display
				   (cons flymake-fringe-indicator-position
					 (if (listp bitmap)
					     bitmap
					   (list bitmap)))))))
Richard M. Stallman's avatar
Richard M. Stallman committed
831 832 833 834 835
      (overlay-put ov 'face           face)
      (overlay-put ov 'mouse-face     mouse-face)
      (overlay-put ov 'help-echo      tooltip-text)
      (overlay-put ov 'flymake-overlay  t)
      (overlay-put ov 'priority 100)
836 837
      (overlay-put ov 'evaporate t)
      (overlay-put ov 'before-string fringe)
838
      ;;+(flymake-log 3 "created overlay %s" ov)
Richard M. Stallman's avatar
Richard M. Stallman committed
839 840
      ov)
    (flymake-log 3 "created an overlay at (%d-%d)" beg end)))
Eli Zaretskii's avatar
Eli Zaretskii committed
841

842
(defun flymake-delete-own-overlays ()
Richard M. Stallman's avatar
Richard M. Stallman committed
843
  "Delete all flymake overlays in BUFFER."
844 845 846 847 848
  (dolist (ol (overlays-in (point-min) (point-max)))
    (when (flymake-overlay-p ol)
      (delete-overlay ol)
      ;;+(flymake-log 3 "deleted overlay %s" ol)
      )))
Eli Zaretskii's avatar
Eli Zaretskii committed
849

850
(defun flymake-region-has-flymake-overlays (beg end)
Richard M. Stallman's avatar
Richard M. Stallman committed
851
  "Check if region specified by BEG and END has overlay.
852
Return t if it has at least one flymake overlay, nil if no overlay."
Richard M. Stallman's avatar
Richard M. Stallman committed
853 854 855 856 857
  (let ((ov                  (overlays-in beg end))
	(has-flymake-overlays  nil))
    (while (consp ov)
      (when (flymake-overlay-p (car ov))
	(setq has-flymake-overlays t))
Stefan Monnier's avatar
Stefan Monnier committed
858 859
      (setq ov (cdr ov)))
    has-flymake-overlays))
Eli Zaretskii's avatar
Eli Zaretskii committed
860

861
(defface flymake-errline
862 863 864 865
  '((((supports :underline (:style wave)))
     :underline (:style wave :color "Red1"))
    (t
     :inherit error))
Richard M. Stallman's avatar
Richard M. Stallman committed
866
  "Face used for marking error lines."
867
  :version "24.4"
Richard M. Stallman's avatar
Richard M. Stallman committed
868
  :group 'flymake)
Eli Zaretskii's avatar
Eli Zaretskii committed
869

870
(defface flymake-warnline
871 872 873 874
  '((((supports :underline (:style wave)))
     :underline (:style wave :color "DarkOrange"))
    (t
     :inherit warning))
Richard M. Stallman's avatar
Richard M. Stallman committed
875
  "Face used for marking warning lines."
876
  :version "24.4"
Richard M. Stallman's avatar
Richard M. Stallman committed
877
  :group 'flymake)
Eli Zaretskii's avatar
Eli Zaretskii committed
878

879
(defun flymake-highlight-line (line-no line-err-info-list)
Richard M. Stallman's avatar
Richard M. Stallman committed
880
  "Highlight line LINE-NO in current buffer.
881
Perhaps use text from LINE-ERR-INFO-LIST to enhance highlighting."
882 883
  (goto-char (point-min))
  (forward-line (1- line-no))