# HG changeset patch
# User Dan Nicolaescu <dann@ics.uci.edu>
# Date 1197343149 0
# Node ID 52d2889ab3d8f6e937dbdc7a813a8f1dbaf5189e
# Parent  bc59ec18d0360e3387344e995615e5695d9a1a83
(set-buffer-menubar): Remove unused
function.
(add-submenu): Only define for XEmacs.
(verilog-regexp-words): Revert previous change, keep the other
definition.

diff -r bc59ec18d036 -r 52d2889ab3d8 lisp/ChangeLog
--- a/lisp/ChangeLog	Sun Dec 09 19:38:37 2007 +0000
+++ b/lisp/ChangeLog	Tue Dec 11 03:19:09 2007 +0000
@@ -1,3 +1,11 @@
+2007-12-11  Dan Nicolaescu  <dann@ics.uci.edu>
+
+	* progmodes/verilog-mode.el (set-buffer-menubar): Remove unused
+	function.
+	(add-submenu): Only define for XEmacs.
+	(verilog-regexp-words): Revert previous change, keep the other
+	definition.
+
 2007-12-09  Dan Nicolaescu  <dann@ics.uci.edu>
 
 	* progmodes/perl-mode.el (perl-continued-statement-offset)
diff -r bc59ec18d036 -r 52d2889ab3d8 lisp/progmodes/verilog-mode.el
--- a/lisp/progmodes/verilog-mode.el	Sun Dec 09 19:38:37 2007 +0000
+++ b/lisp/progmodes/verilog-mode.el	Tue Dec 11 03:19:09 2007 +0000
@@ -154,14 +154,14 @@
 	  nil ;; fab
 	(defmacro store-match-data (&rest args) nil))
     (error nil))
-  (condition-case nil
-      (if (boundp 'current-menubar)
-	  nil ;; great
-	(progn
-	  (defmacro set-buffer-menubar (&rest args) nil)
-	  (defmacro add-submenu (&rest args) nil))
-	)
-    (error nil))
+  (if (featurep 'xemacs)
+      (condition-case nil
+	  (if (boundp 'current-menubar)
+	      nil ;; great
+	    (progn
+	      (defmacro add-submenu (&rest args) nil))
+	    )
+	(error nil)))
   (condition-case nil
       (if (fboundp 'zmacs-activate-region)
 	  nil ;; great
@@ -274,9 +274,10 @@
 	(concat open (mapconcat 'regexp-quote strings "\\|") close)))
     ))
 
-(defun verilog-regexp-words (a)
-  "Call 'regexp-opt' with word delimiters for the words A."
-  (concat "\\<" (verilog-regexp-opt a t) "\\>"))
+(eval-when-compile
+  (defun verilog-regexp-words (a)
+    "Call 'regexp-opt' with word delimiters for the words A."
+    (concat "\\<" (verilog-regexp-opt a t) "\\>")))
 
 (defun verilog-customize ()
   "Link to customize screen for Verilog."