[Emacs-diffs] Changes to emacs/lisp/progmodes/Attic/verilog-mode.el, v [EMACS_22_BASE]

[Dan Nicolaescu]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Branch:         EMACS_22_BASE
Changes by:     Dan Nicolaescu <dann>   07/12/11 03:19:12

Index: progmodes/verilog-mode.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/progmodes/Attic/verilog-mode.el,v
retrieving revision 1.1.2.8
retrieving revision 1.1.2.9
diff -u -b -r1.1.2.8 -r1.1.2.9
--- progmodes/verilog-mode.el   9 Dec 2007 19:38:37 -0000       1.1.2.8
+++ progmodes/verilog-mode.el   11 Dec 2007 03:19:09 -0000      1.1.2.9
@@ -154,14 +154,14 @@
          nil ;; fab
        (defmacro store-match-data (&rest args) nil))
     (error nil))
+  (if (featurep 'xemacs)
   (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))
+       (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)
+(eval-when-compile
+  (defun verilog-regexp-words (a)
   "Call 'regexp-opt' with word delimiters for the words A."
-  (concat "\\<" (verilog-regexp-opt a t) "\\>"))
+    (concat "\\<" (verilog-regexp-opt a t) "\\>")))
 
 (defun verilog-customize ()
   "Link to customize screen for Verilog."