comparison lisp/dired.el @ 6801:7c587b0670bd

(dired-move-to-filename): Use skip-chars-forward instead of looking-at, for speed.

6800:34cc2fd97a9e

;; Returns position (point) or nil if no filename on this line."
(defun dired-move-to-filename (&optional raise-error eol)
  ;; This is the UNIX version.
  (or eol (setq eol (progn (end-of-line) (point))))
  (beginning-of-line)
  (if (and (re-search-forward dired-move-to-filename-regexp eol t)
	   (looking-at " \\([0-9][0-9]:[0-9][0-9]\\| [0-9]+\\|[0-9]+ \\) "))
      (progn
	(goto-char (match-end 0))
	(point))
    (if raise-error
	(error "No file on this line")
      nil)))

(defun dired-move-to-end-of-filename (&optional no-error)
  ;; Assumes point is at beginning of filename,
  ;; thus the rwx bit re-search-backward below will succeed in *this*
  ;; line if at all.  So, it should be called only after

6801:7c587b0670bd

;; Returns position (point) or nil if no filename on this line."
(defun dired-move-to-filename (&optional raise-error eol)
  ;; This is the UNIX version.
  (or eol (setq eol (progn (end-of-line) (point))))
  (beginning-of-line)
  (or (if (re-search-forward dired-move-to-filename-regexp eol t)
	  (progn
	    (goto-char (match-end 0))
	    (if (= 7 (skip-chars-forward " 0-9:" (+ (point) 7)))
		(point))))
      (if raise-error
	  (error "No file on this line"))))

(defun dired-move-to-end-of-filename (&optional no-error)
  ;; Assumes point is at beginning of filename,
  ;; thus the rwx bit re-search-backward below will succeed in *this*
  ;; line if at all.  So, it should be called only after