1
0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-26 07:33:47 +00:00

(keep-lines-read-args): Use empty string as default (Bug#2495).

This commit is contained in:
Chong Yidong 2009-02-27 15:31:36 +00:00
parent c2c7b2f2f2
commit c4bf8039f5

View File

@ -570,7 +570,7 @@ regexp, the last isearch string, and the last replacement regexp."
"Read arguments for `keep-lines' and friends. "Read arguments for `keep-lines' and friends.
Prompt for a regexp with PROMPT. Prompt for a regexp with PROMPT.
Value is a list, (REGEXP)." Value is a list, (REGEXP)."
(list (read-regexp prompt) nil nil t)) (list (read-regexp prompt "") nil nil t))
(defun keep-lines (regexp &optional rstart rend interactive) (defun keep-lines (regexp &optional rstart rend interactive)
"Delete all lines except those containing matches for REGEXP. "Delete all lines except those containing matches for REGEXP.