From bda1925e34e629161f36477903d5f2602ef8668e Mon Sep 17 00:00:00 2001 From: Colin Walters Date: Wed, 15 May 2002 19:35:54 +0000 Subject: (occur-read-primary-args): Handle a bare 'C-u' correctly. --- lisp/replace.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'lisp') diff --git a/lisp/replace.el b/lisp/replace.el index d146ef1548..e5a320d7fd 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. -- cgit v1.2.3