Browse files

(inferior-haskell-find-haddock): Jump to the symbol anchor within Had…

…dock.

Ignore-this: 1da2adb88e7e3c379a6675371dd7e0a8

darcs-hash:20080228225527-c2f2e-a9d219a8478b82dd505b4d73164b30eb20c87987.gz
  • Loading branch information...
1 parent 13d8c32 commit f2fd5e5daf247668e250eb6ecab1d0ad89f5bccf monnier committed Feb 28, 2008
Showing with 8 additions and 1 deletion.
  1. +5 −0 ChangeLog
  2. +3 −1 inf-haskell.el
View
5 ChangeLog
@@ -1,3 +1,8 @@
+2008-02-28 Greg Steuck <greg@nest.cx> (tiny change)
+
+ * inf-haskell.el (inferior-haskell-find-haddock): Jump to the symbol
+ anchor within Haddock.
+
2008-02-18 Daniel Burrows <dburrows@debian.org> (tiny change)
* haskell-indent.el (haskell-indent-next-symbol-safe): New fun.
View
4 inf-haskell.el
@@ -656,7 +656,9 @@ we load it."
(url (if (or (eq inferior-haskell-use-web-docs 'always)
(and (not (file-exists-p local-path))
(eq inferior-haskell-use-web-docs 'fallback)))
- (concat inferior-haskell-web-docs-base package "/" file-name)
+ (concat inferior-haskell-web-docs-base package "/" file-name
+ ;; Jump to the symbol anchor within Haddock.
+ "#v:" sym)
(and (file-exists-p local-path)
(concat "file://" local-path)))))
(if url (browse-url url) (error "Local file doesn't exist."))))

0 comments on commit f2fd5e5

Please sign in to comment.