Permalink
Browse files

(inferior-haskell-mode): Use shell-dirtrack-mode if possible.

Ignore-this: efe1dc7fa831bed8b0c2a8c0a298be9

darcs-hash:20060518000458-c2f2e-7bfe390171cb03c0b0134ec0b139f5a92775415a.gz
  • Loading branch information...
monnier
monnier committed May 18, 2006
1 parent c6d8550 commit bbbe05440b59ed761052278e8bed96519902536b
Showing with 17 additions and 3 deletions.
  1. +10 −0 ChangeLog
  2. +7 −3 inf-haskell.el
View
@@ -1,3 +1,13 @@
+2006-05-17 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ * inf-haskell.el (inferior-haskell-mode): Use shell-dirtrack-mode
+ if possible.
+
+ * haskell-hugs.el (haskell-hugs-start-process):
+ * haskell-ghci.el (haskell-ghci-start-process):
+ Use comint-input-filter-functions rather than the outdated
+ comint-input-sentinel. Reported by Jerry James <james@xemacs.org>.
+
2005-12-09 Stefan Monnier <monnier@iro.umontreal.ca>
* indent.hs: Add some erroneous cases.
View
@@ -1,6 +1,6 @@
;;; inf-haskell.el --- Interaction with an inferior Haskell process.
-;; Copyright (C) 2004, 2005 Free Software Foundation, Inc.
+;; Copyright (C) 2004, 2005, 2006 Free Software Foundation, Inc.
;; Author: Stefan Monnier <monnier@iro.umontreal.ca>
;; Keywords: Haskell
@@ -64,9 +64,13 @@ The format should be the same as for `compilation-error-regexp-alist'.")
(set (make-local-variable 'comint-input-autoexpand) nil)
;; Setup directory tracking.
- (set (make-local-variable 'shell-dirtrackp) t)
(set (make-local-variable 'shell-cd-regexp) ":cd")
- (add-hook 'comint-input-filter-functions 'shell-directory-tracker nil 'local)
+ (condition-case nil
+ (shell-dirtrack-mode 1)
+ (error ;The minor mode function may not exist or not accept an arg.
+ (set (make-local-variable 'shell-dirtrackp) t)
+ (add-hook 'comint-input-filter-functions 'shell-directory-tracker
+ nil 'local)))
;; Setup `compile' support so you can just use C-x ` and friends.
(set (make-local-variable 'compilation-error-regexp-alist)

0 comments on commit bbbe054

Please sign in to comment.