Mercurial > emacs
comparison lisp/replace.el @ 4262:bc0af06c6e3c
(occur): If no default, don't mention one.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Sat, 24 Jul 1993 18:42:33 +0000 |
parents | d89645572b0f |
children | 847ef9a62e5d |
comparison
equal
deleted
inserted
replaced
4261:f9599125f7f0 | 4262:bc0af06c6e3c |
---|---|
274 It serves as a menu to find any of the occurrences in this buffer. | 274 It serves as a menu to find any of the occurrences in this buffer. |
275 \\[describe-mode] in that buffer will explain how." | 275 \\[describe-mode] in that buffer will explain how." |
276 (interactive (list (let* ((default (car regexp-history)) | 276 (interactive (list (let* ((default (car regexp-history)) |
277 (input | 277 (input |
278 (read-from-minibuffer | 278 (read-from-minibuffer |
279 (format "List lines matching regexp (default `%s'): " default) | 279 (if default |
280 (format "List lines matching regexp (default `%s'): " default) | |
281 "List lines matching regexp: ") | |
280 nil nil nil | 282 nil nil nil |
281 'regexp-history))) | 283 'regexp-history))) |
282 (if (> (length input) 0) input | 284 (if (> (length input) 0) input |
283 (setcar regexp-history default))) | 285 (setcar regexp-history default))) |
284 current-prefix-arg)) | 286 current-prefix-arg)) |