From: Colin Walters <walters@gnu.org>
Date: Wed, 15 May 2002 19:35:54 +0000 (+0000)
Subject: (occur-read-primary-args): Handle a bare 'C-u' correctly.
X-Git-Tag: ttn-vms-21-2-B4~15046
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=bda1925e34e629161f36477903d5f2602ef8668e;p=emacs.git

(occur-read-primary-args): Handle a bare 'C-u' correctly.
---

diff --git a/lisp/replace.el b/lisp/replace.el
index d146ef15489..e5a320d7fd2 100644
--- a/lisp/replace.el
+++ b/lisp/replace.el
@@ -612,7 +612,8 @@ If the value is nil, don't highlight the buffer names specially."
 	  (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.