summaryrefslogtreecommitdiff
path: root/lisp/replace.el
diff options
context:
space:
mode:
authorRichard M. Stallman <rms@gnu.org>1993-07-24 18:42:33 +0000
committerRichard M. Stallman <rms@gnu.org>1993-07-24 18:42:33 +0000
commit166aaf6fb59de9e0b32ec6d75ac316b829d95fe6 (patch)
treec7997b7861c5cf451de5a7b55c1a61f776e91389 /lisp/replace.el
parentf05f43e747fc7f072d445df6a4de7dfb1998acbb (diff)
downloademacs-166aaf6fb59de9e0b32ec6d75ac316b829d95fe6.tar.gz
(occur): If no default, don't mention one.
Diffstat (limited to 'lisp/replace.el')
-rw-r--r--lisp/replace.el4
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/replace.el b/lisp/replace.el
index 49f3920dded..2a4dad983a1 100644
--- a/lisp/replace.el
+++ b/lisp/replace.el
@@ -276,7 +276,9 @@ It serves as a menu to find any of the occurrences in this buffer.
(interactive (list (let* ((default (car regexp-history))
(input
(read-from-minibuffer
- (format "List lines matching regexp (default `%s'): " default)
+ (if default
+ (format "List lines matching regexp (default `%s'): " default)
+ "List lines matching regexp: ")
nil nil nil
'regexp-history)))
(if (> (length input) 0) input