(find-function-regexp): Add `define-compilation-mode'.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a0fa73b41a80cf57912aac63e386bd466a50dd68..2b4dbf45551be543c498b40aa9b080a980b35adf 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,24 @@
+2005-07-19  Juri Linkov  <juri@jurta.org>
+
+       * progmodes/grep.el (grep-regexp-alist)
+       (grep-mode-font-lock-keywords, grep-process-setup):
+       Use default GNU grep match color "01;31m" instead of "01;41m".
+       (grep-regexp-alist, grep-mode-font-lock-keywords):
+       Use `\\[[0-9]*m' instead of `\\[00m'.
+       (grep-regexp-alist): Move `\\(?:\033\\[K\\)?' from sgr_end to
+       sgr_start where its handling is more important.  Use the real
+       length of sgr_start instead of constant 8.
+       (grep-mode-font-lock-keywords): Don't delete `\\(?:\033\\[K\\)?'
+       specially.  Delete all remaining escape sequences.
+       (grep-process-setup): Set "GREP_COLORS" for GNU grep 2.5.1-cvs.
+       (grep-regexp-alist): Make hyperlink only for binary file name
+       instead of the whole line.
+       (grep-mode-map): Bind `backtab' to `compilation-previous-file'.
+       (grep-mode): Add autoload.
+
+       * emacs-lisp/find-func.el (find-function-regexp):
+       Add `define-compilation-mode'.
+
 2005-07-19  Juri Linkov  <juri@jurta.org>
 
        * compare-w.el (compare-ignore-whitespace, compare-windows-sync)

diff --git a/lisp/emacs-lisp/find-func.el b/lisp/emacs-lisp/find-func.el
index 4c25acf49c36253fae2d39a0ae63dfab7b23f221..945acaac73ebdf7a7254c30a97c1c5af28fd0bd5 100644 (file)
--- a/lisp/emacs-lisp/find-func.el
+++ b/lisp/emacs-lisp/find-func.el
@@ -62,7 +62,7 @@
   ;;  (define-derived-mode foo ...), (define-minor-mode foo)
   (concat
    "^\\s-*(\\(def\\(ine-skeleton\\|ine-generic-mode\\|ine-derived-mode\\|\
-ine-minor-mode\\|un-cvs-mode\\|foo\\|[^cfgv]\\w+\\*?\\)\
+ine-minor-mode\\|ine-compilation-mode\\|un-cvs-mode\\|foo\\|[^cfgv]\\w+\\*?\\)\
 \\|easy-mmode-define-global-mode\\|menu-bar-make-toggle\\)"
    find-function-space-re
    "\\('\\|\(quote \\)?%s\\(\\s-\\|$\\|\(\\|\)\\)")