From bc1b688ff06a94f343f6d7545f2d5551ec721afe Mon Sep 17 00:00:00 2001 From: Bastien Guerry Date: Mon, 15 Aug 2011 09:44:52 +0200 Subject: [PATCH] Move org-find-visible and org-find-invisible from org-exp.el to org.el. --- lisp/org-exp.el | 11 ----------- lisp/org.el | 11 +++++++++++ 2 files changed, 11 insertions(+), 11 deletions(-) diff --git a/lisp/org-exp.el b/lisp/org-exp.el index 8e21aea60..cc31a4e8d 100644 --- a/lisp/org-exp.el +++ b/lisp/org-exp.el @@ -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) diff --git a/lisp/org.el b/lisp/org.el index aa173441c..71c14b611 100644 --- a/lisp/org.el +++ b/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")