Mercurial > emacs

changeset 103980:60489d78df5a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(verilog-error-regexp-add-xemacs): Silence compiler by only defining on XEmacs.
author Glenn Morris <rgm@gnu.org>
date Sun, 19 Jul 2009 00:47:47 +0000
parents 0cca0ac80b2a
children 79bd2c1abfc5
files lisp/ChangeLog lisp/progmodes/verilog-mode.el
diffstat 2 files changed, 27 insertions(+), 23 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/ChangeLog	Sun Jul 19 00:40:04 2009 +0000
+++ b/lisp/ChangeLog	Sun Jul 19 00:47:47 2009 +0000
@@ -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)
 
--- a/lisp/progmodes/verilog-mode.el	Sun Jul 19 00:40:04 2009 +0000
+++ b/lisp/progmodes/verilog-mode.el	Sun Jul 19 00:47:47 2009 +0000
@@ -1454,31 +1454,32 @@
 	   "\\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 ()