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

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
(defsubst flymake-makehash (&optional test)
71 72 73
  "Create and return a new hash table using TEST to compare keys.
It uses the function `make-hash-table' to make a hash-table if
you use GNU Emacs, otherwise it uses `makehash'."
Kim F. Storm's avatar
Kim F. Storm committed
74 75
  (if (fboundp 'make-hash-table)
      (if test (make-hash-table :test test) (make-hash-table))
76 77
    (with-no-warnings
      (makehash test))))
Richard M. Stallman's avatar
Richard M. Stallman committed
78

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

87 88 89 90 91 92 93 94 95 96 97 98
(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
99
Zero-length substrings at the beginning and end of the list are omitted."
100
      (let ((split (split-string str pattern)))
101 102 103 104
        (while (equal (car split) "") (setq split (cdr split)))
        (setq split (nreverse split))
        (while (equal (car split) "") (setq split (cdr split)))
        (nreverse split)))))
105 106

(defalias 'flymake-get-temp-dir
Stefan Monnier's avatar
Stefan Monnier committed
107
  (if (fboundp 'temp-directory)
108 109
      'temp-directory
    (lambda () temporary-file-directory)))
Eli Zaretskii's avatar
Eli Zaretskii committed
110

111
(defun flymake-posn-at-point-as-event (&optional position window dx dy)
112 113 114 115 116 117
  "Return pixel position of top left corner of glyph at POSITION.

The position is 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).
118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136

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)))
137 138 139

(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
140 141 142 143 144
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)
145 146 147
      (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
148 149 150
	     (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))
151 152 153
	(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))
154
                      (flymake-posn-at-point-as-event)
155 156
                    (list (flymake-get-point-pixel-pos) (selected-window)))
                  (flymake-make-emacs-menu menu-data))))
Eli Zaretskii's avatar
Eli Zaretskii committed
157

Richard M. Stallman's avatar
Richard M. Stallman committed
158
(defun flymake-make-emacs-menu (menu-data)
Richard M. Stallman's avatar
Richard M. Stallman committed
159 160 161 162
  "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
163 164
  (let* ((menu-title     (nth 0 menu-data))
	 (menu-items     (nth 1 menu-data))
165 166 167
	 (menu-commands  (mapcar (lambda (foo)
                                   (cons (nth 0 foo) (nth 1 foo)))
                                 menu-items)))
Richard M. Stallman's avatar
Richard M. Stallman committed
168
    (list menu-title (cons "" menu-commands))))
Eli Zaretskii's avatar
Eli Zaretskii committed
169

