Re: Outline and org-mode don't insert text into folded sections logically

[Bastien <bzg@altern.org>]

[-- Attachment #1: Type: text/plain, Size: 363 bytes --]

Hi Suvayu,

suvayu ali <fatkasuvayu+linux@gmail.com> writes:

> Did you by any chance attach the old patch again? ;)

Er, yes :)

Here is the fresh one -- thanks for testing it.

>> As for `org-reveal', please report a bug if it doesn't work
>> as expected in specific parts of the buffer.
>
> I will try to make a more complete analysis and report it.

Thanks!


[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: 0001-org.el-Unfold-invisible-region-at-point-or-right-bef.patch --]
[-- Type: text/x-patch, Size: 1693 bytes --]

From 23ef0209d53b0acdf2158da9dd8d4532b437f97e Mon Sep 17 00:00:00 2001
From: Bastien Guerry <bzg@altern.org>
Date: Sat, 29 Oct 2011 16:08:27 +0200
Subject: [PATCH]  org.el: Unfold invisible region at point or right before
 point when editing.

* org.el (org-self-insert-command): Unfold invisible region at
point or right before point when editing.

Thanks to Suvayu Ali for discussing this.
---
 lisp/org.el |   17 +++++++++++++++++
 1 files changed, 17 insertions(+), 0 deletions(-)

diff --git a/lisp/org.el b/lisp/org.el
index fe45cf7..6c809be 100644
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -17393,6 +17393,23 @@ hook.  The default setting is `org-speed-command-default-hook'."
 If the cursor is in a table looking at whitespace, the whitespace is
 overwritten, and the table is not marked as requiring realignment."
   (interactive "p")
+  (let ((invisible-at-point 
+	 (car (get-char-property-and-overlay (point) 'invisible)))
+	(invisible-before-point 
+	 (car (get-char-property-and-overlay (1- (point)) 'invisible))))
+    (when (or (eq invisible-at-point 'outline)
+	    (eq invisible-at-point 'org-hide-block)
+	    (eq invisible-before-point 'outline)
+	    (eq invisible-before-point 'org-hide-block))
+      (if (or (eq invisible-before-point 'outline)
+	      (eq invisible-before-point 'org-hide-block))
+	  (goto-char (previous-overlay-change (point))))
+      (org-cycle)
+      (if (or (eq invisible-before-point 'outline)
+	      (eq invisible-before-point 'org-hide-block))
+	  (forward-char 1))
+      (message "Unfolding invisible region around point before editing")
+      (sit-for 1)))
   (cond
    ((and org-use-speed-commands
 	 (setq org-speed-command
-- 
1.7.7.1


[-- Attachment #3: Type: text/plain, Size: 14 bytes --]


-- 
 Bastien