mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-09-29 21:37:50 +00:00
Merge branch 'maint'
This commit is contained in:
commit
fe7830b4f3
|
@ -20830,10 +20830,11 @@ ones already marked."
|
|||
(set-mark
|
||||
(save-excursion
|
||||
(goto-char (mark))
|
||||
(goto-char (org-element-property :end (org-element-at-point)))))
|
||||
(goto-char (org-element-property :end (org-element-at-point)))
|
||||
(point)))
|
||||
(let ((element (org-element-at-point)))
|
||||
(end-of-line)
|
||||
(push-mark (org-element-property :end element) t t)
|
||||
(push-mark (min (point-max) (org-element-property :end element)) t t)
|
||||
(goto-char (org-element-property :begin element))))))
|
||||
|
||||
(defun org-narrow-to-element ()
|
||||
|
|
|
@ -2787,6 +2787,27 @@ Foo Bar
|
|||
|
||||
;;; Mark Region
|
||||
|
||||
(ert-deftest test-org/mark-element ()
|
||||
"Test `org-mark-element' specifications."
|
||||
;; Mark beginning and end of element.
|
||||
(should
|
||||
(equal '(t t)
|
||||
(org-test-with-temp-text "Para<point>graph"
|
||||
(org-mark-element)
|
||||
(list (bobp) (= (mark) (point-max))))))
|
||||
(should
|
||||
(equal '(t t)
|
||||
(org-test-with-temp-text "P1\n\nPara<point>graph\n\nP2"
|
||||
(org-mark-element)
|
||||
(list (looking-at "Paragraph")
|
||||
(org-with-point-at (mark) (looking-at "P2"))))))
|
||||
;; Do not set mark past (point-max).
|
||||
(should
|
||||
(org-test-with-temp-text "Para<point>graph"
|
||||
(narrow-to-region 2 6)
|
||||
(org-mark-element)
|
||||
(= 6 (mark)))))
|
||||
|
||||
(ert-deftest test-org/mark-subtree ()
|
||||
"Test `org-mark-subtree' specifications."
|
||||
;; Error when point is before first headline.
|
||||
|
|
Loading…
Reference in a new issue