mirrors
/
org-mode
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git
0
0
Fork 1
Code Releases Activity

Fix "find-visible" functions 

* lisp/org.el (org-find-visible):
(org-find-invisible): Return appropriate position.  Add a docstring.
This commit is contained in:
Nicolas Goaziou 2020-01-11 20:04:19 +01:00
parent 309cdcfab4
commit b8f4773bfe
1 changed files with 9 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
lisp/org.el
View File

@ -17623,15 +17623,16 @@ this numeric value."
(t (call-interactively 'org-insert-heading))))
(defun org-find-visible ()
(let ((s (point)))
(while (and (not (= (point-max) (setq s (next-overlay-change s))))
(get-char-property s 'invisible)))
s))
"Return closest visible buffer position, or `point-max'"
(if (org-invisible-p)
(next-single-char-property-change (point) 'invisible)
(point)))
(defun org-find-invisible ()
(let ((s (point)))
(while (and (not (= (point-max) (setq s (next-overlay-change s))))
(not (get-char-property s 'invisible))))
s))
"Return closest invisible buffer position, or `point-max'"
(if (org-invisible-p)
(point)
(next-single-char-property-change (point) 'invisible)))
(defun org-copy-visible (beg end)
"Copy the visible parts of the region."