# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1202703049 0
# Node ID de8465ae991c5a352c94fab59cf1fd3dcd347eb1
# Parent  816e9aceecc0fd5475281aa07cdda3a354d7b7b4
(compilation-error-regexp-alist-alist): Shorten some names.

diff -r 816e9aceecc0 -r de8465ae991c lisp/progmodes/compile.el
--- a/lisp/progmodes/compile.el	Mon Feb 11 04:08:36 2008 +0000
+++ b/lisp/progmodes/compile.el	Mon Feb 11 04:10:49 2008 +0000
@@ -346,7 +346,7 @@
      (0 'default t)
      (1 compilation-error-face prepend) (2 compilation-line-face prepend))
 
-    (compilation-perl--Pod::Checker
+    (perl--Pod::Checker
      ;; podchecker error messages, per Pod::Checker.
      ;; The style is from the Pod::Checker::poderror() function, eg.
      ;; *** ERROR: Spurious text after =cut at line 193 in file foo.pm
@@ -364,14 +364,14 @@
      "^\\*\\*\\* \\(?:ERROR\\|\\(WARNING\\)\\).* \\(?:at\\|on\\) line \
 \\([0-9]+\\) \\(?:.* \\)?in file \\([^ \t\n]+\\)"
      3 2 nil (1))
-    (compilation-perl--Test
+    (perl--Test
      ;; perl Test module error messages.
      ;; Style per the ok() function "$context", eg.
      ;; # Failed test 1 in foo.t at line 6
      ;;
      "^# Failed test [0-9]+ in \\([^ \t\r\n]+\\) at line \\([0-9]+\\)"
      1 2)
-    (compilation-perl--Test2
+    (perl--Test2
      ;; Or when comparing got/want values,
      ;; # Test 2 got: "xx" (t-compilation-perl-2.t at line 10)
      ;;
@@ -382,7 +382,7 @@
      "^\\(.*NOK.*\\)?# Test [0-9]+ got:.* (\\([^ \t\r\n]+\\) at line \
 \\([0-9]+\\))"
      2 3)
-    (compilation-perl--Test::Harness
+    (perl--Test::Harness
      ;; perl Test::Harness output, eg.
      ;; NOK 1# Test 1 got: "1234" (t/foo.t at line 46)
      ;;
@@ -393,7 +393,7 @@
      ;;
      "^.*NOK.* \\([^ \t\r\n]+\\) at line \\([0-9]+\\)"
      1 2)
-    (compilation-weblint
+    (weblint
      ;; The style comes from HTML::Lint::Error::as_string(), eg.
      ;; index.html (13:1) Unknown element <fdjsk>
      ;;