Quellcode durchsuchen

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 vor 13 Jahren
Ursprung
Commit
155ab73f77
1 geänderte Dateien mit 3 neuen und 1 gelöschten Zeilen
  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 ()