comparison lisp/progmodes/flymake.el @ 60904:6c1fb526eda5

Use with-current-buffer. (flymake-float-time, flymake-get-temp-dir, flymake-replace-regexp-in-string) (flymake-line-beginning-position, flymake-current-row, flymake-selected-frame) (flymake-line-end-position, flymake-popup-menu): Avoid testing for `xemacs'. (flymake-nop): Move. (flymake-region-has-flymake-overlays): Return the computed value. (flymake-reformat-err-line-patterns-from-compile-el): Use dolist. Remove unused var `endline'. (flymake-get-line-count): Remove unused function. (flymake-display-err-menu-for-current-line): Unused var `move-mouse-pos'.

60903:29db3b79c3fa

(defsubst flymake-makehash (&optional test)
  (if (fboundp 'make-hash-table)
      (if test (make-hash-table :test test) (make-hash-table))
    (makehash test)))

(defun flymake-float-time ()
  (if (featurep 'xemacs)
      (let ((tm (current-time)))
	(multiple-value-bind (s0 s1 s2) (current-time)
			     (+ (* (float (ash 1 16)) s0) (float s1) (* 0.0000001 s2))))
    (float-time)))

(defsubst flymake-replace-regexp-in-string (regexp rep str)
  (if (featurep 'xemacs)
      (replace-in-string str regexp rep)
    (replace-regexp-in-string regexp rep str)))

(defun flymake-split-string (str pattern)
  "Split, then remove first and/or last in case it's empty."
  (let* ((splitted (split-string str pattern)))
    (if (and (> (length splitted) 0) (= 0 (length (elt splitted 0))))

    (if (and (> (length splitted) 0) (= 0 (length (elt splitted (1- (length splitted))))))
	(setq splitted (reverse (cdr (reverse splitted)))))
    splitted))

(defsubst flymake-get-temp-dir ()
  (if (featurep 'xemacs)
      (temp-directory)
    temporary-file-directory))

(defun flymake-line-beginning-position ()
  (save-excursion
    (beginning-of-line)
    (point)))

(defun flymake-line-end-position ()
  (save-excursion
    (end-of-line)
    (point)))

(defun flymake-popup-menu (pos menu-data)
  (if (featurep 'xemacs)
      (let* ((x-pos       (nth 0 (nth 0 pos)))
	     (y-pos       (nth 1 (nth 0 pos)))
	     (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))

    (setq menu-commands (mapcar (lambda (foo)
				  (cons (nth 0 foo) (nth 1 foo)))
				menu-items))
    (list menu-title (cons "" menu-commands))))

(defun flymake-nop ())

(if (featurep 'xemacs) (progn

(defun flymake-make-xemacs-menu (menu-data)
  (let* ((menu-title     (nth 0 menu-data))
	 (menu-items     (nth 1 menu-data))
	 (menu-commands  nil))

)) ;; xemacs

(defun flymake-current-row ()
  "Return current row number in current frame."
  (if (featurep 'xemacs)
      (count-lines (window-start) (point))
    (+ (car (cdr (window-edges))) (count-lines (window-start) (point)))))

(defun flymake-selected-frame ()
  (if (featurep 'xemacs)
      (selected-window)
    (selected-frame)))

;;;; ]]

(defcustom flymake-log-level -1
  "Logging level, only messages with level > flymake-log-level will not be logged
-1 = NONE, 0 = ERROR, 1 = WARNING, 2 = INFO, 3 = DEBUG"
  :group 'flymake
  :type 'integer)

(defun flymake-log (level text &rest args)

  (unless (bufferp buffer)
    (error "Invalid buffer"))

  (if (eq buffer (current-buffer))
      (symbol-value var-name)
    (save-excursion
      (set-buffer buffer)
      (symbol-value var-name))))

(defun flymake-set-buffer-var (buffer var-name var-value)
  "Switch to BUFFER if necessary and set local variable VAR-NAME to VAR-VALUE."
  (unless (bufferp buffer)
    (error "Invalid buffer"))

  (if (eq buffer (current-buffer))
      (set var-name var-value)
    (save-excursion
      (set-buffer buffer)
      (set var-name var-value))))

(defvar flymake-buffer-data (flymake-makehash)
  "Data specific to syntax check tool, in name-value pairs.")

    (insert rep)))

(defun flymake-read-file-to-temp-buffer (file-name)
  "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))))))
    (save-excursion
      (set-buffer temp-buffer)
      (insert-file-contents file-name))
    temp-buffer))

(defun flymake-copy-buffer-to-temp-buffer (buffer)
  "Copy contents of BUFFER into newly created temp buffer."
  (let ((contents     nil)
	(temp-buffer  nil))
    (save-excursion
      (set-buffer buffer)
      (setq contents (buffer-string))

      (setq temp-buffer (get-buffer-create (generate-new-buffer-name (concat "flymake:" (buffer-name buffer)))))
      (set-buffer temp-buffer)
      (insert contents))

	nil))))

(defun flymake-save-buffer-in-file (buffer file-name)
  (or buffer
      (error "Invalid buffer"))
  (save-excursion
    (save-restriction
      (set-buffer buffer)
      (widen)
      (make-directory (file-name-directory file-name) 1)
      (write-region (point-min) (point-max) file-name nil 566)))
  (flymake-log 3 "saved buffer %s in file %s" (buffer-name buffer) file-name))

	      (flymake-unreg-names pid)
	      (delete-process process)

	      (when source-buffer
		(save-excursion
		  (set-buffer source-buffer)

		  (flymake-parse-residual source-buffer)
		  (flymake-post-syntax-check source-buffer exit-status command)
		  (flymake-set-buffer-is-running source-buffer nil))))
	  (error

	    (flymake-report-status source-buffer nil ""))) ; "STOPPED"
      (flymake-report-status source-buffer (format "%d/%d" err-count warn-count) ""))))

