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/term.el | |
| 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/term.el')
| -rw-r--r-- | lisp/term.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/term.el b/lisp/term.el index 11c2d2aaa16..797fb18074f 100644 --- a/lisp/term.el +++ b/lisp/term.el @@ -2862,13 +2862,13 @@ See `term-prompt-regexp'." (defun term-move-to-column (column) (setq term-current-column column) - (let ((point-at-eol (line-end-position))) + (let ((line-end-position (line-end-position))) (move-to-column term-current-column t) ;; If move-to-column extends the current line it will use the face ;; from the last character on the line, set the face for the chars ;; to default. - (when (> (point) point-at-eol) - (put-text-property point-at-eol (point) 'font-lock-face 'default)))) + (when (> (point) line-end-position) + (put-text-property line-end-position (point) 'font-lock-face 'default)))) ;; Move DELTA column right (or left if delta < 0 limiting at column 0). (defun term-move-columns (delta) |