From: Glenn Morris <rgm@gnu.org>
Date: Sun, 19 Jul 2009 00:47:47 +0000 (+0000)
Subject: (verilog-error-regexp-add-xemacs): Silence compiler by only defining on XEmacs.
X-Git-Tag: emacs-pretest-23.1.90~2105
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d9e8a01896a4306b5d6e65d5f3008a4cc152712e;p=emacs.git

(verilog-error-regexp-add-xemacs): Silence compiler by only defining on XEmacs.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 4c74d22f737..04a93dfe596 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2009-07-19  Glenn Morris  <rgm@gnu.org>
 
+	* progmodes/verilog-mode.el (verilog-error-regexp-add-xemacs):
+	Silence compiler by only defining on XEmacs.
+
 	* international/mule.el (auto-coding-regexp-alist): Only match
 	BABYL... at the start of buffer, not of lines.  (Bug#3790)
 
diff --git a/lisp/progmodes/verilog-mode.el b/lisp/progmodes/verilog-mode.el
index 1a885fe6b73..c4b2f4a009e 100644
--- a/lisp/progmodes/verilog-mode.el
+++ b/lisp/progmodes/verilog-mode.el
@@ -1454,31 +1454,32 @@ without the directory portion, will be substituted."
 	   "\\b__FILE__\\b" (file-name-nondirectory (buffer-file-name))
 	   t t compile-command))))
 
-;; Following code only gets called from compilation-mode-hook on XEmacs to add error handling.
-(defun verilog-error-regexp-add-xemacs ()
-  "Teach XEmacs about verilog errors.
+(if (featurep 'xemacs)
+    ;; Following code only gets called from compilation-mode-hook on XEmacs to add error handling.
+    (defun verilog-error-regexp-add-xemacs ()
+      "Teach XEmacs about verilog errors.
 Called by `compilation-mode-hook'.  This allows \\[next-error] to
 find the errors."
-  (interactive)
-  (if (boundp 'compilation-error-regexp-systems-alist)
-      (if (and 
-           (not (equal compilation-error-regexp-systems-list 'all))
-           (not (member compilation-error-regexp-systems-list 'verilog)))
-	  (push 'verilog compilation-error-regexp-systems-list)))
-  (if (boundp 'compilation-error-regexp-alist-alist)
-      (if (not (assoc 'verilog compilation-error-regexp-alist-alist))
-          (setcdr compilation-error-regexp-alist-alist
-                  (cons verilog-error-regexp-xemacs-alist
-                        (cdr compilation-error-regexp-alist-alist)))))
-  (if (boundp 'compilation-font-lock-keywords)
-      (progn
-        (make-variable-buffer-local 'compilation-font-lock-keywords)
-        (setq compilation-font-lock-keywords  verilog-error-font-lock-keywords)
-        (font-lock-set-defaults)))
-  ;; Need to re-run compilation-error-regexp builder
-  (if (fboundp 'compilation-build-compilation-error-regexp-alist)
-      (compilation-build-compilation-error-regexp-alist))
-  )
+      (interactive)
+      (if (boundp 'compilation-error-regexp-systems-alist)
+	  (if (and
+	       (not (equal compilation-error-regexp-systems-list 'all))
+	       (not (member compilation-error-regexp-systems-list 'verilog)))
+	      (push 'verilog compilation-error-regexp-systems-list)))
+      (if (boundp 'compilation-error-regexp-alist-alist)
+	  (if (not (assoc 'verilog compilation-error-regexp-alist-alist))
+	      (setcdr compilation-error-regexp-alist-alist
+		      (cons verilog-error-regexp-xemacs-alist
+			    (cdr compilation-error-regexp-alist-alist)))))
+      (if (boundp 'compilation-font-lock-keywords)
+	  (progn
+	    (make-variable-buffer-local 'compilation-font-lock-keywords)
+	    (setq compilation-font-lock-keywords  verilog-error-font-lock-keywords)
+	    (font-lock-set-defaults)))
+      ;; Need to re-run compilation-error-regexp builder
+      (if (fboundp 'compilation-build-compilation-error-regexp-alist)
+	  (compilation-build-compilation-error-regexp-alist))
+      ))
 
 ;; Following code only gets called from compilation-mode-hook on Emacs to add error handling.
 (defun verilog-error-regexp-add-emacs ()