Browse Source

org-footnote: add speedups when prompted for a label

* lisp/org-footnote.el (org-footnote-new): use ido or iswitchb when
  available when prompted for a label. Also rename a local variable to
  avoid confusion with an existing function.
Nicolas Goaziou 13 years ago
parent
commit
795b7c5ca0
1 changed files with 6 additions and 6 deletions
  1. 6 6
      lisp/org-footnote.el

+ 6 - 6
lisp/org-footnote.el

@@ -424,9 +424,9 @@ or new, let the user edit the definition of the footnote."
   (interactive)
   (unless (and (not (bolp)) (org-footnote-in-valid-context-p))
     (error "Cannot insert a footnote here"))
-  (let* ((labels (and (not (equal org-footnote-auto-label 'random))
-		      (org-footnote-all-labels)))
-	 (propose (org-footnote-unique-label labels))
+  (let* ((lbls (and (not (equal org-footnote-auto-label 'random))
+		    (org-footnote-all-labels)))
+	 (propose (org-footnote-unique-label lbls))
 	 (label
 	  (org-footnote-normalize-label
 	   (cond
@@ -436,15 +436,15 @@ or new, let the user edit the definition of the footnote."
 	     (require 'org-id)
 	     (substring (org-id-uuid) 0 8))
 	    (t
-	     (completing-read
+	     (org-icompleting-read
 	      "Label (leave empty for anonymous): "
-	      (mapcar 'list labels) nil nil
+	      (mapcar 'list lbls) nil nil
 	      (if (eq org-footnote-auto-label 'confirm) propose nil)))))))
     (cond
      ((not label)
       (insert "[fn:: ]")
       (backward-char 1))
-     ((member label labels)
+     ((member label lbls)
       (insert "[" label "]")
       (message "New reference to existing note"))
      (org-footnote-define-inline