(set-buffer-menubar): Remove unused

function.
(add-submenu): Only define for XEmacs.
(verilog-regexp-words): Revert previous change, keep the other
definition.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 13505897067433528fa620c86dc6a3c759a8d4a1..b49ec6d23bd55280e7f7e334639c465933f6ef4a 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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 --git a/lisp/progmodes/verilog-mode.el b/lisp/progmodes/verilog-mode.el
index 79a4cd5c3996e3836f81db9a586a281a3d530d12..2d34d9d599afcfad64f7ed7ed7e607647729fa22 100644 (file)
--- a/lisp/progmodes/verilog-mode.el
+++ b/lisp/progmodes/verilog-mode.el
@@ -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 @@ STRING should be given if the last search was by `string-match' on STRING."
        (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."