(defun flymake-parse-output-and-residual (source-buffer output)
  "Split OUTPUT into lines, merge in residual if necessary."
  (save-excursion
    (set-buffer source-buffer)
    (let* ((buffer-residual     (flymake-get-buffer-output-residual source-buffer))
	   (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)))

						      (flymake-get-buffer-new-err-info source-buffer)
						      source-buffer lines)))))

(defun flymake-parse-residual (source-buffer)
  "Parse residual if it's non empty."
  (save-excursion
    (set-buffer source-buffer)
    (when (flymake-get-buffer-output-residual source-buffer)
      (flymake-set-buffer-new-err-info source-buffer (flymake-parse-err-lines
						      (flymake-get-buffer-new-err-info source-buffer)
						      source-buffer
						      (list (flymake-get-buffer-output-residual source-buffer))))

      (setq count (1- count))))
  err-info-list)

(defun flymake-highlight-err-lines (buffer err-info-list)
  "Highlight error lines in BUFFER using info from ERR-INFO-LIST."
  (save-excursion
    (set-buffer buffer)
    (let* ((idx    0)
	   (count  (length err-info-list)))
      (while (< idx count)
	(flymake-highlight-line (car (nth idx err-info-list)) (nth 1 (nth idx err-info-list)))
	(setq idx (1+ idx))))))

      ov)
    (flymake-log 3 "created an overlay at (%d-%d)" beg end)))

