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/org/org-refile.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/org/org-refile.el')
| -rw-r--r-- | lisp/org/org-refile.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/org/org-refile.el b/lisp/org/org-refile.el index 71d00a7a22b..3b3344b2709 100644 --- a/lisp/org/org-refile.el +++ b/lisp/org/org-refile.el @@ -465,9 +465,9 @@ prefix argument (`C-u C-u C-u C-c C-w')." (unless (or (org-kill-is-subtree-p (buffer-substring region-start region-end)) (prog1 org-refile-active-region-within-subtree - (let ((s (point-at-eol))) + (let ((s (line-end-position))) (org-toggle-heading) - (setq region-end (+ (- (point-at-eol) s) region-end))))) + (setq region-end (+ (- (line-end-position) s) region-end))))) (user-error "The region is not a (sequence of) subtree(s)"))) (if (equal arg '(16)) (org-refile-goto-last-stored) |