Преглед на файлове

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

Carsten Dominik преди 15 години
родител
ревизия
0d9f114f3b
променени са 1 файла, в които са добавени 3 реда и са изтрити 1 реда
  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)