From 714da7572890f8b56c65e405ad87017b4bbbe07f Mon Sep 17 00:00:00 2001 From: Juri Linkov Date: Tue, 29 Jul 2008 14:44:35 +0000 Subject: [PATCH] (read-regexp): Add second arg `default'. Doc fix. (occur-read-primary-args): Use `(car regexp-history)' as the second arg of `read-regexp'. --- lisp/replace.el | 18 +++++++++--------- 1 file changed, 9 insertions(+), 9 deletions(-) diff --git a/lisp/replace.el b/lisp/replace.el index 2572125b052..086380ffc4c 100644 --- a/lisp/replace.el +++ b/lisp/replace.el @@ -522,15 +522,14 @@ which will run faster and will not set the mark or print anything." Maximum length of the history list is determined by the value of `history-length', which see.") -(defun read-regexp (prompt) +(defun read-regexp (prompt &optional default) "Read regexp as a string using the regexp history and some useful defaults. -Prompt for a regular expression with PROMPT in the minibuffer. -Provide the last element of the regexp history as the basic default, -and return it on typing RET. Additional defaults are the string -at point, the last isearch regexp, the last isearch string, and the -last replacement regexp. Return the regexp as a string." - (let* ((default (car regexp-history)) - (defaults +Prompt for a regular expression with PROMPT (without a colon and +space) in the minibuffer. The optional string argument DEFAULT +provides the basic default value, that is returned on typing RET. +Additional defaults are the string at point, the last isearch regexp, +the last isearch string, and the last replacement regexp." + (let* ((defaults (list (regexp-quote (or (funcall (or find-tag-default-function (get major-mode 'find-tag-default-function) @@ -1022,7 +1021,8 @@ which means to discard all text properties." (nreverse result)))) (defun occur-read-primary-args () - (list (read-regexp "List lines matching regexp") + (list (read-regexp "List lines matching regexp" + (car regexp-history)) (when current-prefix-arg (prefix-numeric-value current-prefix-arg)))) -- 2.39.2