diff options
Diffstat (limited to 'lisp/dired.el')
| -rw-r--r-- | lisp/dired.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/dired.el b/lisp/dired.el index 01098fdf891..f45d215ed60 100644 --- a/lisp/dired.el +++ b/lisp/dired.el @@ -1262,13 +1262,13 @@ The return value is the target column for the file names." (dired-goto-next-file) ;; Use point difference instead of `current-column', because ;; the former works when `dired-hide-details-mode' is enabled. - (let* ((first (- (point) (point-at-bol))) + (let* ((first (- (point) (line-beginning-position))) (target first)) (while (and (not (eobp)) (progn (forward-line) (dired-move-to-filename))) - (when-let* ((distance (- (point) (point-at-bol))) + (when-let* ((distance (- (point) (line-beginning-position))) (higher (> distance target))) (setq target distance))) (and (/= first target) target)))) @@ -1284,7 +1284,7 @@ The return value is the target column for the file names." (while (dired-move-to-filename) ;; Use point difference instead of `current-column', because ;; the former works when `dired-hide-details-mode' is enabled. - (let ((distance (- target (- (point) (point-at-bol)))) + (let ((distance (- target (- (point) (line-beginning-position)))) (inhibit-read-only t)) (unless (zerop distance) (re-search-backward regexp nil t) |