Mercurial > emacs
changeset 5483:5d55b13edb62
(dired-move-to-filename-regexp): New variable.
(dired-move-to-filename): Use that.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 07 Jan 1994 12:23:44 +0000 |
| parents | 27603dcb6260 |
| children | ac101697f58c |
| files | lisp/dired.el |
| diffstat | 1 files changed, 5 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/dired.el Fri Jan 07 11:58:27 1994 +0000 +++ b/lisp/dired.el Fri Jan 07 12:23:44 1994 +0000 @@ -1116,6 +1116,10 @@ ;;; 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 @@ (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