emacs-orgmode@gnu.org archives
 help / color / mirror / code / Atom feed
* [PATCH] Avoid leaving point inside hidden block
@ 2010-03-23 14:08 Dan Davison
  2010-03-23 15:01 ` Carsten Dominik
  0 siblings, 1 reply; 2+ messages in thread
From: Dan Davison @ 2010-03-23 14:08 UTC (permalink / raw)
  To: emacs org-mode mailing list

If you

1. fold a code block
2. place point at the beginning of the #begin_src line
3. switch to the edit buffer using C-c '
4. exit the edit buffer with C-c '

point will not return to where it started but instead be by the ...,
reflecting the fact that it returned to a buffer position that is not
visible. This patch returns point to the beginning of the begin_src line
when the block is folded. (overlay-querying code borrowed from
org-hide-block-toggle)

Dan

--8<---------------cut here---------------start------------->8---
diff --git a/lisp/org-src.el b/lisp/org-src.el
index 0cebcd1..bc71a92 100644
--- a/lisp/org-src.el
+++ b/lisp/org-src.el
@@ -592,8 +592,15 @@ the language, a switch telling if the content should be in a single line."
     (insert code)
     (goto-char beg)
     (if single (just-one-space))
-    (org-goto-line (1- (+ (org-current-line) line)))
-    (org-move-to-column (if preserve-indentation col (+ col total-nindent delta)))
+    (if (memq t (mapcar (lambda (overlay)
+                         (eq (org-overlay-get overlay 'invisible)
+                             'org-hide-block))
+                       (org-overlays-at (point))))
+       ;; Block is hidden; put point at start of block
+       (beginning-of-line 0)
+      ;; Block is visible, put point where it was in the code buffer
+      (org-goto-line (1- (+ (org-current-line) line)))
+      (org-move-to-column (if preserve-indentation col (+ col total-nindent delta))))
     (move-marker beg nil)
     (move-marker end nil))
   (unless (eq context 'save)
--8<---------------cut here---------------end--------------->8---

^ permalink raw reply related	[flat|nested] 2+ messages in thread

* Re: [PATCH] Avoid leaving point inside hidden block
  2010-03-23 14:08 [PATCH] Avoid leaving point inside hidden block Dan Davison
@ 2010-03-23 15:01 ` Carsten Dominik
  0 siblings, 0 replies; 2+ messages in thread
From: Carsten Dominik @ 2010-03-23 15:01 UTC (permalink / raw)
  To: Dan Davison; +Cc: emacs org-mode mailing list

Hi Dan,

please go ahead and apply it to the master branch.

Thanks

- Carsten

On Mar 23, 2010, at 3:08 PM, Dan Davison wrote:

> If you
>
> 1. fold a code block
> 2. place point at the beginning of the #begin_src line
> 3. switch to the edit buffer using C-c '
> 4. exit the edit buffer with C-c '
>
> point will not return to where it started but instead be by the ...,
> reflecting the fact that it returned to a buffer position that is not
> visible. This patch returns point to the beginning of the begin_src  
> line
> when the block is folded. (overlay-querying code borrowed from
> org-hide-block-toggle)
>
> Dan
>
> --8<---------------cut here---------------start------------->8---
> diff --git a/lisp/org-src.el b/lisp/org-src.el
> index 0cebcd1..bc71a92 100644
> --- a/lisp/org-src.el
> +++ b/lisp/org-src.el
> @@ -592,8 +592,15 @@ the language, a switch telling if the content  
> should be in a single line."
>     (insert code)
>     (goto-char beg)
>     (if single (just-one-space))
> -    (org-goto-line (1- (+ (org-current-line) line)))
> -    (org-move-to-column (if preserve-indentation col (+ col total- 
> nindent delta)))
> +    (if (memq t (mapcar (lambda (overlay)
> +                         (eq (org-overlay-get overlay 'invisible)
> +                             'org-hide-block))
> +                       (org-overlays-at (point))))
> +       ;; Block is hidden; put point at start of block
> +       (beginning-of-line 0)
> +      ;; Block is visible, put point where it was in the code buffer
> +      (org-goto-line (1- (+ (org-current-line) line)))
> +      (org-move-to-column (if preserve-indentation col (+ col total- 
> nindent delta))))
>     (move-marker beg nil)
>     (move-marker end nil))
>   (unless (eq context 'save)
> --8<---------------cut here---------------end--------------->8---
>
>
> _______________________________________________
> Emacs-orgmode mailing list
> Please use `Reply All' to send replies to the list.
> Emacs-orgmode@gnu.org
> http://lists.gnu.org/mailman/listinfo/emacs-orgmode

- Carsten

^ permalink raw reply	[flat|nested] 2+ messages in thread

end of thread, other threads:[~2010-03-23 15:01 UTC | newest]

Thread overview: 2+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2010-03-23 14:08 [PATCH] Avoid leaving point inside hidden block Dan Davison
2010-03-23 15:01 ` Carsten Dominik

Code repositories for project(s) associated with this public inbox

	https://git.savannah.gnu.org/cgit/emacs/org-mode.git

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).