mirrors/org-mode
0
0
Fork 1
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-09-29 19:37:52 +00:00
Code Releases Activity

org-list: Operate on single line if no active region

Browse source 
* lisp/org-list.el (org-toggle-item): Operate on single line if no
active region.
This commit is contained in:
Nicholas Vollmer 2020-07-31 18:38:11 -04:00 committed by Kyle Meyer
parent df5a836375
commit 093b474e6a
2 changed files with 8 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lisp/org-list.el
View file

@ -2953,7 +2953,7 @@ With a prefix argument ARG, change the region in a single item."
(if (org-region-active-p)
(setq beg (funcall skip-blanks (region-beginning))
end (copy-marker (region-end)))
(setq beg (funcall skip-blanks (point-at-bol))
(setq beg (point-at-bol)
end (copy-marker (point-at-eol))))
;; Depending on the starting line, choose an action on the text
;; between BEG and END.

7
testing/lisp/test-org-list.el
View file

@ -1004,6 +1004,13 @@ b. Item 2<point>"
(org-test-with-temp-text "* H\n:PROPERTIES:\n:A: 1\n:END:\n\n\nText"
(org-toggle-item nil)
(buffer-string))))
;; When no region is marked and point is on a blank line
;; only operate on current line.
(should
(equal " \n* H :tag:"
(org-test-with-temp-text "<point> \n* H :tag:"
(org-toggle-item nil)
(buffer-string))))
;; When a region is marked and first line is a headline, all
;; headlines are turned into items.
(should