forked from mirrors/org-mode
org-mouse-transform-to-outline: Do not rely on match-data from `org-back-to-heading'
* lisp/org-mouse.el (org-mouse-transform-to-outline): Use `org-current-level' instead of relying upon `org-back-to-heading' to set match data. Reported-by: Nick Dokos <ndokos@gmail.com> Link: https://orgmode.org/list/87352hk0nt.fsf@alphaville.usersys.redhat.com
This commit is contained in:
parent
f56ca5009e
commit
57bb9cada3
|
@ -975,7 +975,7 @@ This means, between the beginning of line and the point."
|
||||||
(interactive)
|
(interactive)
|
||||||
(org-back-to-heading)
|
(org-back-to-heading)
|
||||||
(let ((minlevel 1000)
|
(let ((minlevel 1000)
|
||||||
(replace-text (concat (match-string 0) "* ")))
|
(replace-text (concat (make-string (org-current-level) ?*) "* ")))
|
||||||
(beginning-of-line 2)
|
(beginning-of-line 2)
|
||||||
(save-excursion
|
(save-excursion
|
||||||
(while (not (or (eobp) (looking-at org-outline-regexp)))
|
(while (not (or (eobp) (looking-at org-outline-regexp)))
|
||||||
|
|
Loading…
Reference in New Issue