changeset 45308:abd8a68f87a7

(occur-read-primary-args): Handle a bare 'C-u' correctly.
author Colin Walters <walters@gnu.org>
date Wed, 15 May 2002 19:35:54 +0000
parents aeea7f69b448
children 105aeedf106c
files lisp/replace.el
diffstat 1 files changed, 2 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/replace.el	Wed May 15 19:35:13 2002 +0000
+++ b/lisp/replace.el	Wed May 15 19:35:54 2002 +0000
@@ -612,7 +612,8 @@
 	  (if (equal input "")
 	      default
 	    input))
-	current-prefix-arg))
+	(when current-prefix-arg
+	  (prefix-numeric-value current-prefix-arg))))
 
 (defun occur (regexp &optional nlines)
   "Show all lines in the current buffer containing a match for REGEXP.