From 166aaf6fb59de9e0b32ec6d75ac316b829d95fe6 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 24 Jul 1993 18:42:33 +0000 Subject: [PATCH] (occur): If no default, don't mention one. --- lisp/replace.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) 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 -- 2.39.5