mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-27 10:54:40 +00:00
Code Issues Releases Activity

(dired-move-to-filename-regexp): New variable.

Browse Source 
(dired-move-to-filename): Use that.
This commit is contained in:
Richard M. Stallman 1994-01-07 12:23:44 +00:00
parent 47d5376912
commit c4a7b2a414
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/dired.el
View File

@ -1116,6 +1116,10 @@ Optional arg NO-ERROR-IF-NOT-FILEP means return nil if no filename on
;;; Functions for finding the file name in a dired buffer line.
(defvar dired-move-to-filename-regexp
"\\(Jan\\|Feb\\|Mar\\|Apr\\|May\\|Jun\\|Jul\\|Aug\\|Sep\\|Oct\\|Nov\\|Dec\\)[ ]+[0-9]+"
"Regular expression to match a month abbreviation followed by a number.")
;; Move to first char of filename on this line.
;; Returns position (point) or nil if no filename on this line."
(defun dired-move-to-filename (&optional raise-error eol)
@ -1123,7 +1127,7 @@ Optional arg NO-ERROR-IF-NOT-FILEP means return nil if no filename on
(or eol (setq eol (progn (end-of-line) (point))))
(beginning-of-line)
(if (re-search-forward
"\\(Jan\\|Feb\\|Mar\\|Apr\\|May\\|Jun\\|Jul\\|Aug\\|Sep\\|Oct\\|Nov\\|Dec\\)[ ]+[0-9]+"
dired-move-to-filename-regexp
eol t)
(progn
(skip-chars-forward " ") ; there is one SPC after day of month