소스 검색

Minor fixes

Carsten Dominik 16 년 전
부모
커밋
5e39f24715
1개의 변경된 파일2개의 추가작업 그리고 2개의 파일을 삭제
  1. 2 2
      lisp/org.el

+ 2 - 2
lisp/org.el

@@ -5147,7 +5147,7 @@ Optional argument N means, put the headline into the Nth line of the window."
 
 (defconst org-block-regexp
 
-  "^[ \t]*#\\+begin_\\([^ \n]+\\)\\(\\([^\n]+\\)\\)?\n\\([^\000]+?\\)#\\+end_\\1"
+  "^[ \t]*#\\+begin_\\([^ \n]+\\)\\(\\([^\n]+\\)\\)?\n\\([^\000]+?\\)#\\+end_\\1[ \t]*$"
   "Regular expression for hiding blocks.")
 
 (defvar org-hide-block-overlays nil
@@ -6903,7 +6903,7 @@ the language, a switch telling of the content should be in a single line."
     (setq msg (current-message))
     (org-edit-src-code)
     (push-mark m 'nomessage)
-    (goto-char p)
+    (goto-char (min p (point-max)))
     (message (or msg ""))))
 
 ;;; The orgstruct minor mode