changeset 16782:97849649b875

(dired-permission-flags-regexp): New variable. (dired-move-to-end-of-filename): Use it instead of a constant.

--- a/lisp/dired.el	Mon Dec 30 04:22:22 1996 +0000
+++ b/lisp/dired.el	Mon Dec 30 04:57:17 1996 +0000
@@ -1278,7 +1278,7 @@
   (concat (or dir default-directory) file))
 
 (defun dired-make-relative (file &optional dir no-error)
-  ;;"Convert FILE (an absolute pathname) to a pathname relative to DIR.
+  ;;"Convert FILE (an absolute file name) to a name relative to DIR.
   ;; Else error (unless NO-ERROR is non-nil, then FILE is returned unchanged)
   ;;DIR defaults to default-directory."
   ;; DIR must be file-name-as-directory, as with all directory args in
@@ -1301,6 +1301,10 @@
  [ 0-9][0-9][:0-9][0-9][ 0-9] "
   "Regular expression to match a month abbreviation followed date/time.")
 
+(defvar dired-permission-flags-regexp
+  "\\([^ ]\\)[-r][-w]\\([^ ]\\)[-r][-w]\\([^ ]\\)[-r][-w]\\([^ ]\\)"
+  "Regular expression to match the permission flags in `ls -l'.")
+
 ;; 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)
@@ -1334,8 +1338,7 @@
 	;; "l---------" (some systems make symlinks that way)
 	;; "----------" (plain file with zero perms)
 	(if (re-search-backward
-	     "\\([^ ]\\)[-r][-w]\\([^ ]\\)[-r][-w]\\([^ ]\\)[-r][-w]\\([^ ]\\)"
-	     nil t)
+	     dired-permission-flags-regexp nil t)
 	    (setq file-type (char-after (match-beginning 1))
 		  symlink (eq file-type ?l)
 		  ;; Only with -F we need to know whether it's an executable