瀏覽代碼

Fix bug in org-export-generic.el

Carsten Dominik 15 年之前
父節點
當前提交
ca5396e063
共有 1 個文件被更改,包括 1 次插入1 次删除
  1. 1 1
      contrib/lisp/org-export-generic.el

+ 1 - 1
contrib/lisp/org-export-generic.el

@@ -824,7 +824,7 @@ underlined headlines.  The default is 3."
 	    (if org-export-generic-links-to-notes
 		(push (cons desc0 link) link-buffer)
 	      (setq rpl (concat rpl " (" link ")")
-		    wrap (+ (length line) (- (length (match-string 0)))
+		    wrap (+ (length line) (- (length (match-string 0) line))
 			    (length desc)))))
 	  (setq line (replace-match rpl t t line))))
       (when custom-times