Mercurial > emacs
diff lisp/progmodes/verilog-mode.el @ 79555:52d2889ab3d8
(set-buffer-menubar): Remove unused
function.
(add-submenu): Only define for XEmacs.
(verilog-regexp-words): Revert previous change, keep the other
definition.
author | Dan Nicolaescu <dann@ics.uci.edu> |
---|---|
date | Tue, 11 Dec 2007 03:19:09 +0000 |
parents | bc59ec18d036 |
children | d3e3c91e18f6 34b619baa980 |
line wrap: on
line diff
--- 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."