From: Juri Linkov Date: Wed, 31 Mar 2004 16:09:18 +0000 (+0000) Subject: (dired-mark-sexp): Replace hard-coded month names with `dired-move-to-filename-regexp'. X-Git-Tag: ttn-vms-21-2-B4~7014 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=43ee73f576c843ebe58071add1739e14682c3271;p=emacs.git (dired-mark-sexp): Replace hard-coded month names with `dired-move-to-filename-regexp'. --- diff --git a/lisp/dired-x.el b/lisp/dired-x.el index fc30428e562..21fe4902e58 100644 --- a/lisp/dired-x.el +++ b/lisp/dired-x.el @@ -1517,8 +1517,7 @@ to mark all zero length files." ;; Karsten Wenger fixed uid. (setq uid (buffer-substring (+ (point) 1) (progn (forward-word 1) (point)))) - (re-search-forward "\\(Jan\\|Feb\\|Mar\\|Apr\\|May\\|Jun\\|\ -Jul\\|Aug\\|Sep\\|Oct\\|Nov\\|Dec\\)") + (re-search-forward dired-move-to-filename-regexp) (goto-char (match-beginning 1)) (forward-char -1) (setq size (string-to-int (buffer-substring (save-excursion