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&gt;. 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&gt; + + * 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&gt; * 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)))