mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 04:10:54 -08:00
Code Issues Projects Releases Wiki Activity

Provide for customizing default regexp in occur commands (Bug#13892).

Browse source 
* lisp/replace.el (occur-read-regexp-defaults-function): New var.
(occur-read-regexp-defaults): New defun.
(occur-read-primary-args): Propagate above change.
This commit is contained in:
Jambunathan K 2013-03-10 14:14:07 +05:30
parent 1a7bceef7a
commit 45ba025e53
2 changed files with 27 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/ChangeLog
View file

@ -1,3 +1,9 @@
2013-03-10 Jambunathan K <kjambunathan@gmail.com>
* replace.el (occur-read-regexp-defaults-function): New var.
(occur-read-regexp-defaults): New defun.
(occur-read-primary-args): Propagate above change (bug#13892).
2013-03-09 Stefan Monnier <monnier@iro.umontreal.ca>
* mouse.el (mouse-drag-track): Remove left-over debugging code.

22
lisp/replace.el
View file

@ -1135,12 +1135,32 @@ which means to discard all text properties."
:group 'matching
:version "22.1")
(defvar occur-read-regexp-defaults-function
'occur-read-regexp-defaults
"Function that provides default regexp(s) for occur commands.
This function should take no arguments and return one of nil, a
regexp or a list of regexps for use with occur commands -
`occur', `multi-occur' and `multi-occur-in-matching-buffers'.
The return value of this function is used as DEFAULTS param of
`read-regexp' while executing the occur command. This function
is called only during interactive use.
For example, to check for occurrence of symbol at point use
\(setq occur-read-regexp-defaults-function
'find-tag-default-as-regexp\).")
(defun occur-read-regexp-defaults ()
"Return the latest regexp from `regexp-history'.
See `occur-read-regexp-defaults-function' for details."
(car regexp-history))
(defun occur-read-primary-args ()
(let* ((perform-collect (consp current-prefix-arg))
(regexp (read-regexp (if perform-collect
"Collect strings matching regexp"
"List lines matching regexp")
(car regexp-history))))
(funcall occur-read-regexp-defaults-function))))
(list regexp
(if perform-collect
;; Perform collect operation