Bläddra i källkod

Fix bug in search for text property.

Carsten Dominik 16 år sedan
förälder
incheckning
f84ce1cecf
2 ändrade filer med 4 tillägg och 2 borttagningar
  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)