forked from mirrors/org-mode
Move org-find-visible and org-find-invisible from org-exp.el to org.el.
This commit is contained in:
parent
71332ac8a6
commit
bc1b688ff0
|
@ -2896,17 +2896,6 @@ command."
|
|||
(switch-to-buffer-other-window buffer)
|
||||
(goto-char (point-min)))))
|
||||
|
||||
(defun org-find-visible ()
|
||||
(let ((s (point)))
|
||||
(while (and (not (= (point-max) (setq s (next-overlay-change s))))
|
||||
(get-char-property s 'invisible)))
|
||||
s))
|
||||
(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))
|
||||
|
||||
(defvar org-export-htmlized-org-css-url) ;; defined in org-html.el
|
||||
|
||||
(defun org-export-string (string fmt &optional dir)
|
||||
|
|
11
lisp/org.el
11
lisp/org.el
|
@ -17688,6 +17688,17 @@ Depending on context, this does one of the following:
|
|||
((org-at-table-p) (call-interactively 'org-table-hline-and-move))
|
||||
(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))
|
||||
(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))
|
||||
|
||||
(defun org-copy-visible (beg end)
|
||||
"Copy the visible parts of the region."
|
||||
(interactive "r")
|
||||
|
|
Loading…
Reference in a new issue