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
commit3a0b67d10bdfde2f13086edd03e1b86221fa0f29 (patch)
tree9dddc82c6f3e22d6afe8dbe02b8dcf5c53195962 /lisp/replace.el
parent2300f80b64ec6cfad8dcfb8638c8426431acefda (diff)
downloademacs-3a0b67d10bdfde2f13086edd03e1b86221fa0f29.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