Преглед изворни кода

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