Mercurial > emacs

comparison lisp/locate.el @ 39184:99eeeafafa93

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(locate-insert-header): Remove unnecessary whitespaces.
author Gerd Moellmann <gerd@gnu.org>
date Fri, 07 Sep 2001 13:32:45 +0000
parents 0c53ed643c7c
children e9fb112f3550
comparison
equal deleted inserted replaced
39183:4ba1f03d41cc 39184:99eeeafafa93
1 ;;; locate.el --- interface to the locate command 1 ;;; locate.el --- interface to the locate command
2 2
3 ;; Copyright (C) 1996, 1998 Free Software Foundation, Inc. 3 ;; Copyright (C) 1996, 1998, 2001 Free Software Foundation, Inc.
4 4
5 ;; Author: Peter Breton <pbreton@cs.umb.edu> 5 ;; Author: Peter Breton <pbreton@cs.umb.edu>
6 ;; Keywords: unix files 6 ;; Keywords: unix files
7 7
8 ;; This file is part of GNU Emacs. 8 ;; This file is part of GNU Emacs.
402 "\\)") 402 "\\)")
403 locate-format-args 403 locate-format-args
404 (append (list locate-current-filter) locate-format-args))) 404 (append (list locate-current-filter) locate-format-args)))
405 405
406 (setq locate-format-string 406 (setq locate-format-string
407 (concat locate-format-string ": \n\n") 407 (concat locate-format-string ":\n\n")
408 locate-regexp-match 408 locate-regexp-match
409 (concat locate-regexp-match ": \n")) 409 (concat locate-regexp-match ":\n"))
410 410
411 (insert (apply 'format locate-format-string (reverse locate-format-args))) 411 (insert (apply 'format locate-format-string (reverse locate-format-args)))
412 412
413 (save-excursion 413 (save-excursion
414 (goto-char (point-min)) 414 (goto-char (point-min))