Function: locate-do-setup

locate-do-setup is a byte-compiled function defined in locate.el.gz.

Signature

(locate-do-setup SEARCH-STRING)

Source Code

;; Defined in /usr/src/emacs/lisp/locate.el.gz
(defun locate-do-setup (search-string)
  (goto-char (point-min))
  (save-excursion

    ;; Nothing returned from locate command?
    (and (eobp)
	 (progn
	   (kill-buffer locate-buffer-name)
	   (if locate-current-filter
	       (user-error "Locate: no match for %s in database using filter %s"
		      search-string locate-current-filter)
	     (user-error "Locate: no match for %s in database" search-string))))

    (locate-insert-header search-string)

    (while (not (eobp))
      (insert-char ?\s locate-filename-indentation t)
      (locate-set-properties)
      (forward-line 1)))
  (goto-char (point-min)))