Browse Source

Export: Do not check for protectedness at the end of a line

Carsten Dominik 15 years ago
parent
commit
f444c8cd67
2 changed files with 4 additions and 1 deletions
  1. 3 0
      lisp/ChangeLog
  2. 1 1
      lisp/org-exp.el

+ 3 - 0
lisp/ChangeLog

@@ -1,5 +1,8 @@
 2009-12-16  Carsten Dominik  <carsten.dominik@gmail.com>
 
+	* org-exp.el (org-export-target-internal-links): Check for
+	protectedness earlier in the string.
+
 	* org-agenda.el (org-agenda-highlight-todo): Match TODO keywords
 	case sensitively.
 

+ 1 - 1
lisp/org-exp.el

@@ -1508,7 +1508,7 @@ This function also handles the id links, if they have a match in
 the current file."
   (goto-char (point-min))
   (while (re-search-forward org-bracket-link-regexp nil t)
-    (org-if-unprotected
+    (org-if-unprotected-at (match-beginning 1)
      (let* ((md (match-data))
 	    (desc (match-end 2))
 	    (link (org-link-unescape (match-string 1)))