mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(occur): If no default, don't mention one.

Browse source
This commit is contained in:
Richard M. Stallman 1993-07-24 18:42:33 +00:00
parent f05f43e747
commit 166aaf6fb5
1 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/replace.el
View file

@ -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