mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-09-29 18:36:26 +00:00
Fix "find-visible" functions
* lisp/org.el (org-find-visible): (org-find-invisible): Return appropriate position. Add a docstring.
This commit is contained in:
parent
309cdcfab4
commit
b8f4773bfe
17
lisp/org.el
17
lisp/org.el
|
@ -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."
|
||||
|
|
Loading…
Reference in a new issue