[Emacs-diffs] emacs/lisp ChangeLog progmodes/verilog-mode.el

[Glenn Morris]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Glenn Morris <gm>       09/07/19 00:47:51

Modified files:
        lisp           : ChangeLog 
        lisp/progmodes : verilog-mode.el 

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

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.15831&r2=1.15832
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/progmodes/verilog-mode.el?cvsroot=emacs&r1=1.29&r2=1.30

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.15831
retrieving revision 1.15832
diff -u -b -r1.15831 -r1.15832
--- ChangeLog   19 Jul 2009 00:40:04 -0000      1.15831
+++ ChangeLog   19 Jul 2009 00:47:47 -0000      1.15832
@@ -1,5 +1,8 @@
 2009-07-19  Glenn Morris  <address@hidden>
 
+       * 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)
 

Index: progmodes/verilog-mode.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/progmodes/verilog-mode.el,v
retrieving revision 1.29
retrieving revision 1.30
diff -u -b -r1.29 -r1.30
--- progmodes/verilog-mode.el   6 Jul 2009 08:32:53 -0000       1.29
+++ progmodes/verilog-mode.el   19 Jul 2009 00:47:50 -0000      1.30
@@ -1454,8 +1454,9 @@
           "\\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 ()
+(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."
@@ -1478,7 +1479,7 @@
   ;; 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 ()