Lines Matching +defs:get +defs:buffer +defs:create
45 "If t, flymake syntax check process is running for the current buffer.")
46 (make-variable-buffer-local 'flymake-is-running)
50 (make-variable-buffer-local 'flymake-timer)
53 "Time of last buffer change.")
54 (make-variable-buffer-local 'flymake-last-change-time)
58 (make-variable-buffer-local 'flymake-check-start-time)
62 (make-variable-buffer-local 'flymake-check-was-interrupted)
66 (make-variable-buffer-local 'flymake-err-info)
70 (make-variable-buffer-local 'flymake-new-err-info)
106 (defalias 'flymake-get-temp-dir
153 (let* ((pos (flymake-get-point-pixel-pos))
163 (list (flymake-get-point-pixel-pos) (selected-window)))
207 (defun flymake-get-point-pixel-pos ()
242 ;;(with-temp-buffer
245 ;; (flymake-save-buffer-in-file "d:/flymake.log" t) ; make log file name customizable
266 (make-variable-buffer-local 'flymake-output-residual)
294 (defun flymake-get-file-name-mode-and-masks (file-name)
310 (if (flymake-get-init-function file-name) t nil))
312 (defun flymake-get-init-function (file-name)
314 (let* ((init-f (nth 0 (flymake-get-file-name-mode-and-masks file-name))))
316 ;;(funcall init-f (current-buffer))
319 (defun flymake-get-cleanup-function (file-name)
321 (or (nth 1 (flymake-get-file-name-mode-and-masks file-name))
324 (defun flymake-get-real-file-name-function (file-name)
325 (or (nth 2 (flymake-get-file-name-mode-and-masks file-name))
326 'flymake-get-real-file-name))
335 (defun flymake-get-buildfile-from-cache (dir-name)
348 (or (flymake-get-buildfile-from-cache source-dir-name)
439 (defun flymake-check-patch-master-file-buffer
440 (master-file-temp-buffer
448 Whether a buffer for MATER-FILE-NAME exists, use it as a source
458 (with-current-buffer master-file-temp-buffer
480 ;; XEmacs with 'last match not a buffer' error as
487 (flymake-save-buffer-in-file patched-master-file-name)))
488 ;;+(flymake-log 3 "killing buffer %s"
489 ;; (buffer-name master-file-temp-buffer))
490 (kill-buffer master-file-temp-buffer))
504 (defun flymake-read-file-to-temp-buffer (file-name)
505 "Insert contents of FILE-NAME into newly created temp buffer."
506 (let* ((temp-buffer (get-buffer-create (generate-new-buffer-name (concat "flymake:" (file-name-nondirectory file-name))))))
507 (with-current-buffer temp-buffer
509 temp-buffer))
511 (defun flymake-copy-buffer-to-temp-buffer (buffer)
512 "Copy contents of BUFFER into newly created temp buffer."
513 (with-current-buffer
514 (get-buffer-create (generate-new-buffer-name
515 (concat "flymake:" (buffer-name buffer))))
516 (insert-buffer-substring buffer)
517 (current-buffer)))
533 (defun flymake-find-buffer-for-file (file-name)
534 "Check if there exists a buffer visiting FILE-NAME.
536 (let ((buffer-name (get-file-buffer file-name)))
537 (if buffer-name
538 (get-buffer buffer-name))))
540 (defun flymake-create-master-file (source-file-name patched-source-file-name get-incl-dirs-f create-temp-f masks include-regexp)
546 (temp-buffer nil)
553 (setq patched-master-file-name (funcall create-temp-f master-file-name "flymake_master"))
554 (if (flymake-find-buffer-for-file master-file-name)
555 (setq temp-buffer (flymake-copy-buffer-to-temp-buffer (flymake-find-buffer-for-file master-file-name)))
556 (setq temp-buffer (flymake-read-file-to-temp-buffer master-file-name)))
558 (flymake-check-patch-master-file-buffer
559 temp-buffer
564 (funcall get-incl-dirs-f (file-name-directory master-file-name))
574 (defun flymake-save-buffer-in-file (file-name)
579 (flymake-log 3 "saved buffer %s in file %s" (buffer-name) file-name))
587 (with-temp-buffer
589 (buffer-substring (point-min) (point-max))))
594 (let ((source-buffer (process-buffer process)))
598 (when source-buffer
599 (with-current-buffer source-buffer
607 (source-buffer (process-buffer process))
608 (cleanup-f (flymake-get-cleanup-function (buffer-file-name source-buffer))))
615 (when (buffer-live-p source-buffer)
616 (with-current-buffer source-buffer
622 (when (buffer-live-p source-buffer)
623 (with-current-buffer source-buffer
629 (let ((err-str (format "Error in process sentinel for buffer %s: %s"
630 source-buffer (error-message-string err))))
632 (with-current-buffer source-buffer
644 (setq err-count (flymake-get-err-count flymake-err-info "e"))
645 (setq warn-count (flymake-get-err-count flymake-err-info "w"))
647 (buffer-name) err-count warn-count
662 (let* ((buffer-residual flymake-output-residual)
663 (total-output (if buffer-residual (concat buffer-residual output) output))
684 (defun flymake-er-get-line (err-info)
687 (defun flymake-er-get-line-err-info-list (err-info)
716 (defun flymake-get-line-err-count (line-err-info-list type)
729 (defun flymake-get-err-count (err-info-list type)
735 (setq err-count (+ err-count (flymake-get-line-err-count (nth 1 (nth idx err-info-list)) type)))
750 (setq line (flymake-er-get-line err-info))
755 (flymake-er-get-line-err-info-list err-info)))))
767 (and (overlayp ov) (overlay-get ov 'flymake-overlay)))
816 "Highlight line LINE-NO in current buffer.
847 (if (> (flymake-get-line-err-count line-err-info-list "e") 0)
859 (source-file-name buffer-file-name)
860 (get-real-file-name-f (flymake-get-real-file-name-function source-file-name)))
865 (setq real-file-name (funcall get-real-file-name-f
993 (setq line-err-info-list (flymake-er-get-line-err-info-list (nth pos err-info-list))))
1034 (setq line-err-info-list (flymake-er-get-line-err-info-list (car (nthcdr pos err-info-list)))))
1043 (defun flymake-get-project-include-dirs-imp (basedir)
1045 (if (flymake-get-project-include-dirs-from-cache basedir)
1047 (flymake-get-project-include-dirs-from-cache basedir))
1069 (defcustom flymake-get-project-include-dirs-function 'flymake-get-project-include-dirs-imp
1070 "Function used to get project include dirs, one parameter: basedir name."
1074 (defun flymake-get-project-include-dirs (basedir)
1075 (funcall flymake-get-project-include-dirs-function basedir))
1077 (defun flymake-get-system-include-dirs ()
1084 (defun flymake-get-project-include-dirs-from-cache (base-dir)
1093 (defun flymake-get-include-dirs (base-dir)
1095 (let* ((include-dirs (append '(".") (flymake-get-project-include-dirs base-dir) (flymake-get-system-include-dirs))))
1102 ;; (defun flymake-get-program-dir (buffer)
1104 ;; (unless (bufferp buffer)
1105 ;; (error "Invalid buffer"))
1106 ;; (with-current-buffer buffer
1128 "Start syntax checking for current buffer."
1132 (flymake-can-syntax-check-file buffer-file-name))
1134 (not (flymake-compilation-is-running))) ;+ (flymake-rep-ort-status buffer "COMP")
1140 (let* ((source-file-name buffer-file-name)
1141 (init-f (flymake-get-init-function source-file-name))
1142 (cleanup-f (flymake-get-cleanup-function source-file-name))
1163 (setq process (apply 'start-process "flymake-proc" (current-buffer) cmd args))
1180 (source-file-name buffer-file-name)
1181 (cleanup-f (flymake-get-cleanup-function source-file-name)))
1189 (let* ((buf (process-buffer proc)))
1190 (when (buffer-live-p buf)
1191 (with-current-buffer buf
1216 (defun flymake-on-timer-event (buffer)
1217 "Start a syntax check for buffer BUFFER if necessary."
1218 (when (buffer-live-p buffer)
1219 (with-current-buffer buffer
1230 "Return number of current line in current buffer."
1234 "Return number of lines in buffer BUFFER."
1272 (flymake-get-line-err-count line-err-info-list "e")
1273 (flymake-get-line-err-count line-err-info-list "w"))))
1278 "Try to get buffer for FILE and goto line LINE in it."
1288 (make-variable-buffer-local 'flymake-mode-line)
1292 (make-variable-buffer-local 'flymake-mode-line-e-w)
1296 (make-variable-buffer-local 'flymake-mode-line-status)
1326 (flymake-log 0 "switched OFF Flymake mode for buffer %s due to fatal status %s, warning %s"
1327 (buffer-name) status warning))
1344 (if (not (flymake-can-syntax-check-file buffer-file-name))
1345 (flymake-log 2 "flymake cannot check syntax in buffer %s" (buffer-name))
1348 (add-hook 'kill-buffer-hook 'flymake-kill-buffer-hook nil t)
1354 (run-at-time nil 1 'flymake-on-timer-event (current-buffer)))
1363 (remove-hook 'kill-buffer-hook 'flymake-kill-buffer-hook t)
1378 (flymake-log 1 "flymake mode turned ON for buffer %s" (buffer-name)))
1384 (flymake-log 1 "flymake mode turned OFF for buffer %s" (buffer-name)))
1387 "Start syntax check if newline char was added/removed from the buffer."
1392 "Start syntax check for current buffer if it isn't already running."
1394 (let((new-text (buffer-substring start stop)))
1401 (if (local-variable-p 'flymake-mode (current-buffer)) ; (???) other way to determine whether flymake is active in buffer being saved?
1403 (flymake-log 3 "starting syntax check as buffer was saved")
1406 (defun flymake-kill-buffer-hook ()
1416 (when (and (not (local-variable-p 'flymake-mode (current-buffer)))
1417 (flymake-can-syntax-check-file buffer-file-name))
1421 (defun flymake-get-first-err-line-no (err-info-list)
1424 (flymake-er-get-line (car err-info-list))))
1426 (defun flymake-get-last-err-line-no (err-info-list)
1429 (flymake-er-get-line (nth (1- (length err-info-list)) err-info-list))))
1431 (defun flymake-get-next-err-line-no (err-info-list line-no)
1436 (while (and (< idx count) (>= line-no (flymake-er-get-line (nth idx err-info-list))))
1439 (flymake-er-get-line (nth idx err-info-list))))))
1441 (defun flymake-get-prev-err-line-no (err-info-list line-no)
1445 (while (and (> count 0) (<= line-no (flymake-er-get-line (nth (1- count) err-info-list))))
1448 (flymake-er-get-line (nth (1- count) err-info-list))))))
1463 (let ((line-no (flymake-get-next-err-line-no flymake-err-info (flymake-current-line-no))))
1465 (setq line-no (flymake-get-first-err-line-no flymake-err-info))
1469 (flymake-log 1 "no errors in current buffer"))))
1474 (let ((line-no (flymake-get-prev-err-line-no flymake-err-info (flymake-current-line-no))))
1476 (setq line-no (flymake-get-last-err-line-no flymake-err-info))
1480 (flymake-log 1 "no errors in current buffer"))))
1488 (defun flymake-create-temp-inplace (file-name prefix)
1497 (flymake-log 3 "create-temp-inplace: file=%s temp=%s" file-name temp-name)
1500 (defun flymake-create-temp-with-folder-structure (file-name prefix)
1509 (flymake-get-temp-dir))))
1515 "Attempt to delete temp dir created by `flymake-create-temp-with-folder-structure', do not fail on error."
1516 (let* ((temp-dir (flymake-get-temp-dir))
1527 (make-variable-buffer-local 'flymake-temp-source-file-name)
1530 (make-variable-buffer-local 'flymake-master-file-name)
1533 (make-variable-buffer-local 'flymake-temp-master-file-name)
1536 (make-variable-buffer-local 'flymake-base-dir)
1538 (defun flymake-init-create-temp-buffer-copy (create-temp-f)
1539 "Make a temporary copy of the current buffer, save its name in buffer data and return the name."
1540 (let* ((source-file-name buffer-file-name)
1541 (temp-source-file-name (funcall create-temp-f source-file-name "flymake")))
1543 (flymake-save-buffer-in-file temp-source-file-name)
1548 "Do cleanup after `flymake-init-create-temp-buffer-copy'.
1553 (defun flymake-get-real-file-name (file-name-from-err-msg)
1557 (source-file-name buffer-file-name)
1573 (setq real-name (flymake-get-full-patched-file-name file-name-from-err-msg base-dirs files))
1576 (setq real-name (flymake-get-full-nonpatched-file-name file-name-from-err-msg base-dirs)))
1580 (flymake-log 3 "get-real-file-name: file-name=%s real-name=%s" file-name-from-err-msg real-name)
1583 (defun flymake-get-full-patched-file-name (file-name-from-err-msg base-dirs files)
1603 (defun flymake-get-full-nonpatched-file-name (file-name-from-err-msg base-dirs)
1617 "Find buildfile, store its dir in buffer data and return its dir, if found."
1628 (defun flymake-init-create-temp-source-and-master-buffer-copy (get-incl-dirs-f create-temp-f master-file-masks include-regexp)
1629 "Find master file (or buffer), create its copy along with a copy of the source file."
1630 (let* ((source-file-name buffer-file-name)
1631 (temp-source-file-name (flymake-init-create-temp-buffer-copy create-temp-f))
1632 (master-and-temp-master (flymake-create-master-file
1634 get-incl-dirs-f create-temp-f
1650 (defun flymake-get-syntax-check-program-args (source-file-name base-dir use-relative-base-dir use-relative-source get-cmd-line-f)
1652 (funcall get-cmd-line-f
1661 (defun flymake-get-make-cmdline (source base-dir)
1670 (defun flymake-get-ant-cmdline (source base-dir)
1677 (defun flymake-simple-make-init-impl (create-temp-f use-relative-base-dir use-relative-source build-file-name get-cmdline-f)
1681 (source-file-name buffer-file-name)
1684 (let* ((temp-source-file-name (flymake-init-create-temp-buffer-copy create-temp-f)))
1685 (setq args (flymake-get-syntax-check-program-args temp-source-file-name buildfile-dir
1687 get-cmdline-f))))
1691 (flymake-simple-make-init-impl 'flymake-create-temp-inplace t t "Makefile" 'flymake-get-make-cmdline))
1693 (defun flymake-master-make-init (get-incl-dirs-f master-file-masks include-regexp)
1696 (temp-master-file-name (flymake-init-create-temp-source-and-master-buffer-copy
1697 get-incl-dirs-f 'flymake-create-temp-inplace
1702 (setq make-args (flymake-get-syntax-check-program-args
1703 temp-master-file-name buildfile-dir nil nil 'flymake-get-make-cmdline)))))
1711 (flymake-master-make-init 'flymake-get-include-dirs
1717 (flymake-simple-make-init-impl 'flymake-create-temp-with-folder-structure nil nil "Makefile" 'flymake-get-make-cmdline))
1720 (flymake-simple-make-init-impl 'flymake-create-temp-with-folder-structure nil nil "build.xml" 'flymake-get-ant-cmdline))
1731 (let* ((temp-file (flymake-init-create-temp-buffer-copy
1732 'flymake-create-temp-inplace))
1735 (file-name-directory buffer-file-name))))
1739 (defun flymake-get-tex-args (file-name)
1744 (flymake-get-tex-args (flymake-init-create-temp-buffer-copy 'flymake-create-temp-inplace)))
1747 (let* ((temp-master-file-name (flymake-init-create-temp-source-and-master-buffer-copy
1748 'flymake-get-include-dirs-dot 'flymake-create-temp-inplace
1752 (flymake-get-tex-args temp-master-file-name))))
1754 (defun flymake-get-include-dirs-dot (base-dir)
1759 (list "xml" (list "val" (flymake-init-create-temp-buffer-copy 'flymake-create-temp-inplace))))