소스 검색

Fix bug in search for text property.

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

+ 2 - 0
lisp/ChangeLog

@@ -2,6 +2,8 @@
 
 	* org-exp.el (org-export-format-source-code): Fix bug in require
 	htmlize code.
+	(org-export-target-internal-links): Fix bug in search for text
+	property.
 
 2008-11-16  Carsten Dominik  <carsten.dominik@gmail.com>
 

+ 2 - 2
lisp/org-exp.el

@@ -1632,8 +1632,8 @@ let the link  point to the corresponding section."
 		   (or (get-text-property (point) 'target)
 		       (get-text-property
 			(max (point-min)
-			     (1- (previous-single-property-change
-				  (point) 'target)))
+			     (1- (or (previous-single-property-change
+				      (point) 'target) 0)))
 			'target))))))))
        (when target
 	 (set-match-data md)