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/calc | |
| 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/calc')
| -rw-r--r-- | lisp/calc/calc-keypd.el | 2 | ||||
| -rw-r--r-- | lisp/calc/calc-yank.el | 6 |
2 files changed, 4 insertions, 4 deletions
diff --git a/lisp/calc/calc-keypd.el b/lisp/calc/calc-keypd.el index 6144ee1c08b..3db3746a8e5 100644 --- a/lisp/calc/calc-keypd.el +++ b/lisp/calc/calc-keypd.el @@ -387,7 +387,7 @@ (interactive) (unless (eq major-mode 'calc-keypad-mode) (error "Must be in *Calc Keypad* buffer for this command")) - (let* ((row (count-lines (point-min) (point-at-bol))) + (let* ((row (count-lines (point-min) (line-beginning-position))) (y (/ row 2)) (x (/ (current-column) (if (>= y 4) 6 5))) radix frac inv diff --git a/lisp/calc/calc-yank.el b/lisp/calc/calc-yank.el index d4594370cae..504ba5b40d1 100644 --- a/lisp/calc/calc-yank.el +++ b/lisp/calc/calc-yank.el @@ -48,7 +48,7 @@ (let ((stuff (calc-top-list n (- num n -1)))) (calc-cursor-stack-index num) (unless calc-kill-line-numbering - (re-search-forward "\\=[0-9]+:\\s-+" (point-at-eol) t)) + (re-search-forward "\\=[0-9]+:\\s-+" (line-end-position) t)) (let ((first (point))) (calc-cursor-stack-index (- num n)) (if (null nn) @@ -410,8 +410,8 @@ Interactively, reads the register using `register-read-with-preview'." (setq single t) (setq arg (prefix-numeric-value arg)) (if (= arg 0) - (setq top (point-at-bol) - bot (point-at-eol)) + (setq top (line-beginning-position) + bot (line-end-position)) (save-excursion (setq top (point)) (forward-line arg) |