Re: [Orgmode] [PATCH] Org-mode version 6.30trans (release_6.30d.19.g1db9); Last character in file not folded correctly

2009-09-07 Thread Andreas Burtzlaff
On Mon, 07 Sep 2009 17:59:14 +0200
David Maus maus.da...@gmail.com wrote:

 
 According to Carsten this misbehaviour is not Orgmode's fault, but
 Outline-Mode's
 
 http://www.mail-archive.com/emacs-orgmode@gnu.org/msg16542.html
 
 and should be reported as a bug in Emacs23 (what I do use, too).
 
 *But*: I didn't file a bugreport for Emacs because I cannot reproduce
 this misbehavior outside Orgmode. It's indeed (hide-subtree) that
 causes the last char beneath a headline be displayed after the
 three-dots-thingy but (hide-subtree) behaves fine when used in 'pure'
 outline-mode.

It was indeed org-modes rewrite of outline-end-of-subtree that
triggered the misbehaviour.

Here's the patch:

--8---cut here---start-8---
diff --git a/lisp/org.el b/lisp/org.el
index 74d7f78..c75f1b9 100644
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -16880,7 +16880,7 @@ If there is no such heading, return nil.
   (if (eq major-mode 'org-mode)
   (progn
(org-end-of-subtree nil t)
-   (backward-char 1))
+   (if (not (eobp)) (backward-char 1)))
 ad-do-it))
 
 (defun org-forward-same-level (arg optional invisible-ok)
--8---cut here---end---8---

Andreas


___
Emacs-orgmode mailing list
Remember: use `Reply All' to send replies to the list.
Emacs-orgmode@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-orgmode


Re: [Orgmode] [PATCH] Org-mode version 6.30trans (release_6.30d.19.g1db9); Last character in file not folded correctly

2009-09-07 Thread Bastien
Applied, thanks.

Andreas Burtzlaff and...@gmx.net writes:

 It was indeed org-modes rewrite of outline-end-of-subtree that
 triggered the misbehaviour.

 Here's the patch:

 diff --git a/lisp/org.el b/lisp/org.el
 index 74d7f78..c75f1b9 100644
 --- a/lisp/org.el
 +++ b/lisp/org.el
 @@ -16880,7 +16880,7 @@ If there is no such heading, return nil.
(if (eq major-mode 'org-mode)
(progn
 (org-end-of-subtree nil t)
 -   (backward-char 1))
 +   (if (not (eobp)) (backward-char 1)))
  ad-do-it))
  
  (defun org-forward-same-level (arg optional invisible-ok)

 Andreas


 ___
 Emacs-orgmode mailing list
 Remember: use `Reply All' to send replies to the list.
 Emacs-orgmode@gnu.org
 http://lists.gnu.org/mailman/listinfo/emacs-orgmode


-- 
 Bastien


___
Emacs-orgmode mailing list
Remember: use `Reply All' to send replies to the list.
Emacs-orgmode@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-orgmode