# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 757945424 0
# Node ID 5d55b13edb625c9ce738f23d8b5d0cea42edf6c5
# Parent  27603dcb6260f3b0406080e45acc3b07c3c7801e
(dired-move-to-filename-regexp): New variable.
(dired-move-to-filename): Use that.

diff -r 27603dcb6260 -r 5d55b13edb62 lisp/dired.el
--- 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