(defun flymake-delete-own-overlays (buffer)
  "Delete all flymake overlays in BUFFER."
  (save-excursion
    (set-buffer buffer)
    (let ((ov (overlays-in (point-min) (point-max))))
      (while (consp ov)
	(when (flymake-overlay-p (car ov))
	  (delete-overlay (car ov))
	  ;;+(flymake-log 3 "deleted overlay %s" ov)

  (let ((ov                  (overlays-in beg end))
	(has-flymake-overlays  nil))
    (while (consp ov)
      (when (flymake-overlay-p (car ov))
	(setq has-flymake-overlays t))
      (setq ov (cdr ov)))))

(defface flymake-errline-face
  ;;+   '((((class color)) (:foreground "OrangeRed" :bold t :underline t))
  ;;+   '((((class color)) (:underline "OrangeRed"))
  '((((class color)) (:background "LightPink"))

(defun flymake-reformat-err-line-patterns-from-compile-el (original-list)
  "Grab error line patterns from ORIGINAL-LIST in compile.el format.
Convert it to flymake internal format."
  (let* ((converted-list '()))
    (mapcar
     (lambda (item)
       (setq item (cdr item))
       (let ((regexp (nth 0 item))
	     (file (nth 1 item))
	     (line (nth 2 item))
	     (col (nth 3 item))
	     end-line)
	 (if (consp file)	(setq file (car file)))
	 (if (consp line)	(setq end-line (cdr line) line (car line)))
	 (if (consp col)	(setq col (car col)))

	 (when (not (functionp line))
	   (setq converted-list (cons (list regexp file line col) converted-list)))))
     original-list)
    converted-list))

(eval-when-compile
  (require 'compile))

  )

(defun flymake-get-program-dir (buffer)
  "Get dir to start program in."
  (unless (bufferp buffer)
    (error "Invlid buffer"))
  (save-excursion
    (set-buffer buffer)
    default-directory))

(defun flymake-safe-delete-file (file-name)
  (when (and file-name (file-exists-p file-name))
    (delete-file file-name)

(defun flymake-start-syntax-check (buffer)
  "Start syntax checking for buffer BUFFER."
  (unless (bufferp buffer)
    (error "Expected a buffer"))
  (save-excursion
    (set-buffer buffer)
    (flymake-log 3 "flymake is running: %s" (flymake-get-buffer-is-running buffer))
    (when (and (not (flymake-get-buffer-is-running buffer))
	       (flymake-can-syntax-check-file (buffer-file-name buffer)))
      (when (or (not flymake-compilation-prevents-syntax-check)
		(not (flymake-compilation-is-running)))	;+ (flymake-rep-ort-status buffer "COMP")

(defun flymake-on-timer-event (buffer)
  "Start a syntax check for buffer BUFFER if necessary."
  ;;+(flymake-log 3 "timer: running=%s, time=%s, cur-time=%s" (flymake-get-buffer-is-running buffer) (flymake-get-buffer-last-change-time buffer) (flymake-float-time))
  (when (and (bufferp buffer) (not (flymake-get-buffer-is-running buffer)))
    (save-excursion
      (set-buffer buffer)
      (when (and (flymake-get-buffer-last-change-time buffer)
		 (> (flymake-float-time) (+ flymake-no-changes-timeout (flymake-get-buffer-last-change-time buffer))))
	(flymake-set-buffer-last-change-time buffer nil)
	(flymake-log 3 "starting syntax check as more than 1 second passed since last change")
	(flymake-start-syntax-check buffer)))))

  (interactive)
  (let ((beg  (point-min))
	(end  (if (= (point) (point-max)) (point) (1+ (point)))))
    (count-lines beg end)))

(defun flymake-get-line-count (buffer)
  "Return number of lines in buffer BUFFER."
  (unless (bufferp buffer)
    (error "Invalid buffer"))
  (save-excursion
    (set-buffer buffer)
    (count-lines (point-min) (point-max))))

(defun flymake-count-lines (buffer)
  "Return number of lines in buffer BUFFER."
  (save-excursion
    (set-buffer buffer)
    (count-lines (point-min) (point-max))))

(defun flymake-get-point-pixel-pos ()
  "Return point position in pixels: (x, y)."
  (let ((mouse-pos  (mouse-position))

  (let* ((line-no             (flymake-current-line-no))
	 (line-err-info-list  (nth 0 (flymake-find-err-info (flymake-get-buffer-err-info (current-buffer)) line-no)))
	 (menu-data           (flymake-make-err-menu-data line-no line-err-info-list))
	 (choice              nil)
	 (mouse-pos           (flymake-get-point-pixel-pos))
	 (moved-mouse-pos     (list (car mouse-pos) (+ 10 (car (cdr mouse-pos)))))
	 (menu-pos            (list (flymake-get-point-pixel-pos) (selected-window))))
    (if menu-data
	(progn
	  (setq choice (flymake-popup-menu menu-pos menu-data))
	  (flymake-log 3 "choice=%s" choice)

  (flymake-set-buffer-var buffer 'flymake-mode-line-status status))

(defun flymake-report-status (buffer e-w &optional status)
  "Show status in mode line."
  (when (bufferp buffer)
    (save-excursion
      (set-buffer buffer)
      (when e-w
	(flymake-set-buffer-mode-line-e-w buffer e-w)
	)
      (when status
	(flymake-set-buffer-mode-line-status buffer status))

(defun flymake-report-fatal-status (buffer status warning)
  "Display a warning and switch flymake mode off."
  (when flymake-gui-warnings-enabled
    (flymake-display-warning (format "Flymake: %s. Flymake will be switched OFF" warning))
    )
  (save-excursion
    (set-buffer buffer)
    (flymake-mode 0)
    (flymake-log 0 "switched OFF Flymake mode for buffer %s due to fatal status %s, warning %s"
		 (buffer-name buffer) status warning)))

(defun flymake-mode (&optional arg)

60904:6c1fb526eda5

(defsubst flymake-makehash (&optional test)
  (if (fboundp 'make-hash-table)
      (if test (make-hash-table :test test) (make-hash-table))
    (makehash test)))

(defalias 'flymake-float-time
  (if (fboundp 'float-time)
      'float-time
    (lambda ()
      (multiple-value-bind (s0 s1 s2) (current-time)
	(+ (* (float (ash 1 16)) s0) (float s1) (* 0.0000001 s2))))))

(defsubst flymake-replace-regexp-in-string (regexp rep str)
  (if (fboundp 'replace-regexp-in-string)
      (replace-regexp-in-string regexp rep str)
    (replace-in-string str regexp rep)))

(defun flymake-split-string (str pattern)
  "Split, then remove first and/or last in case it's empty."
  (let* ((splitted (split-string str pattern)))
    (if (and (> (length splitted) 0) (= 0 (length (elt splitted 0))))

    (if (and (> (length splitted) 0) (= 0 (length (elt splitted (1- (length splitted))))))
	(setq splitted (reverse (cdr (reverse splitted)))))
    splitted))

(defsubst flymake-get-temp-dir ()
  (if (fboundp 'temp-directory)
      (temp-directory)
    temporary-file-directory))

(defalias 'flymake-line-beginning-position
  (if (fboundp 'line-beginning-position)
      'line-beginning-position
    (lambda (&optional arg) (save-excursion (beginning-of-line arg) (point)))))

(defalias 'flymake-line-end-position
  (if (fboundp 'line-end-position)
      'line-end-position
    (lambda (&optional arg) (save-excursion (end-of-line arg) (point)))))

(defun flymake-popup-menu (pos menu-data)
  (if (and (fboundp 'popup-menu) (fboundp 'make-event))
      (let* ((x-pos       (nth 0 (nth 0 pos)))
	     (y-pos       (nth 1 (nth 0 pos)))
	     (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))

    (setq menu-commands (mapcar (lambda (foo)
				  (cons (nth 0 foo) (nth 1 foo)))
				menu-items))
    (list menu-title (cons "" menu-commands))))

(if (featurep 'xemacs) (progn

(defun flymake-nop ())

(defun flymake-make-xemacs-menu (menu-data)
  (let* ((menu-title     (nth 0 menu-data))
	 (menu-items     (nth 1 menu-data))
	 (menu-commands  nil))

)) ;; xemacs

(defun flymake-current-row ()
  "Return current row number in current frame."
  (if (fboundp 'window-edges)
      (+ (car (cdr (window-edges))) (count-lines (window-start) (point)))
    (count-lines (window-start) (point))))

(defun flymake-selected-frame ()
  (if (fboundp 'window-edges)
      (selected-frame)
    (selected-window)))

;;;; ]]

(defcustom flymake-log-level -1
  "Logging level, only messages with level lower or equal will be logged.
-1 = NONE, 0 = ERROR, 1 = WARNING, 2 = INFO, 3 = DEBUG"
  :group 'flymake
  :type 'integer)

(defun flymake-log (level text &rest args)

  (unless (bufferp buffer)
    (error "Invalid buffer"))

  (if (eq buffer (current-buffer))
      (symbol-value var-name)
    (with-current-buffer buffer
      (symbol-value var-name))))

(defun flymake-set-buffer-var (buffer var-name var-value)
  "Switch to BUFFER if necessary and set local variable VAR-NAME to VAR-VALUE."
  (unless (bufferp buffer)
    (error "Invalid buffer"))

  (if (eq buffer (current-buffer))
      (set var-name var-value)
    (with-current-buffer buffer
      (set var-name var-value))))

(defvar flymake-buffer-data (flymake-makehash)
  "Data specific to syntax check tool, in name-value pairs.")

    (insert rep)))

(defun flymake-read-file-to-temp-buffer (file-name)
  "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))))))
    (with-current-buffer temp-buffer
      (insert-file-contents file-name))
    temp-buffer))

(defun flymake-copy-buffer-to-temp-buffer (buffer)
  "Copy contents of BUFFER into newly created temp buffer."
  (let ((contents     nil)
	(temp-buffer  nil))
    (with-current-buffer buffer
      (setq contents (buffer-string))

      (setq temp-buffer (get-buffer-create (generate-new-buffer-name (concat "flymake:" (buffer-name buffer)))))
      (set-buffer temp-buffer)
      (insert contents))

	nil))))

(defun flymake-save-buffer-in-file (buffer file-name)
  (or buffer
      (error "Invalid buffer"))
  (with-current-buffer buffer
    (save-restriction
      (widen)
      (make-directory (file-name-directory file-name) 1)
      (write-region (point-min) (point-max) file-name nil 566)))
  (flymake-log 3 "saved buffer %s in file %s" (buffer-name buffer) file-name))

	      (flymake-unreg-names pid)
	      (delete-process process)

	      (when source-buffer
		(with-current-buffer source-buffer

		  (flymake-parse-residual source-buffer)
		  (flymake-post-syntax-check source-buffer exit-status command)
		  (flymake-set-buffer-is-running source-buffer nil))))
	  (error

	    (flymake-report-status source-buffer nil ""))) ; "STOPPED"
      (flymake-report-status source-buffer (format "%d/%d" err-count warn-count) ""))))

(defun flymake-parse-output-and-residual (source-buffer output)
  "Split OUTPUT into lines, merge in residual if necessary."
  (with-current-buffer source-buffer
    (let* ((buffer-residual     (flymake-get-buffer-output-residual source-buffer))
	   (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)))

						      (flymake-get-buffer-new-err-info source-buffer)
						      source-buffer lines)))))

(defun flymake-parse-residual (source-buffer)
  "Parse residual if it's non empty."
  (with-current-buffer source-buffer
    (when (flymake-get-buffer-output-residual source-buffer)
      (flymake-set-buffer-new-err-info source-buffer (flymake-parse-err-lines
						      (flymake-get-buffer-new-err-info source-buffer)
						      source-buffer
						      (list (flymake-get-buffer-output-residual source-buffer))))

      (setq count (1- count))))
  err-info-list)

(defun flymake-highlight-err-lines (buffer err-info-list)
  "Highlight error lines in BUFFER using info from ERR-INFO-LIST."
  (with-current-buffer buffer
    (let* ((idx    0)
	   (count  (length err-info-list)))
      (while (< idx count)
	(flymake-highlight-line (car (nth idx err-info-list)) (nth 1 (nth idx err-info-list)))
	(setq idx (1+ idx))))))

      ov)
    (flymake-log 3 "created an overlay at (%d-%d)" beg end)))

(defun flymake-delete-own-overlays (buffer)
  "Delete all flymake overlays in BUFFER."
  (with-current-buffer buffer
    (let ((ov (overlays-in (point-min) (point-max))))
      (while (consp ov)
	(when (flymake-overlay-p (car ov))
	  (delete-overlay (car ov))
	  ;;+(flymake-log 3 "deleted overlay %s" ov)

  (let ((ov                  (overlays-in beg end))
	(has-flymake-overlays  nil))
    (while (consp ov)
      (when (flymake-overlay-p (car ov))
	(setq has-flymake-overlays t))
      (setq ov (cdr ov)))
    has-flymake-overlays))

(defface flymake-errline-face
  ;;+   '((((class color)) (:foreground "OrangeRed" :bold t :underline t))
  ;;+   '((((class color)) (:underline "OrangeRed"))
  '((((class color)) (:background "LightPink"))

(defun flymake-reformat-err-line-patterns-from-compile-el (original-list)
  "Grab error line patterns from ORIGINAL-LIST in compile.el format.
Convert it to flymake internal format."
  (let* ((converted-list '()))
    (dolist (item original-list)
      (setq item (cdr item))
      (let ((regexp (nth 0 item))
	    (file (nth 1 item))
	    (line (nth 2 item))
	    (col (nth 3 item)))
	(if (consp file)	(setq file (car file)))
	(if (consp line)	(setq line (car line)))
	(if (consp col)	(setq col (car col)))
	
	(when (not (functionp line))
	  (setq converted-list (cons (list regexp file line col) converted-list)))))
    converted-list))

(eval-when-compile
  (require 'compile))

  )

(defun flymake-get-program-dir (buffer)
  "Get dir to start program in."
  (unless (bufferp buffer)
    (error "Invalid buffer"))
  (with-current-buffer buffer
    default-directory))

(defun flymake-safe-delete-file (file-name)
  (when (and file-name (file-exists-p file-name))
    (delete-file file-name)

(defun flymake-start-syntax-check (buffer)
  "Start syntax checking for buffer BUFFER."
  (unless (bufferp buffer)
    (error "Expected a buffer"))
  (with-current-buffer buffer
    (flymake-log 3 "flymake is running: %s" (flymake-get-buffer-is-running buffer))
    (when (and (not (flymake-get-buffer-is-running buffer))
	       (flymake-can-syntax-check-file (buffer-file-name buffer)))
      (when (or (not flymake-compilation-prevents-syntax-check)
		(not (flymake-compilation-is-running)))	;+ (flymake-rep-ort-status buffer "COMP")

(defun flymake-on-timer-event (buffer)
  "Start a syntax check for buffer BUFFER if necessary."
  ;;+(flymake-log 3 "timer: running=%s, time=%s, cur-time=%s" (flymake-get-buffer-is-running buffer) (flymake-get-buffer-last-change-time buffer) (flymake-float-time))
  (when (and (bufferp buffer) (not (flymake-get-buffer-is-running buffer)))
    (with-current-buffer buffer
      (when (and (flymake-get-buffer-last-change-time buffer)
		 (> (flymake-float-time) (+ flymake-no-changes-timeout (flymake-get-buffer-last-change-time buffer))))
	(flymake-set-buffer-last-change-time buffer nil)
	(flymake-log 3 "starting syntax check as more than 1 second passed since last change")
	(flymake-start-syntax-check buffer)))))

  (interactive)
  (let ((beg  (point-min))
	(end  (if (= (point) (point-max)) (point) (1+ (point)))))
    (count-lines beg end)))

(defun flymake-count-lines (buffer)
  "Return number of lines in buffer BUFFER."
  (with-current-buffer buffer
    (count-lines (point-min) (point-max))))

(defun flymake-get-point-pixel-pos ()
  "Return point position in pixels: (x, y)."
  (let ((mouse-pos  (mouse-position))

  (let* ((line-no             (flymake-current-line-no))
	 (line-err-info-list  (nth 0 (flymake-find-err-info (flymake-get-buffer-err-info (current-buffer)) line-no)))
	 (menu-data           (flymake-make-err-menu-data line-no line-err-info-list))
	 (choice              nil)
	 (mouse-pos           (flymake-get-point-pixel-pos))
	 (menu-pos            (list (flymake-get-point-pixel-pos) (selected-window))))
    (if menu-data
	(progn
	  (setq choice (flymake-popup-menu menu-pos menu-data))
	  (flymake-log 3 "choice=%s" choice)

  (flymake-set-buffer-var buffer 'flymake-mode-line-status status))

(defun flymake-report-status (buffer e-w &optional status)
  "Show status in mode line."
  (when (bufferp buffer)
    (with-current-buffer buffer
      (when e-w
	(flymake-set-buffer-mode-line-e-w buffer e-w)
	)
      (when status
	(flymake-set-buffer-mode-line-status buffer status))

(defun flymake-report-fatal-status (buffer status warning)
  "Display a warning and switch flymake mode off."
  (when flymake-gui-warnings-enabled
    (flymake-display-warning (format "Flymake: %s. Flymake will be switched OFF" warning))
    )
  (with-current-buffer buffer
    (flymake-mode 0)
    (flymake-log 0 "switched OFF Flymake mode for buffer %s due to fatal status %s, warning %s"
		 (buffer-name buffer) status warning)))

(defun flymake-mode (&optional arg)