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

[xemacs-cvs at xemacs.org]

  User: scop    
  Date: 08/01/03 21:42:05

  Modified:    packages/xemacs-packages/xemacs-base ChangeLog shell.el
Log:
Escape parenthesis in shell filename completion <1EC0234F7B1CA34BA1E99F48A817A1BD0B0FC6 at wcl-exc.wcl.local>

Revision  Changes    Path
1.204     +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.203
retrieving revision 1.204
diff -u -p -r1.203 -r1.204
--- ChangeLog	2007/12/25 05:50:43	1.203
+++ ChangeLog	2008/01/03 20:42:03	1.204
@@ -1,3 +1,7 @@
+2008-01-03  Ville Skyttä  <scop at xemacs.org>
+
+	* shell.el (shell-file-name-quote-list): Include `(' and `)'.
+
 2007-12-25  Norbert Koch  <viteno at xemacs.org>
 
 	* Makefile (VERSION): XEmacs package 2.13 released.



1.18      +3 -1      XEmacs/packages/xemacs-packages/xemacs-base/shell.el

Index: shell.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/xemacs-base/shell.el,v
retrieving revision 1.17
retrieving revision 1.18
diff -u -p -r1.17 -r1.18
--- shell.el	2007/05/21 18:05:36	1.17
+++ shell.el	2008/01/03 20:42:03	1.18
@@ -181,7 +181,9 @@ This is a fine thing to set in your `.em
 (defvar shell-file-name-quote-list
   (if (memq system-type '(ms-dos windows-nt))
       nil
-    (append shell-delimiter-argument-list '(?\  ?\* ?\! ?\" ?\' ?\` ?\#)))
+    ;; XEmacs change: add `(' and `)'.
+    (append shell-delimiter-argument-list
+	    '(?\  ?\* ?\! ?\" ?\' ?\` ?\# ?\( ?\))))
   "List of characters to quote when in a file name.
 This variable is used to initialize `comint-file-name-quote-list' in the
 shell buffer.  The value may depend on the operating system or shell.