(cperl-mode): Before adding to it, make `compilation-error-regexp-alist'

buffer-local, since we changed `compilation-error-regexp-alist-alist'
locally.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index f559521f274115d15139187aff6807f3971b4f12..6a5667cb3564eec53fe01f905c25b3aaeef2aea2 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2006-11-11  Romain Francoise  <romain@orebokech.com>
+
+       * progmodes/cperl-mode.el (cperl-mode): Before adding to it, make
+       `compilation-error-regexp-alist' buffer-local, since we changed
+       `compilation-error-regexp-alist-alist' locally.
+
 2006-11-11  Juanma Barranquero  <lekktu@gmail.com>
 
        * server.el (server-visit-files): Bind `minibuffer-auto-raise'

diff --git a/lisp/progmodes/cperl-mode.el b/lisp/progmodes/cperl-mode.el
index 26bbb8f3fafe88fe1200578a56b2e62694db6d9c..983087d07bc2b0a7c2aae38ccad10b7af682ea3f 100644 (file)
--- a/lisp/progmodes/cperl-mode.el
+++ b/lisp/progmodes/cperl-mode.el
@@ -1783,6 +1783,7 @@ or as help on variables `cperl-tips', `cperl-problems',
          (if (fboundp 'compilation-build-compilation-error-regexp-alist)
              (let ((f 'compilation-build-compilation-error-regexp-alist))
                (funcall f))
+           (make-local-variable 'compilation-error-regexp-alist)
            (push 'cperl compilation-error-regexp-alist)))
        ((boundp 'compilation-error-regexp-alist);; xmeacs 19.x
         (make-local-variable 'compilation-error-regexp-alist)