PATCH packages
Stefan,
I am submitting the following patch to xemacs-patches for inclusion in
the packages distributed by the XEmacs project. Neither Emacs nor
XEmacs uses comint-input-sentinel anymore, it having been replaced with
comint-input-filter-functions. Would you consider this patch for
inclusion in the Haskell mode distribution? Thank you.
xemacs-packages/haskell-mode/ChangeLog addition:
2006-05-13 Jerry James <james(a)xemacs.org>
* haskell-ghci.el (haskell-ghci-start-process): Replace use of
comint-input-sentinel with comint-input-filter-functions.
* haskell-hugs.el (haskell-hugs-start-process): Ditto.
packages source patch:
Diff command: cvs -q diff -uN
Files affected: xemacs-packages/haskell-mode/haskell-hugs.el
xemacs-packages/haskell-mode/haskell-ghci.el
Index: xemacs-packages/haskell-mode/haskell-ghci.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/haskell-mode/haskell-ghci.el,v
retrieving revision 1.4
diff -d -u -r1.4 haskell-ghci.el
--- xemacs-packages/haskell-mode/haskell-ghci.el 2006/03/15 05:18:23 1.4
+++ xemacs-packages/haskell-mode/haskell-ghci.el 2006/05/13 18:18:08
@@ -183,7 +183,7 @@
;; Track directory changes using the `:cd' command.
(setq shell-cd-regexp ":cd")
(setq shell-dirtrackp t)
- (setq comint-input-sentinel 'shell-directory-tracker)
+ (add-hook 'comint-input-filter-functions 'shell-directory-tracker)
;; GHCi prompt should be of the form `ModuleName> '.
(setq comint-prompt-regexp "^\\*?[A-Z][\\._a-zA-Z0-9]*\\(
\\*?[A-Z][\\._a-zA-Z0-9]*\\)*> ")
Index: xemacs-packages/haskell-mode/haskell-hugs.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/haskell-mode/haskell-hugs.el,v
retrieving revision 1.3
diff -d -u -r1.3 haskell-hugs.el
--- xemacs-packages/haskell-mode/haskell-hugs.el 2006/03/15 05:18:23 1.3
+++ xemacs-packages/haskell-mode/haskell-hugs.el 2006/05/13 18:18:09
@@ -181,7 +181,7 @@
(make-local-variable 'shell-dirtrackp)
(setq shell-cd-regexp ":cd")
(setq shell-dirtrackp t)
- (setq comint-input-sentinel 'shell-directory-tracker)
+ (add-hook 'comint-input-filter-functions 'shell-directory-tracker)
; ? or module name in Hugs 1.4
(setq comint-prompt-regexp "^\? \\|^[A-Z][_a-zA-Z0-9\.]*> ")
;; comint's history syntax conflicts with Hugs syntax, eg. !!
--
Jerry James, Assistant Professor james(a)xemacs.org
Computer Science Department
http://www.cs.usu.edu/~jerry/
Utah State University