From: Juri Linkov Date: Tue, 29 Jul 2008 14:44:35 +0000 (+0000) Subject: (read-regexp): Add second arg `default'. Doc fix. X-Git-Tag: emacs-pretest-23.0.90~3823 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=714da7572890f8b56c65e405ad87017b4bbbe07f;p=emacs.git (read-regexp): Add second arg `default'. Doc fix. (occur-read-primary-args): Use `(car regexp-history)' as the second arg of `read-regexp'. --- 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))))