From b7e867b841f47dcff3aeaef9b5608a237386ce70 Mon Sep 17 00:00:00 2001 From: Stefan Kangas Date: Tue, 23 Aug 2022 04:54:57 +0200 Subject: Make point-at-eol and point-at-bol obsolete * lisp/subr.el (point-at-eol, point-at-bol): Make XEmacs compat aliases obsolete in favor of `pos-bol'/'line-beginning-position' or 'pos-eol'/'line-end-position'. Update callers. Ref: https://lists.gnu.org/r/emacs-devel/2022-08/msg00853.html --- lisp/dired.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'lisp/dired.el') 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) -- cgit v1.2.1