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/emulation | |
| parent | e425b7d231d02e76ec3e3790418121fc07877e70 (diff) | |
| download | emacs-b7e867b841f47dcff3aeaef9b5608a237386ce70.tar.gz emacs-b7e867b841f47dcff3aeaef9b5608a237386ce70.tar.bz2 emacs-b7e867b841f47dcff3aeaef9b5608a237386ce70.zip | |
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/emulation')
| -rw-r--r-- | lisp/emulation/edt.el | 2 | ||||
| -rw-r--r-- | lisp/emulation/viper-cmd.el | 8 |
2 files changed, 5 insertions, 5 deletions
diff --git a/lisp/emulation/edt.el b/lisp/emulation/edt.el index 3f8113dea36..cd0e8d60cca 100644 --- a/lisp/emulation/edt.el +++ b/lisp/emulation/edt.el @@ -647,7 +647,7 @@ Argument NUM is the number of lines to move." (bottom (save-excursion (move-to-window-line bottom-margin) (point))) (far (save-excursion (goto-char bottom) - (point-at-bol (1- height))))) + (line-beginning-position (1- height))))) (ignore top far) ,@body)) diff --git a/lisp/emulation/viper-cmd.el b/lisp/emulation/viper-cmd.el index ddb49609d40..26793989d05 100644 --- a/lisp/emulation/viper-cmd.el +++ b/lisp/emulation/viper-cmd.el @@ -3266,8 +3266,8 @@ controlled by the sign of prefix numeric value." (if (and (eolp) (not (bolp))) (forward-char -1)) (if (not (looking-at "[][(){}]")) (setq anchor-point (point))) - (setq beg-lim (point-at-bol) - end-lim (point-at-eol)) + (setq beg-lim (line-beginning-position) + end-lim (line-end-position)) (cond ((re-search-forward "[][(){}]" end-lim t) (backward-char) ) ((re-search-backward "[][(){}]" beg-lim t)) @@ -4390,7 +4390,7 @@ One can use \\=`\\=` and \\='\\=' to temporarily jump 1 step back." (delete-char -1) (setq p (point)) (setq indent nil))) - (setq bol (point-at-bol)) + (setq bol (line-beginning-position)) (if (re-search-backward "[^ \t]" bol 1) (forward-char)) (delete-region (point) p) (if indent @@ -4474,7 +4474,7 @@ One can use \\=`\\=` and \\='\\=' to temporarily jump 1 step back." (goto-char pos) (beginning-of-line) (if (re-search-backward "[^ \t]" nil t) - (setq s (point-at-bol))) + (setq s (line-beginning-position))) (goto-char pos) (forward-line 1) (if (re-search-forward "[^ \t]" nil t) |