[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: info inconsistency about "Shell Commands in Dired"
From: |
Luc Teirlinck |
Subject: |
Re: info inconsistency about "Shell Commands in Dired" |
Date: |
Sat, 21 Aug 2004 15:18:10 -0500 (CDT) |
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)))))
============================================================
Re: info inconsistency about "Shell Commands in Dired", Eli Zaretskii, 2004/08/21
Re: info inconsistency about "Shell Commands in Dired", Richard Stallman, 2004/08/21