       (goto-char s-pos))))
 
 (defun ectags-quit-buffer ()
-  "Quit ectags buffer deleting it's window"
+  "Quit ectags buffer deleting it's window."
   (kill-buffer)
   (delete-window))
 
 (defun ectags-by-tag-number (first-digit)
+  "Go to the tag by the number in the tag select buffer.
+FIRST-DIGIT is the first digit of the number.  If there are less than
+ten matches will jump directly.  Otherwise it will ask for a complete
+number."
   (let ((tag-num (progn
                    (if (> (length ectags--matches) 9)
                        (read-from-minibuffer "Tag number: " first-digit)


;;;###autoload
(defun ectags-find-tag ()
  "Do a find tag.  If only one match is found, see the \
`etags-no-select-for-one-match' variable to decide what to do."
  (interactive)
  (let ((tagname (read-from-minibuffer
                  (format "Find tag (default %s): " (find-tag-default)) nil nil


(defun ectags-scan-external ()
  "Search the `ectags--file-name' for the `ectags--regexp'.

Calls `ectags-match' for each line that matches."
  ;; vlf-re-search-forward - too slow
  ;; binary search - too slow and the tags file has to be sorted
