CVS update by james packages/xemacs-packages/prog-modes ...
User: james
Date: 06/05/17 01:02:02
Modified: packages/xemacs-packages/prog-modes ChangeLog tcl.el
Log:
Instead of using a suspicious version number, predicate use of
comint-output-filter on whether it has a function binding or not. See
xemacs-patches message with ID <m3zmhl8slu.fsf(a)jerrypc.cs.usu.edu>.
Revision Changes Path
1.237 +5 -0 XEmacs/packages/xemacs-packages/prog-modes/ChangeLog
Index: ChangeLog
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/prog-modes/ChangeLog,v
retrieving revision 1.236
retrieving revision 1.237
diff -u -p -r1.236 -r1.237
--- ChangeLog 2006/05/08 04:31:22 1.236
+++ ChangeLog 2006/05/16 23:02:01 1.237
＠＠ -1,3 +1,8 ＠＠
+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.
+
2006-05-08 Norbert Koch <viteno(a)xemacs.org>
* Makefile (VERSION): XEmacs package 2.07 released.
1.11 +1 -1 XEmacs/packages/xemacs-packages/prog-modes/tcl.el
Index: tcl.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/prog-modes/tcl.el,v
retrieving revision 1.10
retrieving revision 1.11
diff -u -p -r1.10 -r1.11
--- tcl.el 2003/01/06 18:31:23 1.10
+++ tcl.el 2006/05/16 23:02:01 1.11
＠＠ -1282,7 +1282,7 ＠＠ Returns nil if line starts inside a stri
(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)))