From: Luc Teirlinck <teirllm@dms.auburn.edu>
Cc: pbreton@cs.umb.edu, emacs-devel@gnu.org
Subject: Re: locate-with-filter
Date: Sun, 12 Mar 2006 18:18:05 -0600 (CST) [thread overview]
Message-ID: <200603130018.k2D0I5F12096@raven.dms.auburn.edu> (raw)
In-Reply-To: <200603122359.k2CNxE111892@raven.dms.auburn.edu> (message from Luc Teirlinck on Sun, 12 Mar 2006 17:59:14 -0600 (CST))
The following might be better than my previous patch:
===File ~/locate-diff=======================================
*** locate.el 06 Feb 2006 16:01:50 -0600 1.35
--- locate.el 12 Mar 2006 18:20:10 -0600
***************
*** 190,196 ****
;;;###autoload
(defun locate (search-string &optional filter)
! "Run the program `locate', putting results in `*Locate*' buffer.
With prefix arg, prompt for the locate command to run."
(interactive
(list
--- 190,196 ----
;;;###autoload
(defun locate (search-string &optional filter)
! "Run the locate program, putting results in `*Locate*' buffer.
With prefix arg, prompt for the locate command to run."
(interactive
(list
***************
*** 255,264 ****
;;;###autoload
(defun locate-with-filter (search-string filter)
! "Run the locate command with a filter.
! The filter is a regular expression. Only results matching the filter are
! shown; this is often useful to constrain a big search."
(interactive
(list (read-from-minibuffer "Locate: " nil nil
nil 'locate-history-list)
--- 255,270 ----
;;;###autoload
(defun locate-with-filter (search-string filter)
! "Run the locate program with a filter.
! When invoked interactively, this command prompts for both SEARCH-STRING
! and FILTER. It passes SEARCH-STRING to the locate program.
! It only shows those lines in the output of the locate program
! that contain a match for the regular expression FILTER in the
! `*Locate*' buffer; this is often useful to constrain a big search.
!
! When called from Lisp, this function is identical with `locate',
! except that FILTER is not optional."
(interactive
(list (read-from-minibuffer "Locate: " nil nil
nil 'locate-history-list)
***************
*** 269,275 ****
(defun locate-filter-output (filter)
"Filter output from the locate command."
(goto-char (point-min))
! (delete-non-matching-lines filter))
(defvar locate-mode-map nil
"Local keymap for Locate mode buffers.")
--- 275,281 ----
(defun locate-filter-output (filter)
"Filter output from the locate command."
(goto-char (point-min))
! (keep-lines filter))
(defvar locate-mode-map nil
"Local keymap for Locate mode buffers.")
============================================================
next prev parent reply other threads:[~2006-03-13 0:18 UTC|newest]
Thread overview: 48+ messages / expand[flat|nested] mbox.gz Atom feed top
2006-03-11 23:46 locate-with-filter Richard Stallman
2006-03-12 23:59 ` locate-with-filter Luc Teirlinck
2006-03-13 0:18 ` Luc Teirlinck [this message]
2006-03-13 4:39 ` locate-with-filter Eli Zaretskii
2006-03-13 11:30 ` locate-with-filter Peter Breton
2006-03-13 12:55 ` locate-with-filter Richard Stallman
2006-03-14 2:55 ` locate-with-filter Luc Teirlinck
2006-03-14 4:41 ` locate-with-filter Eli Zaretskii
2006-03-14 5:39 ` locate-with-filter Luc Teirlinck
2006-03-14 16:09 ` locate-with-filter Richard Stallman
2006-03-15 5:41 ` locate-with-filter Luc Teirlinck
2006-03-15 13:33 ` locate-with-filter Luc Teirlinck
2006-03-15 13:39 ` locate-with-filter Luc Teirlinck
2006-03-15 20:23 ` locate-with-filter Richard Stallman
2006-03-15 22:47 ` locate-with-filter Luc Teirlinck
2006-03-16 20:18 ` locate-with-filter Richard Stallman
2006-03-17 1:38 ` locate-with-filter Luc Teirlinck
2006-03-17 2:21 ` locate-with-filter Luc Teirlinck
2006-03-18 8:44 ` locate-with-filter Richard Stallman
2006-03-18 8:59 ` locate-with-filter Nick Roberts
2006-03-18 17:16 ` locate-with-filter Luc Teirlinck
2006-03-19 4:15 ` locate-with-filter Nick Roberts
2006-03-19 3:50 ` locate-with-filter Luc Teirlinck
2006-03-19 4:55 ` locate-with-filter Luc Teirlinck
2006-03-19 5:09 ` locate-with-filter Luc Teirlinck
2006-03-19 5:22 ` locate-with-filter Luc Teirlinck
2006-03-19 21:51 ` locate-with-filter Richard Stallman
2006-03-20 5:12 ` locate-with-filter Luc Teirlinck
2006-03-21 1:02 ` locate-with-filter Richard Stallman
2006-03-21 1:13 ` locate-with-filter Luc Teirlinck
2006-03-29 4:09 ` locate-with-filter Luc Teirlinck
2006-03-29 23:02 ` locate-with-filter Richard Stallman
2006-03-30 0:29 ` locate-with-filter Luc Teirlinck
2006-03-31 3:10 ` locate-with-filter Richard Stallman
2006-04-01 1:34 ` locate-with-filter Luc Teirlinck
2006-04-01 1:52 ` locate-with-filter Luc Teirlinck
2006-03-19 9:09 ` locate-with-filter Richard Stallman
2006-03-19 20:15 ` locate-with-filter Nick Roberts
2006-03-19 20:19 ` locate-with-filter Luc Teirlinck
2006-03-19 22:05 ` locate-with-filter Nick Roberts
2006-03-20 15:05 ` locate-with-filter Richard Stallman
2006-03-19 1:28 ` locate-with-filter Luc Teirlinck
2006-03-19 2:29 ` locate-with-filter Luc Teirlinck
2006-03-20 6:18 ` locate-with-filter Stefan Monnier
2006-03-14 16:09 ` locate-with-filter Richard Stallman
2006-03-15 5:37 ` locate-with-filter Luc Teirlinck
2006-03-15 5:48 ` locate-with-filter Luc Teirlinck
2006-03-15 20:23 ` locate-with-filter Richard Stallman
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=200603130018.k2D0I5F12096@raven.dms.auburn.edu \
--to=teirllm@dms.auburn.edu \
--cc=emacs-devel@gnu.org \
--cc=pbreton@cs.umb.edu \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this external index
https://git.savannah.gnu.org/cgit/emacs.git
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.