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-mouse.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/org/org-mouse.el')
| -rw-r--r-- | lisp/org/org-mouse.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/org/org-mouse.el b/lisp/org/org-mouse.el index a590ff87f24..aa4c20050ff 100644 --- a/lisp/org/org-mouse.el +++ b/lisp/org/org-mouse.el @@ -184,7 +184,7 @@ Changing this variable requires a restart of Emacs to get activated." (defun org-mouse-re-search-line (regexp) "Search the current line for a given regular expression." (beginning-of-line) - (re-search-forward regexp (point-at-eol) t)) + (re-search-forward regexp (line-end-position) t)) (defun org-mouse-end-headline () "Go to the end of current headline (ignoring tags)." @@ -574,7 +574,7 @@ This means, between the beginning of line and the point." (insert "+ ")) (:end ; insert text here (skip-chars-backward " \t") - (kill-region (point) (point-at-eol)) + (kill-region (point) (line-end-position)) (unless (looking-back org-mouse-punctuation (line-beginning-position)) (insert (concat org-mouse-punctuation " "))))) (insert text) @@ -985,7 +985,7 @@ This means, between the beginning of line and the point." (defun org-mouse-do-remotely (command) ;; (org-agenda-check-no-diary) (when (get-text-property (point) 'org-marker) - (let* ((anticol (- (point-at-eol) (point))) + (let* ((anticol (- (line-end-position) (point))) (marker (get-text-property (point) 'org-marker)) (buffer (marker-buffer marker)) (pos (marker-position marker)) @@ -1009,7 +1009,7 @@ This means, between the beginning of line and the point." (org-flag-heading nil))) ; show the next heading (org-back-to-heading) (setq marker (point-marker)) - (goto-char (max (point-at-bol) (- (point-at-eol) anticol))) + (goto-char (max (line-beginning-position) (- (line-end-position) anticol))) (funcall command) (message "_cmd: %S" org-mouse-cmd) (message "this-command: %S" this-command) |