소스 검색

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)