mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +00:00
Code Issues Releases Activity

(dired-mark-sexp): Replace hard-coded month names with `dired-move-to-filename-regexp'.

Browse Source
This commit is contained in:
Juri Linkov 2004-03-31 16:09:18 +00:00
parent 778f4651d5
commit 43ee73f576
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/dired-x.el
View File

@ -1517,8 +1517,7 @@ to mark all zero length files."
;; Karsten Wenger <kw@cis.uni-muenchen.de> 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