tec/org-mode
tec/org-mode
1
0
Fork 0
forked from mirrors/org-mode
Code Pull requests Releases Activity

Move org-find-visible and org-find-invisible from org-exp.el to org.el.

Browse source
This commit is contained in:
Bastien Guerry 2011-08-15 09:44:52 +02:00
parent 71332ac8a6
commit bc1b688ff0
2 changed files with 11 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
lisp/org-exp.el
View file

@ -2896,17 +2896,6 @@ command."
(switch-to-buffer-other-window buffer) (switch-to-buffer-other-window buffer)
(goto-char (point-min))))) (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 (defvar org-export-htmlized-org-css-url) ;; defined in org-html.el
(defun org-export-string (string fmt &optional dir) (defun org-export-string (string fmt &optional dir)

11
lisp/org.el
View file

@ -17688,6 +17688,17 @@ Depending on context, this does one of the following:
((org-at-table-p) (call-interactively 'org-table-hline-and-move)) ((org-at-table-p) (call-interactively 'org-table-hline-and-move))
(t (call-interactively 'org-insert-heading)))) (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) (defun org-copy-visible (beg end)
"Copy the visible parts of the region." "Copy the visible parts of the region."
(interactive "r") (interactive "r")