 	((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)))))
+	       (append cperl-compilation-error-regexp-alist
+		       (symbol-value 'compilation-error-regexp-alist)))))
   (make-local-variable 'font-lock-defaults)
   (setq	font-lock-defaults
 	(cond


(defcustom cperl-electric-keywords nil
  "*Not-nil (and non-null) means keywords are electric in CPerl.
Can be overwritten by `cperl-hairy' if nil."
  :type '(choice (const null) boolean)
  :group 'cperl-affected-by-hairy)


      (easy-menu-add cperl-menu))	; A NOP in Emacs.
  (run-mode-hooks 'cperl-mode-hook)
  (if cperl-hook-after-change
      (add-hook 'after-change-functions 'cperl-after-change-function nil t))
  ;; After hooks since fontification will break this
  (if cperl-pod-here-scan
      (or cperl-syntaxify-by-font-lock
