mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 04:10:54 -08:00
Code Issues Projects Releases Wiki Activity

(occur): Pass default to read-from-minibuffer so that

Browse source 
M-n can insert default value into minibuffer.
This commit is contained in:
Richard M. Stallman 1998-01-03 07:06:18 +00:00
parent 13161e8bd9
commit aeab5be0a8
1 changed files with 4 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

10
lisp/replace.el
View file

@ -1,6 +1,6 @@
;;; replace.el --- replace commands for Emacs.
;; Copyright (C) 1985, 1986, 1987, 1992, 1994, 1996 Free Software Foundation, Inc.
;; Copyright (C) 1985, 86, 87, 92, 94, 96, 1997 Free Software Foundation, Inc.
;; This file is part of GNU Emacs.
@ -405,11 +405,9 @@ the matching is case-sensitive."
(format "List lines matching regexp (default `%s'): "
default)
"List lines matching regexp: ")
nil nil nil 'regexp-history nil t)))
(if (string-equal input "")
default
(set-text-properties 0 (length input) nil input)
input))
nil nil nil 'regexp-history default t)))
(set-text-properties 0 (length input) nil input)
input)
current-prefix-arg))
(let ((nlines (if nlines
(prefix-numeric-value nlines)