changeset 20579:a30c6f1b3335

(occur): Pass default to read-from-minibuffer so that M-n can insert default value into minibuffer.
author Richard M. Stallman <rms@gnu.org>
date Sat, 03 Jan 1998 07:06:18 +0000
parents 7eb29ad824eb
children 5cf53b5a6bde
files lisp/replace.el
diffstat 1 files changed, 4 insertions(+), 6 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/replace.el	Sat Jan 03 00:04:35 1998 +0000
+++ b/lisp/replace.el	Sat Jan 03 07:06:18 1998 +0000
@@ -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 @@
 		      (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)