X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=emacs_el%2Fcperl-mode.el;fp=emacs_el%2Fcperl-mode.el;h=1cc2f17de50d439b16a76f15bcf75269405b06db;hb=203c967c40064f1000634b095b6397433c9fa9f3;hp=2d30676bc0216afd864e6b60350a1cc5e00fcf4c;hpb=db67e0079cc199ec9183101af34e215daeef99fe;p=lib.git

diff --git a/emacs_el/cperl-mode.el b/emacs_el/cperl-mode.el
index 2d30676..1cc2f17 100644
--- a/emacs_el/cperl-mode.el
+++ b/emacs_el/cperl-mode.el
@@ -3151,18 +3151,6 @@ or as help on variables `cperl-tips', `cperl-problems',
   (set 'vc-header-alist (or cperl-vc-header-alist ; Avoid warning
 			    (` ((SCCS (, (car cperl-vc-sccs-header)))
 				     (RCS (, (car cperl-vc-rcs-header)))))))
-  (cond ((boundp 'compilation-error-regexp-alist-alist);; xemacs 20.x
-	 (make-local-variable 'compilation-error-regexp-alist-alist)
-	 (set 'compilation-error-regexp-alist-alist
-	      (cons (cons 'cperl cperl-compilation-error-regexp-alist)
-		    (symbol-value 'compilation-error-regexp-alist-alist)))
-	 (let ((f 'compilation-build-compilation-error-regexp-alist))
-	   (funcall f)))
-	((boundp 'compilation-error-regexp-alist);; xmeacs 19.x
-	 (make-local-variable 'compilation-error-regexp-alist)
-	 (set 'compilation-error-regexp-alist
-	       (cons cperl-compilation-error-regexp-alist
-		     (symbol-value 'compilation-error-regexp-alist)))))
   (make-local-variable 'font-lock-defaults)
   (setq	font-lock-defaults
 	(cond