diff options
author | Stefan Kangas <stefankangas@gmail.com> | 2022-08-23 04:54:57 +0200 |
---|---|---|
committer | Stefan Kangas <stefankangas@gmail.com> | 2022-08-23 04:54:57 +0200 |
commit | b7e867b841f47dcff3aeaef9b5608a237386ce70 (patch) | |
tree | 57154cb336fcfdf9fbf80e4c6bb24b07a0432b66 /lisp/ffap.el | |
parent | e425b7d231d02e76ec3e3790418121fc07877e70 (diff) | |
download | emacs-b7e867b841f47dcff3aeaef9b5608a237386ce70.tar.gz |
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
Diffstat (limited to 'lisp/ffap.el')
-rw-r--r-- | lisp/ffap.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/ffap.el b/lisp/ffap.el index e4017595916..88b4bce9fd1 100644 --- a/lisp/ffap.el +++ b/lisp/ffap.el @@ -948,7 +948,7 @@ out of NAME." (save-excursion (re-search-backward (regexp-opt (mapcar 'car preferred-suffix-rules)) - (point-at-bol) + (line-beginning-position) t)) (push (cons "" (cdr (assoc (match-string 0) ; i.e. "(TeX-current-macro)" preferred-suffix-rules))) @@ -962,7 +962,7 @@ out of NAME." (concat (car rule) name (cdr rule))) guess-rules))) (when (< (point-min) (point-max)) - (buffer-substring (goto-char (point-min)) (point-at-eol)))))))) + (buffer-substring (goto-char (point-min)) (line-end-position)))))))) (defun ffap-tex (name) (ffap-tex-init) |