Emacs: Flymake fix.

master
Ambrevar 2012-12-08 23:30:37 +01:00
parent 0bcc773ff1
commit b36dc99f1b
1 changed files with 26 additions and 0 deletions

View File

@ -262,3 +262,29 @@
;; Common LISP
;;==============================================================================
(setq inferior-lisp-program "clisp")
;;==============================================================================
;; Flymake
;;==============================================================================
;; Flymake has a bug that prevents menu from spawning in a console. We redefine
;; the function to spawn the error message in the mini-buffer.
(defun flymake-display-err-message-for-current-line ()
"Display a message with errors/warnings for current line if it
has errors and/or warnings."
(interactive)
(let* ((line-no (flymake-current-line-no))
(line-err-info-list (nth 0 (flymake-find-err-info flymake-err-info
line-no)))
(menu-data (flymake-make-err-menu-data line-no
line-err-info-list)))
(if menu-data
(let ((messages))
(push (concat (car menu-data) ":") messages)
(dolist (error-or-warning (cadr menu-data))
(push (car error-or-warning) messages))
(message "%s" (mapconcat #'identity (reverse messages) "\n"))))))
(define-key my-keys-minor-mode-map (kbd "<f10>")
'flymake-display-err-message-for-current-line)