CVS update by stephent packages/xemacs-packages/xemacs-base ...

[xemacs-cvs at xemacs.org]

  User: stephent
  Date: 07/03/07 05:18:43

  Modified:    packages/xemacs-packages/xemacs-base ChangeLog comint.el
Log:
Fix infloop in comint completion.

Revision  Changes    Path
1.193     +4 -0      XEmacs/packages/xemacs-packages/xemacs-base/ChangeLog

Index: ChangeLog
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/xemacs-base/ChangeLog,v
retrieving revision 1.192
retrieving revision 1.193
diff -u -p -r1.192 -r1.193
--- ChangeLog	2006/08/14 08:32:17	1.192
+++ ChangeLog	2007/03/07 04:18:40	1.193
@@ -1,3 +1,7 @@
+2007-02-28  Stephen J. Turnbull  <stephen at xemacs.org>
+
+	* comint.el (comint-quote-filename): Fix infloop.
+
 2006-08-14  Norbert Koch  <viteno at xemacs.org>
 
 	* Makefile (VERSION): XEmacs package 2.08 released.



1.20      +4 -7      XEmacs/packages/xemacs-packages/xemacs-base/comint.el

Index: comint.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/xemacs-base/comint.el,v
retrieving revision 1.19
retrieving revision 1.20
diff -u -p -r1.19 -r1.20
--- comint.el	2006/07/31 17:08:44	1.19
+++ comint.el	2007/03/07 04:18:40	1.20
@@ -2811,13 +2811,10 @@ Environment variables are substituted.  
 Magic characters are those in `comint-file-name-quote-list'."
   (if (null comint-file-name-quote-list)
       filename
-    (let ((regexp
-	   (format "\\(^\\|[^\\]\\)\\([%s]\\)"
-	    (mapconcat 'char-to-string comint-file-name-quote-list ""))))
-      (save-match-data
-	(while (string-match regexp filename)
-	  (setq filename (replace-match "\\1\\\\\\2" nil nil filename)))
-	filename))))
+    (mapconcat (lambda (x)
+		 (concat (if (memq x comint-file-name-quote-list) "\\" "")
+			 (char-to-string x)))
+	       filename "")))
 
 (defun comint-unquote-filename (filename)
   "Return FILENAME with quoted characters unquoted."