diff options
| author | Colin Walters | 2002-05-15 19:35:54 +0000 |
|---|---|---|
| committer | Colin Walters | 2002-05-15 19:35:54 +0000 |
| commit | bda1925e34e629161f36477903d5f2602ef8668e (patch) | |
| tree | 005bf11f1d52b598899f00d731d27bdd82e09d93 | |
| parent | 30762c43d2d0ab1c567eaa77279a9b3a85dfaacf (diff) | |
| download | emacs-bda1925e34e629161f36477903d5f2602ef8668e.tar.gz emacs-bda1925e34e629161f36477903d5f2602ef8668e.zip | |
(occur-read-primary-args): Handle a bare 'C-u' correctly.
| -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." | |||
| 612 | (if (equal input "") | 612 | (if (equal input "") |
| 613 | default | 613 | default |
| 614 | input)) | 614 | input)) |
| 615 | current-prefix-arg)) | 615 | (when current-prefix-arg |
| 616 | (prefix-numeric-value current-prefix-arg)))) | ||
| 616 | 617 | ||
| 617 | (defun occur (regexp &optional nlines) | 618 | (defun occur (regexp &optional nlines) |
| 618 | "Show all lines in the current buffer containing a match for REGEXP. | 619 | "Show all lines in the current buffer containing a match for REGEXP. |