Re: info inconsistency about "Shell Commands in Dired"

[Luc Teirlinck]

Masatake YAMATO wrote:

   How do you think accepting `-' and `.' in addition to the whitespace?
   I have considered more generic extension, however I have got no idea.

That would be pretty easy.  See the patch below.  That patch actually
allows `.', `-' _and_ `_".  If all we are worried about are extensions,
then that should be sufficient.  Is `-' even needed?  Is there an
operating system that uses this for extensions?  Are there any
operating systems that would suggest allowing other characters for
extensions?

A more generic solution would require more changes to the code, and
one has to be careful with them.

===File ~/dired-aux-diff====================================
*** dired-aux.el        19 Jul 2004 11:13:15 -0500      1.126
--- dired-aux.el        21 Aug 2004 14:20:47 -0500      
***************
*** 43,50 ****
  ;;;###begin dired-cmd.el
  ;; Diffing and compressing
  
! (defconst dired-star-subst-regexp "\\(^\\|[ \t]\\)\\*\\([ \t]\\|$\\)")
! (defconst dired-quark-subst-regexp "\\(^\\|[ \t]\\)\\?\\([ \t]\\|$\\)")
  
  ;;;###autoload
  (defun dired-diff (file &optional switches)
--- 43,50 ----
  ;;;###begin dired-cmd.el
  ;; Diffing and compressing
  
! (defconst dired-star-subst-regexp "\\(^\\|[ \t]\\)\\*\\([ \t._-]\\|$\\)")
! (defconst dired-quark-subst-regexp "\\(^\\|[ \t]\\)\\?\\([ \t._-]\\|$\\)")
  
  ;;;###autoload
  (defun dired-diff (file &optional switches)
***************
*** 540,546 ****
             (lambda (x)
               (let ((retval command))
                 (while (string-match
!                        "\\(^\\|[ \t]\\)\\([*?]\\)\\([ \t]\\|$\\)" retval)
                   (setq retval (replace-match x t t retval 2)))
                 retval))
           (lambda (x) (concat command dired-mark-separator x)))))
--- 540,546 ----
             (lambda (x)
               (let ((retval command))
                 (while (string-match
!                        "\\(^\\|[ \t]\\)\\([*?]\\)\\([ \t._-]\\|$\\)" retval)
                   (setq retval (replace-match x t t retval 2)))
                 retval))
           (lambda (x) (concat command dired-mark-separator x)))))
============================================================