500 |
command-args) |
command-args) |
501 |
'grep-mode nil highlight-regexp))) |
'grep-mode nil highlight-regexp))) |
502 |
|
|
503 |
;;;###autoload (autoload 'grep-mode "grep" nil t) |
;;; This doesn't work: |
504 |
|
;;; ###autoload (autoload 'grep-mode "grep" nil t) |
505 |
|
;;; The ostensibly correct result is nonetheless opaque to the accounting |
506 |
|
;;; done in `generate-file-autoloads'; in loaddefs.el, the generated elisp is |
507 |
|
;;; correct but the generated header comment for grep.el lacks `grep-mode'. |
508 |
|
;;; This approach also doesn't help other users of `define-compilation-mode' |
509 |
|
;;; who wish to autoload. |
510 |
|
;;; |
511 |
|
;;; Better to extend autoload.el to grok `define-compilation-mode'. |
512 |
|
|
513 |
|
;;;###autoload |
514 |
(define-compilation-mode grep-mode "Grep" |
(define-compilation-mode grep-mode "Grep" |
515 |
"Sets `grep-last-buffer' and `compilation-window-height'." |
"Sets `grep-last-buffer' and `compilation-window-height'." |
516 |
(setq grep-last-buffer (current-buffer)) |
(setq grep-last-buffer (current-buffer)) |