diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/replace.el | 10 |
1 files changed, 4 insertions, 6 deletions
diff --git a/lisp/replace.el b/lisp/replace.el index be006618d83..bfe47d20d6c 100644 --- a/lisp/replace.el +++ b/lisp/replace.el @@ -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) |