diff options
| author | Colin Walters <walters@gnu.org> | 2002-05-15 19:35:54 +0000 |
|---|---|---|
| committer | Colin Walters <walters@gnu.org> | 2002-05-15 19:35:54 +0000 |
| commit | bda1925e34e629161f36477903d5f2602ef8668e (patch) | |
| tree | 005bf11f1d52b598899f00d731d27bdd82e09d93 /lisp/replace.el | |
| parent | 30762c43d2d0ab1c567eaa77279a9b3a85dfaacf (diff) | |
| download | emacs-bda1925e34e629161f36477903d5f2602ef8668e.tar.gz | |
(occur-read-primary-args): Handle a bare 'C-u' correctly.
Diffstat (limited to 'lisp/replace.el')
| -rw-r--r-- | lisp/replace.el | 3 |
1 files changed, 2 insertions, 1 deletions
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. |