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/cedet/semantic/symref | |
| 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/cedet/semantic/symref')
| -rw-r--r-- | lisp/cedet/semantic/symref/list.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/cedet/semantic/symref/list.el b/lisp/cedet/semantic/symref/list.el index 7823dad6ef9..eacbb6f1f8e 100644 --- a/lisp/cedet/semantic/symref/list.el +++ b/lisp/cedet/semantic/symref/list.el @@ -234,7 +234,7 @@ Some useful functions are found in `semantic-format-tag-functions'." "Toggle showing the contents below the current line." (interactive) (beginning-of-line) - (when (re-search-forward "\\[[-+]\\]" (point-at-eol) t) + (when (re-search-forward "\\[[-+]\\]" (line-end-position) t) (forward-char -1) (push-button))) @@ -255,7 +255,7 @@ BUTTON is the button that was clicked." (forward-line (1- H)) (beginning-of-line) (back-to-indentation) - (setq text (cons (buffer-substring (point) (point-at-eol)) text))) + (setq text (cons (buffer-substring (point) (line-end-position)) text))) (setq text (nreverse text))) (goto-char (button-start button)) (forward-char 1) @@ -409,7 +409,7 @@ cursor to the beginning of that symbol, then record a macro as if (switch-to-buffer-other-window (semantic-tag-buffer tag)) (goto-char (point-min)) (forward-line (1- line)) - (when (not (re-search-forward (regexp-quote oldsym) (point-at-eol) t)) + (when (not (re-search-forward (regexp-quote oldsym) (line-end-position) t)) (error "Cannot find hit. Cannot record macro")) (goto-char (match-beginning 0)) ;; Cursor is now in the right location. Start recording a macro. @@ -479,7 +479,7 @@ Return the number of occurrences FUNCTION was operated upon." (goto-char (point-min)) (forward-line (1- line)) (beginning-of-line) - (while (re-search-forward (regexp-quote oldsym) (point-at-eol) t) + (while (re-search-forward (regexp-quote oldsym) (line-end-position) t) (setq count (1+ count)) (save-excursion ;; Leave cursor after the matched name. (goto-char (match-beginning 0)) ;; Go to beginning of that sym |