Browse Source

Fix a bug in the advice on outline-end-of-subtree

Carsten Dominik 15 years ago
parent
commit
0d9f114f3b
1 changed files with 3 additions and 1 deletions
  1. 3 1
      lisp/org.el

+ 3 - 1
lisp/org.el

@@ -16562,7 +16562,9 @@ This is like outline-next-sibling, but invisible headings are ok."
 (defadvice outline-end-of-subtree (around prefer-org-version activate compile)
   "Use Org version in org-mode, for dramatic speed-up."
   (if (eq major-mode 'org-mode)
-      (org-end-of-subtree)
+      (progn
+	(org-end-of-subtree nil t)
+	(backward-char 1))
     ad-do-it))
 
 (defun org-forward-same-level (arg &optional invisible-ok)