Remove file

3 files changed, 3 insertions, 234 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 5fb813d642..7952b19ead 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -14,6 +14,9 @@
 	* emacs-lisp/authors.el (authors-process-lines): Remove.
 	(authors): Use process-lines rather than authors-process-lines.
 
+	* progmodes/compilation-perl.el, progmodes/compilation-weblint.el:
+	Remove these files.
+
 2007-11-17  Juanma Barranquero  <[email protected]>
 
 	* emacs-lisp/backquote.el (backquote):
diff --git a/lisp/progmodes/compilation-perl.el b/lisp/progmodes/compilation-perl.el
deleted file mode 100644
index 863a3ffcfe..0000000000
--- a/lisp/progmodes/compilation-perl.el
+++ /dev/null
@@ -1,122 +0,0 @@
-;;; compilation-perl.el --- error regexps for perl podchecker and Test
-
-;; Copyright (C) 2007 Free Software Foundation, Inc.
-
-;; Author: Kevin Ryde <[email protected]>
-;; Version: 1
-;; Keywords: processes
-;; URL: http://www.geocities.com/user42_kevin/compilation/index.html
-;; EmacsWiki: PerlLanguage
-
-;; This file is part of GNU Emacs.
-
-;; GNU Emacs is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation; either version 3, or (at your option)
-;; any later version.
-
-;; GNU Emacs is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-;; GNU General Public License for more details.
-
-;; You should have received a copy of the GNU General Public License
-;; along with GNU Emacs; see the file COPYING.  If not, write to the
-;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
-;; Boston, MA 02110-1301, USA.
-
-;;; Commentary:
-
-;; This is a spot of code adding `compilation-error-regexp-alist'
-;; patterns for perl podchecker (the Pod::Checker module) and Test and
-;; Test::Harness module error output.
-;;
-;; Emacs already has patterns for perl's normal compile and run
-;; errors, but podchecker and Test are a bit different.
-
-;;; Install:
-
-;; Put compilation-perl.el somewhere in your `load-path', and in
-;; .emacs put
-;;
-;;     (eval-after-load "compile" '(require 'compilation-perl))
-;;
-;; There's an autoload cookie below for this, if you use
-;; `update-file-autoloads' and friends.
-
-;;; Emacsen:
-
-;; Works in Emacs 22, Emacs 21, and XEmacs 21.
-
-;;; History:
-
-;; Version 1 - the first version.
-
-
-;;; Code:
-
-;;;DISABLE ###autoload (eval-after-load "compile" '(require 'compilation-perl))
-
-(eval-after-load "compile"
-  '(dolist
-       (elem
-	'(;; 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
-	  ;;
-	  ;; Plus end_pod() can give "at line EOF" instead of a
-	  ;; number, so for that match "on line N" which is the
-	  ;; originating spot, eg.
-	  ;; *** ERROR: =over on line 37 without closing =back at line EOF in file bar.pm
-	  ;;
-	  ;; Plus command() can give both "on line N" and "at line N";
-	  ;; the latter is desired and is matched because the .* is
-	  ;; greedy.
-	  ;; *** ERROR: =over on line 1 without closing =back (at head1) at line 3 in file x.pod
-	  ;;
-	  (compilation-perl--Pod::Checker
-	   "^\\*\\*\\* \\(?:ERROR\\|\\(WARNING\\)\\).* \\(?:at\\|on\\) line \\([0-9]+\\) \\(?:.* \\)?in file \\([^ \t\n]+\\)"
-	   3 2 nil (1))
-
-	  ;; perl Test module error messages.
-	  ;; Style per the ok() function "$context", eg.
-	  ;; # Failed test 1 in foo.t at line 6
-	  ;;
-	  (compilation-perl--Test
-	   "^# Failed test [0-9]+ in \\([^ \t\r\n]+\\) at line \\([0-9]+\\)"
-	   1 2)
-
-	  ;; perl Test::Harness output, eg.
-	  ;; NOK 1# Test 1 got: "1234" (t/foo.t at line 46)
-	  ;;
-	  ;; Test::Harness is slightly designed for tty output, since
-	  ;; it prints CRs to overwrite progress messages, but if you
-	  ;; run it in with M-x compile this pattern can at least step
-	  ;; through the failures.
-	  ;;
-	  (compilation-perl--Test::Harness
-	   "^.*NOK.* \\([^ \t\r\n]+\\) at line \\([0-9]+\\)"
-	   1 2)))
-
-     (cond
-      ((boundp 'compilation-error-regexp-systems-list)
-       ;; xemacs21
-       (setq elem (remove '(1) elem))	; drop "type" specifier
-       (add-to-list 'compilation-error-regexp-alist-alist
-		    (list (car elem) (cdr elem)))
-       (compilation-build-compilation-error-regexp-alist))
-
-      ((boundp 'compilation-error-regexp-alist-alist)
-       ;; emacs22
-       (add-to-list 'compilation-error-regexp-alist-alist elem)
-       (add-to-list 'compilation-error-regexp-alist (car elem)))
-
-      (t
-       ;; emacs21
-       (setq elem (remove '(1) elem))	; drop "type" specifier
-       (add-to-list 'compilation-error-regexp-alist (cdr elem))))))
-
-(provide 'compilation-perl)
-
-;; arch-tag: 98818a96-69f4-4528-b9ea-4a357499a451
-;;; compilation-perl.el ends here
diff --git a/lisp/progmodes/compilation-weblint.el b/lisp/progmodes/compilation-weblint.el
deleted file mode 100644
index c808f7fd62..0000000000
--- a/lisp/progmodes/compilation-weblint.el
+++ /dev/null
@@ -1,112 +0,0 @@
-;;; compilation-weblint.el --- error regexps for weblint
-
-;; Copyright (C) 2007 Free Software Foundation, Inc.
-
-;; Author: Kevin Ryde <[email protected]>
-;; Version: 1
-;; Keywords: processes
-;; URL: http://www.geocities.com/user42_kevin/compilation/index.html
-;; EmacsWiki: CompilationMode
-
-;; This file is part of GNU Emacs.
-
-;; GNU Emacs is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation; either version 3, or (at your option)
-;; any later version.
-
-;; GNU Emacs is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-;; GNU General Public License for more details.
-
-;; You should have received a copy of the GNU General Public License
-;; along with GNU Emacs; see the file COPYING.  If not, write to the
-;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
-;; Boston, MA 02110-1301, USA.
-
-;;; Commentary:
-
-;; This is a spot of code adding a `compilation-error-regexp-alist'
-;; pattern for messages from the weblint program (the one based on the
-;; perl HTML::Lint modules).
-
-;;; Install:
-
-;; Put compilation-weblint.el somewhere in your `load-path', and in
-;; .emacs put
-;;
-;;     (eval-after-load "compile" '(require 'compilation-weblint))
-;;
-;; There's an autoload cookie below for this, if you use
-;; `update-file-autoloads' and friends.
-
-;;; Emacsen:
-
-;; Works in Emacs 22, Emacs 21, and XEmacs 21.
-
-;;; History:
-
-;; Version 1 - the first version.
-
-
-;;; Code:
-
-;;;DISABLE ###autoload (eval-after-load "compile" '(require 'compilation-weblint))
-
-(eval-after-load "compile"
-  '(progn
-     ;; The style comes from HTML::Lint::Error::as_string(), eg.
-     ;; index.html (13:1) Unknown element <fdjsk>
-     ;;
-     ;; The pattern only matches filenames without spaces, since that
-     ;; should be usual and should help reduce the chance of a false
-     ;; match of a message from some unrelated program.
-     ;;
-     ;; This message style is quite close to the "ibm" entry of
-     ;; emacs22 `compilation-error-regexp-alist-alist' which is for
-     ;; IBM C, though that ibm bit doesn't put a space after the
-     ;; filename.
-     ;;
-     (let ((elem '(compilation-weblint
-		   "^\\([^ \t\r\n(]+\\) (\\([0-9]+\\):\\([0-9]+\\)) "
-		   1 2 3)))
-
-       (cond
-	((boundp 'compilation-error-regexp-systems-list)
-	 ;; xemacs21
-	 (add-to-list 'compilation-error-regexp-alist-alist
-		      (list (car elem) (cdr elem)))
-	 (compilation-build-compilation-error-regexp-alist))
-
-	((boundp 'compilation-error-regexp-alist-alist)
-	 ;; emacs22
-	 (add-to-list 'compilation-error-regexp-alist-alist elem)
-	 (add-to-list 'compilation-error-regexp-alist (car elem)))
-
-	(t
-	 ;; emacs21
-	 (add-to-list 'compilation-error-regexp-alist (cdr elem))
-
-	 ;; Remove the "4.3BSD lint pass 3" element because it wrongly
-	 ;; matches weblint messages.  It's apparently supposed to
-	 ;; match something like
-	 ;;
-	 ;;     bloofle defined( /users/wolfgang/foo.c(4) ) ...
-	 ;;
-	 ;; but it's rather loose and ends up matching the "(13:1)"
-	 ;; part from weblint as if "13" is the filename and "1" is
-	 ;; the line number.  Forcibly removing this is a bit nasty,
-	 ;; but emacs22 has dropped it, so consider it an upgrade!
-	 ;;
-	 ;; xemacs21 has the same pattern, but somehow the problem
-	 ;; doesn't arise, so leave it alone there, for now.
-	 ;;
-	 (setq compilation-error-regexp-alist
-		    (remove '(".*([ \t]*\\([a-zA-Z]?:?[^:( \t\n]+\\)[:(][ \t]*\\([0-9]+\\))" 1 2)
-			    compilation-error-regexp-alist)))))))
-
-(provide 'compilation-weblint)
-
-;; arch-tag: c7e7f18f-71bd-4c43-b3d3-1d669036ef5d
-;;; compilation-weblint.el ends here