Permalink
Browse files

Fix :info.

  • Loading branch information...
1 parent e5f1385 commit d0d1046bb49aa8f302b6edd81c6437e60da6f7c4 @chrisdone chrisdone committed Jul 18, 2012
Showing with 4 additions and 3 deletions.
  1. +4 −3 haskell-process.el
View
@@ -151,11 +151,12 @@ has changed?"
(interactive)
(haskell-process-do-simple-echo
nil
- (format (if (string-match "^[a-z][A-Z]" ident)
+ (let ((ident (haskell-ident-at-point)))
+ (format (if (string-match "^[a-z][A-Z]" ident)
":info %s"
":info (%s)")
- (or ident
- (haskell-ident-at-point)))))
+ (or ident
+ (haskell-ident-at-point))))))
(defun haskell-process-do-try-info (sym)
"Get info of `sym' and echo in the minibuffer."

0 comments on commit d0d1046

Please sign in to comment.