mirrors/org-mode
0
0
Fork 1
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-09-12 05:09:56 +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 If the cursor is in a table looking at whitespace, the whitespace is
overwritten, and the table is not marked as requiring realignment." overwritten, and the table is not marked as requiring realignment."
(interactive "p") (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 (cond
((and org-use-speed-commands ((and org-use-speed-commands
(setq org-speed-command (setq org-speed-command