Kim F. Storm's avatar
Kim F. Storm committed
170 171
(if (featurep 'xemacs) (progn

172 173
(defun flymake-nop ()
  "Do nothing.")
Stefan Monnier's avatar
Stefan Monnier committed
174

175
(defun flymake-make-xemacs-menu (menu-data)
Richard M. Stallman's avatar
Richard M. Stallman committed
176
  "Return a menu specifier using MENU-DATA."
Richard M. Stallman's avatar
Richard M. Stallman committed
177 178 179 180 181 182 183 184
  (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
185 186
)) ;; xemacs

187 188
(unless (eval-when-compile (fboundp 'posn-at-point))

Richard M. Stallman's avatar
Richard M. Stallman committed
189 190
(defun flymake-current-row ()
  "Return current row number in current frame."
Stefan Monnier's avatar
Stefan Monnier committed
191 192 193
  (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
194 195

(defun flymake-selected-frame ()
196
  "Return the frame that is now selected."
Stefan Monnier's avatar
Stefan Monnier committed
197 198 199
  (if (fboundp 'window-edges)
      (selected-frame)
    (selected-window)))
Eli Zaretskii's avatar
Eli Zaretskii committed
200

201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218
(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
219 220 221
;;;; ]]

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

227 228 229 230 231 232 233 234

;; (defcustom flymake-log-file-name "~/flymake.log"
;;   "Where to put the flymake log if logging is enabled.
;; 
;;    See `flymake-log-level' if you want to control what is logged."
;;   :group 'flymake
;;   :type 'string)

235
(defun flymake-log (level text &rest args)
Richard M. Stallman's avatar
Richard M. Stallman committed
236 237 238 239
  "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
240
are the string substitutions (see the function `format')."
Richard M. Stallman's avatar
Richard M. Stallman committed
241 242
  (if (<= level flymake-log-level)
      (let* ((msg (apply 'format text args)))
243
	(message "%s" msg)
Richard M. Stallman's avatar
Richard M. Stallman committed
244 245 246
	;;(with-temp-buffer
	;;    (insert msg)
	;;   (insert "\n")
247
	;;   (flymake-save-buffer-in-file "~/flymake.log")  ; make log file name customizable
Richard M. Stallman's avatar
Richard M. Stallman committed
248
	;;)
249
	)))
Eli Zaretskii's avatar
Eli Zaretskii committed
250

251
(defun flymake-ins-after (list pos val)
252 253 254
  "Insert VAL into LIST after position POS.
POS counts from zero."
  (let ((tmp (copy-sequence list)))	; Bind `tmp' to a copy of LIST
Richard M. Stallman's avatar
Richard M. Stallman committed
255 256
    (setcdr (nthcdr pos tmp) (cons val (nthcdr (1+ pos) tmp)))
    tmp))
Eli Zaretskii's avatar
Eli Zaretskii committed
257

258
(defun flymake-set-at (list pos val)
259 260 261 262
)
"Set VAL at position POS in LIST.
POS counts from zero."
(let ((tmp (copy-sequence list)))	; Bind `tmp' to a copy of LIST
Richard M. Stallman's avatar
Richard M. Stallman committed
263 264
    (setcar (nthcdr pos tmp) val)
    tmp))
Eli Zaretskii's avatar
Eli Zaretskii committed
265

266 267
(defvar flymake-processes nil
  "List of currently active flymake processes.")
Eli Zaretskii's avatar
Eli Zaretskii committed
268

269
(defvar flymake-output-residual nil)
Eli Zaretskii's avatar
Eli Zaretskii committed
270
(make-variable-buffer-local 'flymake-output-residual)
271

272
(defgroup flymake nil
273
  "Universal on-the-fly syntax checker."
274 275 276
  :version "23.1"
  :group 'tools)

277 278 279 280 281 282 283
(defcustom flymake-xml-program
  (if (executable-find "xmlstarlet") "xmlstarlet" "xml")
  "Program to use for XML validation."
  :type 'file
  :group 'flymake
  :version "24.4")

Richard M. Stallman's avatar
Richard M. Stallman committed
284
(defcustom flymake-allowed-file-name-masks
285
  '(("\\.\\(?:c\\(?:pp\\|xx\\|\\+\\+\\)?\\|CC\\)\\'" flymake-simple-make-init)
286 287 288
    ("\\.xml\\'" flymake-xml-init)
    ("\\.html?\\'" flymake-xml-init)
    ("\\.cs\\'" flymake-simple-make-init)
289 290
    ("\\.p[ml]\\'" flymake-perl-init)
    ("\\.php[345]?\\'" flymake-php-init)
291 292 293
    ("\\.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)
294 295
    ("\\.tex\\'" flymake-simple-tex-init)
    ("\\.idl\\'" flymake-simple-make-init)
296 297 298
    ;; ("\\.cpp\\'" 1)
    ;; ("\\.java\\'" 3)
    ;; ("\\.h\\'" 2 ("\\.cpp\\'" "\\.c\\'")
299
    ;; ("[ \t]*#[ \t]*include[ \t]*\"\\([\w0-9/\\_\.]*[/\\]*\\)\\(%s\\)\"" 1 2))
300 301 302
    ;; ("\\.idl\\'" 1)
    ;; ("\\.odl\\'" 1)
    ;; ("[0-9]+\\.tex\\'" 2 ("\\.tex\\'")
303
    ;; ("[ \t]*\\input[ \t]*{\\(.*\\)\\(%s\\)}" 1 2 ))
304
    ;; ("\\.tex\\'" 1)
Richard M. Stallman's avatar
Richard M. Stallman committed
305
    )
306 307 308 309 310 311 312
  "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
313
  :group 'flymake
314 315 316 317 318 319 320 321 322 323
  :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
324

325
(defun flymake-get-file-name-mode-and-masks (file-name)
326
  "Return the corresponding entry from `flymake-allowed-file-name-masks'."
Richard M. Stallman's avatar
Richard M. Stallman committed
327 328
  (unless (stringp file-name)
    (error "Invalid file-name"))
329
  (let ((fnm flymake-allowed-file-name-masks)
330
	(mode-and-masks nil))
331 332 333 334
    (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
335 336
    (flymake-log 3 "file %s, init=%s" file-name (car mode-and-masks))
    mode-and-masks))
Eli Zaretskii's avatar
Eli Zaretskii committed
337

338
(defun flymake-can-syntax-check-file (file-name)
Richard M. Stallman's avatar
Richard M. Stallman committed
339
  "Determine whether we can syntax check FILE-NAME.
340
Return nil if we cannot, non-nil if we can."
Richard M. Stallman's avatar
Richard M. Stallman committed
341
  (if (flymake-get-init-function file-name) t nil))
Eli Zaretskii's avatar
Eli Zaretskii committed
342

343
(defun flymake-get-init-function (file-name)
Richard M. Stallman's avatar
Richard M. Stallman committed
344 345
  "Return init function to be used for the file."
  (let* ((init-f  (nth 0 (flymake-get-file-name-mode-and-masks file-name))))
346 347
    ;;(flymake-log 0 "calling %s" init-f)
    ;;(funcall init-f (current-buffer))
Richard M. Stallman's avatar
Richard M. Stallman committed
348
    init-f))
Eli Zaretskii's avatar
Eli Zaretskii committed
349

350
(defun flymake-get-cleanup-function (file-name)
Richard M. Stallman's avatar
Richard M. Stallman committed
351
  "Return cleanup function to be used for the file."
352 353
  (or (nth 1 (flymake-get-file-name-mode-and-masks file-name))
      'flymake-simple-cleanup))
Eli Zaretskii's avatar
Eli Zaretskii committed
354

355
(defun flymake-get-real-file-name-function (file-name)
356
  (or (nth 4 (flymake-get-file-name-mode-and-masks file-name))
357
      'flymake-get-real-file-name))
Eli Zaretskii's avatar
Eli Zaretskii committed
358 359 360

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

361
(defun flymake-get-buildfile-from-cache (dir-name)
362 363
  "Look up DIR-NAME in cache and return its associated value.
If DIR-NAME is not found, return nil."
Richard M. Stallman's avatar
Richard M. Stallman committed
364
  (gethash dir-name flymake-find-buildfile-cache))
365 366

(defun flymake-add-buildfile-to-cache (dir-name buildfile)
367
  "Associate DIR-NAME with BUILDFILE in the buildfile cache."
Richard M. Stallman's avatar
Richard M. Stallman committed
368
  (puthash dir-name buildfile flymake-find-buildfile-cache))
369 370

(defun flymake-clear-buildfile-cache ()
371
  "Clear the buildfile cache."
Richard M. Stallman's avatar
Richard M. Stallman committed
372
  (clrhash flymake-find-buildfile-cache))
373

374
(defun flymake-find-buildfile (buildfile-name source-dir-name)
Richard M. Stallman's avatar
Richard M. Stallman committed
375
  "Find buildfile starting from current directory.
376
Buildfile includes Makefile, build.xml etc.
Richard M. Stallman's avatar
Richard M. Stallman committed
377
Return its file name if found, or nil if not found."
378
  (or (flymake-get-buildfile-from-cache source-dir-name)
379
      (let* ((file (locate-dominating-file source-dir-name buildfile-name)))
380
        (if file
381
            (progn
382 383 384
              (flymake-log 3 "found buildfile at %s" file)
              (flymake-add-buildfile-to-cache source-dir-name file)
              file)
385 386 387
          (progn
            (flymake-log 3 "buildfile for %s not found" source-dir-name)
            nil)))))
Richard M. Stallman's avatar
Richard M. Stallman committed
388 389

(defun flymake-fix-file-name (name)
390
  "Replace all occurrences of '\' with '/'."
Richard M. Stallman's avatar
Richard M. Stallman committed
391
  (when name
392 393 394 395
    (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
396

397
(defun flymake-same-files (file-name-one file-name-two)
Richard M. Stallman's avatar
Richard M. Stallman committed
398
  "Check if FILE-NAME-ONE and FILE-NAME-TWO point to same file.
399
Return t if so, nil if not."
Richard M. Stallman's avatar
Richard M. Stallman committed
400 401 402
  (equal (flymake-fix-file-name file-name-one)
	 (flymake-fix-file-name file-name-two)))

Eli Zaretskii's avatar
Eli Zaretskii committed
403
(defcustom flymake-master-file-dirs '("." "./src" "./UnitTest")
404
  "Dirs where to look for master files."
Richard M. Stallman's avatar
Richard M. Stallman committed
405 406
  :group 'flymake
  :type '(repeat (string)))
Eli Zaretskii's avatar
Eli Zaretskii committed
407 408

(defcustom flymake-master-file-count-limit 32
Richard M. Stallman's avatar
Richard M. Stallman committed
409 410 411
  "Max number of master files to check."
  :group 'flymake
  :type 'integer)
412

Kim F. Storm's avatar
Kim F. Storm committed
413 414
;; 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
415

416
(defun flymake-find-possible-master-files (file-name master-file-dirs masks)
417
  "Find (by name and location) all possible master files.
418 419 420 421 422

Name is specified by FILE-NAME and location is specified by
MASTER-FILE-DIRS.  Master files include .cpp and .c for .h.
Files are searched for starting from the .h directory and max
max-level parent dirs.  File contents are not checked."
423
  (let* ((dirs master-file-dirs)
Richard M. Stallman's avatar
Richard M. Stallman committed
424
	 (files  nil)
425 426 427
	 (done   nil))

    (while (and (not done) dirs)
428
      (let* ((dir (expand-file-name (car dirs) (file-name-directory file-name)))
429 430 431 432 433 434 435 436 437 438
	     (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
439 440 441
		(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)))
442 443 444
	      (setq dir-files (cdr dir-files))))
	  (setq masks (cdr masks))))
      (setq dirs (cdr dirs)))
Richard M. Stallman's avatar
Richard M. Stallman committed
445
    (when files
Kim F. Storm's avatar
Kim F. Storm committed
446 447
      (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
448 449
    (flymake-log 3 "found %d possible master file(s)" (length files))
    files))
Eli Zaretskii's avatar
Eli Zaretskii committed
450

451
(defun flymake-master-file-compare (file-one file-two)
452
  "Compare two files specified by FILE-ONE and FILE-TWO.
453
This function is used in sort to move most possible file names
454
to the beginning of the list (File.h -> File.cpp moved to top)."
Richard M. Stallman's avatar
Richard M. Stallman committed
455
  (and (equal (file-name-sans-extension flymake-included-file-name)
456
	      (file-name-base file-one))
Richard M. Stallman's avatar
Richard M. Stallman committed
457
       (not (equal file-one file-two))))
Eli Zaretskii's avatar
Eli Zaretskii committed
458 459

(defcustom flymake-check-file-limit 8192
Glenn Morris's avatar
Glenn Morris committed
460 461
  "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
462
  :group 'flymake
Glenn Morris's avatar
Glenn Morris committed
463 464
  :type '(choice (const :tag "No limit" nil)
                 (integer :tag "Characters")))
Eli Zaretskii's avatar
Eli Zaretskii committed
465

466 467 468 469 470
(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
471
  "Check if MASTER-FILE-NAME is a master file for SOURCE-FILE-NAME.
472 473
If yes, patch a copy of MASTER-FILE-NAME to include PATCHED-SOURCE-FILE-NAME
instead of SOURCE-FILE-NAME.
474 475 476

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

477 478
Whether a buffer for MATER-FILE-NAME exists, use it as a source
instead of reading master file from disk."
479
  (let* ((source-file-nondir (file-name-nondirectory source-file-name))
Glenn Morris's avatar
Glenn Morris committed
480 481
         (source-file-extension (file-name-extension source-file-nondir))
         (source-file-nonext (file-name-sans-extension source-file-nondir))
482
         (found                     nil)
Richard M. Stallman's avatar
Richard M. Stallman committed
483 484
	 (inc-name                  nil)
	 (search-limit              flymake-check-file-limit))
485 486
    (setq regexp
          (format regexp	; "[ \t]*#[ \t]*include[ \t]*\"\\(.*%s\\)\""
Glenn Morris's avatar
Glenn Morris committed
487 488 489 490 491 492 493 494
                  ;; 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))))
495 496
    (unwind-protect
        (with-current-buffer master-file-temp-buffer
Glenn Morris's avatar
Glenn Morris committed
497 498 499
          (if (or (not search-limit)
                  (> search-limit (point-max)))
              (setq search-limit (point-max)))
500 501 502 503 504 505 506 507 508 509
          (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
510 511 512 513 514
              (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)))
515 516 517 518 519 520 521 522 523 524 525 526 527 528 529 530 531 532 533 534
              (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))
535
    ;;+(flymake-log 3 "check-patch master file %s: %s" master-file-name found)
Richard M. Stallman's avatar
Richard M. Stallman committed
536 537 538
    (when found
      (flymake-log 2 "found master file %s" master-file-name))
    found))
Eli Zaretskii's avatar
Eli Zaretskii committed
539

540
(defun flymake-replace-region (beg end rep)
Richard M. Stallman's avatar
Richard M. Stallman committed
541 542
  "Replace text in BUFFER in region (BEG END) with REP."
  (save-excursion
543 544 545 546
    (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
547

548
(defun flymake-read-file-to-temp-buffer (file-name)
Richard M. Stallman's avatar
Richard M. Stallman committed
549 550
  "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
551
    (with-current-buffer temp-buffer
Richard M. Stallman's avatar
Richard M. Stallman committed
552 553
      (insert-file-contents file-name))
    temp-buffer))
Eli Zaretskii's avatar
Eli Zaretskii committed
554

555
(defun flymake-copy-buffer-to-temp-buffer (buffer)
Richard M. Stallman's avatar
Richard M. Stallman committed
556
  "Copy contents of BUFFER into newly created temp buffer."
557 558 559 560 561
  (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
562

563
(defun flymake-check-include (source-file-name inc-name include-dirs)
Richard M. Stallman's avatar
Richard M. Stallman committed
564
  "Check if SOURCE-FILE-NAME can be found in include path.
565 566 567 568 569 570 571 572 573 574 575
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
576

577
(defun flymake-find-buffer-for-file (file-name)
Richard M. Stallman's avatar
Richard M. Stallman committed
578
  "Check if there exists a buffer visiting FILE-NAME.
579
Return t if so, nil if not."
Richard M. Stallman's avatar
Richard M. Stallman committed
580 581 582
  (let ((buffer-name (get-file-buffer file-name)))
    (if buffer-name
	(get-buffer buffer-name))))
Eli Zaretskii's avatar
Eli Zaretskii committed
583

584
(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
585
  "Save SOURCE-FILE-NAME with a different name.
586
Find master file, patch and save it."
Richard M. Stallman's avatar
Richard M. Stallman committed
587 588 589 590 591 592 593 594 595 596 597 598 599 600 601 602 603 604 605 606 607 608
  (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))
609
	     include-regexp))
Richard M. Stallman's avatar
Richard M. Stallman committed
610 611 612 613 614 615 616
      (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
617

618
(defun flymake-save-buffer-in-file (file-name)
619 620
  "Save the entire buffer contents into file FILE-NAME.
Create parent directories as needed."
621 622
  (make-directory (file-name-directory file-name) 1)
  (write-region nil nil file-name nil 566)
623
  (flymake-log 3 "saved buffer %s in file %s" (buffer-name) file-name))
Eli Zaretskii's avatar
Eli Zaretskii committed
624

625
(defun flymake-save-string-to-file (file-name data)
Richard M. Stallman's avatar
Richard M. Stallman committed
626 627
  "Save string DATA to file FILE-NAME."
  (write-region data nil file-name nil 566))
Eli Zaretskii's avatar
Eli Zaretskii committed
628

629
(defun flymake-read-file-to-string (file-name)
Richard M. Stallman's avatar
Richard M. Stallman committed
630 631 632 633
  "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
634

635
(defun flymake-process-filter (process output)
Richard M. Stallman's avatar
Richard M. Stallman committed
636
  "Parse OUTPUT and highlight error lines.
637
It's flymake process filter."
638
  (let ((source-buffer (process-buffer process)))
Eli Zaretskii's avatar
Eli Zaretskii committed
639

640 641
    (flymake-log 3 "received %d byte(s) of output from process %d"
                 (length output) (process-id process))
642
    (when (buffer-live-p source-buffer)
643 644
      (with-current-buffer source-buffer
        (flymake-parse-output-and-residual output)))))
Eli Zaretskii's avatar
Eli Zaretskii committed
645

646
(defun flymake-process-sentinel (process _event)
Richard M. Stallman's avatar
Richard M. Stallman committed
647
  "Sentinel for syntax check buffers."
648 649 650 651 652 653 654 655 656 657 658 659 660 661 662 663 664 665 666 667 668 669 670 671 672 673 674 675 676 677
  (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
678

679 680 681 682 683 684 685 686
(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
687
  (let (err-count warn-count)
688 689 690 691
    (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
692
		 (- (flymake-float-time) flymake-check-start-time))
693
    (setq flymake-check-start-time nil)
Richard M. Stallman's avatar
Richard M. Stallman committed
694

Richard M. Stallman's avatar
Richard M. Stallman committed
695 696
    (if (and (equal 0 err-count) (equal 0 warn-count))
	(if (equal 0 exit-status)
697 698 699
	    (flymake-report-status "" "")	; PASSED
	  (if (not flymake-check-was-interrupted)
	      (flymake-report-fatal-status "CFGERR"
700
					   (format "Configuration error has occurred while running %s" command))
701 702
	    (flymake-report-status nil ""))) ; "STOPPED"
      (flymake-report-status (format "%d/%d" err-count warn-count) ""))))
Eli Zaretskii's avatar
Eli Zaretskii committed
703

704
(defun flymake-parse-output-and-residual (output)
Richard M. Stallman's avatar
Richard M. Stallman committed
705
  "Split OUTPUT into lines, merge in residual if necessary."
706 707 708 709 710 711 712 713 714 715 716
  (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
717
  "Parse residual if it's non empty."
718 719 720 721 722 723
  (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
724

725
(defun flymake-er-make-er (line-no line-err-info-list)
Richard M. Stallman's avatar
Richard M. Stallman committed
726
  (list line-no line-err-info-list))
727 728

(defun flymake-er-get-line (err-info)
Richard M. Stallman's avatar
Richard M. Stallman committed
729
  (nth 0 err-info))
730 731

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

734
(cl-defstruct (flymake-ler
735 736 737
            (:constructor nil)
            (:constructor flymake-ler-make-ler (file line type text &optional full-file)))
  file line type text full-file)
738 739

(defun flymake-ler-set-file (line-err-info file)
Richard M. Stallman's avatar
Richard M. Stallman committed
740
  (flymake-ler-make-ler file
741 742 743 744
			(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)))
745 746

(defun flymake-ler-set-full-file (line-err-info full-file)
747 748 749 750
  (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)
751 752 753
			full-file))

(defun flymake-ler-set-line (line-err-info line)
754
  (flymake-ler-make-ler (flymake-ler-file line-err-info)
Eli Zaretskii's avatar
Eli Zaretskii committed
755
			line
756 757 758
			(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
759

760
(defun flymake-get-line-err-count (line-err-info-list type)
Richard M. Stallman's avatar
Richard M. Stallman committed
761
  "Return number of errors of specified TYPE.
762
Value of TYPE is either \"e\" or \"w\"."
Richard M. Stallman's avatar
Richard M. Stallman committed
763 764 765
  (let* ((idx        0)
	 (count      (length line-err-info-list))
	 (err-count  0))
Eli Zaretskii's avatar
Eli Zaretskii committed
766

Richard M. Stallman's avatar
Richard M. Stallman committed
767
    (while (< idx count)
768
      (when (equal type (flymake-ler-type (nth idx line-err-info-list)))
Richard M. Stallman's avatar
Richard M. Stallman committed
769 770 771
	(setq err-count (1+ err-count)))
      (setq idx (1+ idx)))
    err-count))
Eli Zaretskii's avatar
Eli Zaretskii committed
772

773
(defun flymake-get-err-count (err-info-list type)
Richard M. Stallman's avatar
Richard M. Stallman committed
774 775 776 777 778 779 780 781
  "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))
782 783

(defun flymake-fix-line-numbers (err-info-list min-line max-line)
Richard M. Stallman's avatar
Richard M. Stallman committed
784
  "Replace line numbers with fixed value.
785 786
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
787
The reason for this fix is because some compilers might report
788
line number outside the file being compiled."
Richard M. Stallman's avatar
Richard M. Stallman committed
789 790 791 792 793 794 795 796 797 798 799 800 801
  (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
802

803
(defun flymake-highlight-err-lines (err-info-list)
Richard M. Stallman's avatar
Richard M. Stallman committed
804
  "Highlight error lines in BUFFER using info from ERR-INFO-LIST."
805 806 807
  (save-excursion
    (dolist (err err-info-list)
      (flymake-highlight-line (car err) (nth 1 err)))))
Eli Zaretskii's avatar
Eli Zaretskii committed
808

809
(defun flymake-overlay-p (ov)
Richard M. Stallman's avatar
Richard M. Stallman committed
810 811
  "Determine whether overlay OV was created by flymake."
  (and (overlayp ov) (overlay-get ov 'flymake-overlay)))
Eli Zaretskii's avatar
Eli Zaretskii committed
812

813
(defcustom flymake-error-bitmap '(exclamation-mark error)
Glenn Morris's avatar
Glenn Morris committed
814
  "Bitmap (a symbol) used in the fringe for indicating errors.
815
The value may also be a list of two elements where the second
Glenn Morris's avatar
Glenn Morris committed
816 817 818 819 820
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."
821
  :group 'flymake
Glenn Morris's avatar
Glenn Morris committed
822
  :version "24.3"
Glenn Morris's avatar
Glenn Morris committed
823 824 825 826
  :type '(choice (symbol :tag "Bitmap")
                 (list :tag "Bitmap and face"
                       (symbol :tag "Bitmap")
                       (face :tag "Face"))))
827 828

(defcustom flymake-warning-bitmap 'question-mark
Glenn Morris's avatar
Glenn Morris committed
829
  "Bitmap (a symbol) used in the fringe for indicating warnings.
830
The value may also be a list of two elements where the second
Glenn Morris's avatar
Glenn Morris committed
831 832 833 834 835
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."
836
  :group 'flymake
Glenn Morris's avatar
Glenn Morris committed
837
  :version "24.3"
Glenn Morris's avatar
Glenn Morris committed
838 839 840 841
  :type '(choice (symbol :tag "Bitmap")
                 (list :tag "Bitmap and face"
                       (symbol :tag "Bitmap")
                       (face :tag "Face"))))
842 843 844

(defcustom flymake-fringe-indicator-position 'left-fringe
  "The position to put flymake fringe indicator.
Glenn Morris's avatar
Glenn Morris committed
845 846
The value can be nil (do not use indicators), `left-fringe' or `right-fringe'.
See `flymake-error-bitmap' and `flymake-warning-bitmap'."
847
  :group 'flymake
Glenn Morris's avatar
Glenn Morris committed
848
  :version "24.3"
849 850 851 852 853
  :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
854 855
  "Allocate a flymake overlay in range BEG and END."
  (when (not (flymake-region-has-flymake-overlays beg end))
856 857 858 859 860 861 862
    (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
863 864 865 866 867
      (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)
868 869
      (overlay-put ov 'evaporate t)
      (overlay-put ov 'before-string fringe)
870
      ;;+(flymake-log 3 "created overlay %s" ov)
Richard M. Stallman's avatar
Richard M. Stallman committed
871 872
      ov)
    (flymake-log 3 "created an overlay at (%d-%d)" beg end)))
Eli Zaretskii's avatar
Eli Zaretskii committed
873

874
(defun flymake-delete-own-overlays ()
Richard M. Stallman's avatar
Richard M. Stallman committed
875
  "Delete all flymake overlays in BUFFER."
876 877 878 879 880
  (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
881

882
(defun flymake-region-has-flymake-overlays (beg end)
Richard M. Stallman's avatar
Richard M. Stallman committed
883
  "Check if region specified by BEG and END has overlay.
884
Return t if it has at least one flymake overlay, nil if no overlay."
Richard M. Stallman's avatar
Richard M. Stallman committed
885 886 887 888 889
  (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
890 891
      (setq ov (cdr ov)))
    has-flymake-overlays))
Eli Zaretskii's avatar
Eli Zaretskii committed
892

893
(defface flymake-errline