From: Luc Teirlinck <teirllm@dms.auburn.edu>
Cc: emacs-devel@gnu.org
Subject: Re: info inconsistency about "Shell Commands in Dired"
Date: Sat, 21 Aug 2004 15:18:10 -0500 (CDT) [thread overview]
Message-ID: <200408212018.i7LKIAZ06079@raven.dms.auburn.edu> (raw)
In-Reply-To: <20040821.153827.153433523.jet@gyve.org> (message from Masatake YAMATO on Sat, 21 Aug 2004 15:38:27 +0900 (JST))
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)))))
============================================================
next prev parent reply other threads:[~2004-08-21 20:18 UTC|newest]
Thread overview: 45+ messages / expand[flat|nested] mbox.gz Atom feed top
2004-08-20 19:08 info inconsistency about "Shell Commands in Dired" Masatake YAMATO
2004-08-21 0:40 ` Luc Teirlinck
2004-08-21 6:38 ` Masatake YAMATO
2004-08-21 20:18 ` Luc Teirlinck [this message]
2004-08-22 16:52 ` Richard Stallman
2004-08-21 20:35 ` Luc Teirlinck
2004-08-22 3:55 ` Eli Zaretskii
2004-08-22 4:05 ` Luc Teirlinck
2004-08-21 20:40 ` Luc Teirlinck
2004-08-21 21:24 ` Luc Teirlinck
2004-08-21 10:02 ` Eli Zaretskii
2004-08-21 16:50 ` Richard Stallman
2004-08-21 17:12 ` David Kastrup
2004-08-21 22:49 ` Luc Teirlinck
2004-08-21 23:08 ` Luc Teirlinck
2004-08-21 23:12 ` Luc Teirlinck
2004-08-22 4:17 ` Masatake YAMATO
2004-08-22 7:11 ` David Kastrup
2004-08-22 12:33 ` Masatake YAMATO
2004-08-22 12:59 ` David Kastrup
2004-08-22 14:00 ` Masatake YAMATO
2004-08-22 12:43 ` Masatake YAMATO
2004-08-22 15:31 ` Luc Teirlinck
2004-08-22 16:03 ` Masatake YAMATO
2004-08-22 19:46 ` Luc Teirlinck
2004-08-25 4:41 ` Masatake YAMATO
2004-08-22 15:00 ` Luc Teirlinck
2004-08-22 15:39 ` Masatake YAMATO
2004-08-23 23:26 ` Richard Stallman
2004-08-25 22:36 ` Luc Teirlinck
2004-08-26 4:52 ` Richard Stallman
2004-08-26 21:16 ` Luc Teirlinck
2004-08-27 16:59 ` Richard Stallman
2004-08-27 17:25 ` David Kastrup
2004-08-27 17:49 ` Luc Teirlinck
2004-08-28 16:48 ` Richard Stallman
2004-08-29 20:33 ` Juri Linkov
2004-08-30 16:05 ` Richard Stallman
2004-08-25 23:10 ` Luc Teirlinck
2004-08-26 7:28 ` Kim F. Storm
2004-08-26 14:53 ` Luc Teirlinck
2004-08-26 20:53 ` Richard Stallman
2004-08-27 7:21 ` Kim F. Storm
2004-08-28 1:35 ` Richard Stallman
2004-08-22 16:52 ` Richard Stallman
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
List information: https://www.gnu.org/software/emacs/
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=200408212018.i7LKIAZ06079@raven.dms.auburn.edu \
--to=teirllm@dms.auburn.edu \
--cc=emacs-devel@gnu.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/emacs.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).