diff --git a/.emacs.d/modes.el b/.emacs.d/modes.el
index 04f667a2..b408cf0a 100644
--- a/.emacs.d/modes.el
+++ b/.emacs.d/modes.el
@@ -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)