diff options
| author | Chong Yidong | 2009-02-27 15:31:36 +0000 |
|---|---|---|
| committer | Chong Yidong | 2009-02-27 15:31:36 +0000 |
| commit | c4bf8039f5ead8deec73b6979add198f1c0f5ee8 (patch) | |
| tree | b9a3ecf77ab52af316de4dff4e974304d12853d7 | |
| parent | c2c7b2f2f21014f620dbafdb7b5f22fd275aea8a (diff) | |
| download | emacs-c4bf8039f5ead8deec73b6979add198f1c0f5ee8.tar.gz emacs-c4bf8039f5ead8deec73b6979add198f1c0f5ee8.zip | |
(keep-lines-read-args): Use empty string as default (Bug#2495).
| -rw-r--r-- | lisp/replace.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/replace.el b/lisp/replace.el index 131bfb66f77..a375c87e74f 100644 --- a/lisp/replace.el +++ b/lisp/replace.el | |||
| @@ -570,7 +570,7 @@ regexp, the last isearch string, and the last replacement regexp." | |||
| 570 | "Read arguments for `keep-lines' and friends. | 570 | "Read arguments for `keep-lines' and friends. |
| 571 | Prompt for a regexp with PROMPT. | 571 | Prompt for a regexp with PROMPT. |
| 572 | Value is a list, (REGEXP)." | 572 | Value is a list, (REGEXP)." |
| 573 | (list (read-regexp prompt) nil nil t)) | 573 | (list (read-regexp prompt "") nil nil t)) |
| 574 | 574 | ||
| 575 | (defun keep-lines (regexp &optional rstart rend interactive) | 575 | (defun keep-lines (regexp &optional rstart rend interactive) |
| 576 | "Delete all lines except those containing matches for REGEXP. | 576 | "Delete all lines except those containing matches for REGEXP. |