1
0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-27 10:54:40 +00:00

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

This commit is contained in:
Colin Walters 2002-05-15 19:35:54 +00:00
parent 30762c43d2
commit bda1925e34

View File

@ -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.