The original code isn't necessarily broken; this just seems safer.
xemacs-packages/prog-modes/ChangeLog addition:
2006-05-13 Jerry James <james(a)xemacs.org>
* tcl.el (tcl-filter): Predicate use of comint-output-filter on a
function binding instead of on a version number.
packages source patch:
Diff command: cvs -q diff -uN
Files affected: xemacs-packages/prog-modes/tcl.el
Index: xemacs-packages/prog-modes/tcl.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/prog-modes/tcl.el,v
retrieving revision 1.10
diff -d -u -r1.10 tcl.el
--- xemacs-packages/prog-modes/tcl.el 2003/01/06 18:31:23 1.10
+++ xemacs-packages/prog-modes/tcl.el 2006/05/13 22:27:33
@@ -1282,7 +1282,7 @@
(progn
(delete-region (point) inferior-tcl-delete-prompt-marker)
(set-marker inferior-tcl-delete-prompt-marker nil)))))
- (if tcl-using-emacs-19
+ (if (fboundp 'comint-output-filter)
(comint-output-filter proc string)
(funcall comint-output-filter string)))
--
Jerry James, Assistant Professor james(a)xemacs.org
Computer Science Department
http://www.cs.usu.edu/~jerry/
Utah State University