mirrors/org-mode
0
0
Fork 1
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-08-19 18:18:43 +00:00
Code Releases Activity

org.el: Unfold invisible region at point or right before point when editing.

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

Thanks to Suvayu Ali for discussing this.
This commit is contained in:
Bastien Guerry 2011-10-29 16:08:27 +02:00
parent 21eef3b137
commit d3370f1608
1 changed files with 17 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
lisp/org.el
View file

@ -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