浏览代码

org-footnote: Small fix to previous commit

* lisp/org-footnote.el (org-footnote-normalize): Do not normalize
  labels when sort-only is non-nil.
Nicolas Goaziou 13 年之前
父节点
当前提交
155ab73f77
共有 1 个文件被更改,包括 3 次插入1 次删除
  1. 3 1
      lisp/org-footnote.el

+ 3 - 1
lisp/org-footnote.el

@@ -825,7 +825,9 @@ Additional note on `org-footnote-insert-pos-for-preprocessor':
 	     ;; Clean marker.
 	     (set-marker pos nil))
 	   (org-footnote-goto-local-insertion-point)
-	   (insert (format "\n[%s] %s\n" (nth 1 x) (nth 2 x))))
+	   (insert (format "\n[%s] %s\n"
+			   (if sort-only (car x) (nth 1 x))
+			   (nth 2 x))))
 	 ref-table))))))
 
 (defun org-footnote-goto-local-insertion-point ()