diff options
| author | Dan Nicolaescu <dann@ics.uci.edu> | 2007-12-11 03:19:09 +0000 |
|---|---|---|
| committer | Dan Nicolaescu <dann@ics.uci.edu> | 2007-12-11 03:19:09 +0000 |
| commit | 38f584e90e8785a409d99d90f41ff357f7680ee1 (patch) | |
| tree | 7e303126a849972e37aa0c74cba60133b5b2db80 /lisp/progmodes/verilog-mode.el | |
| parent | 6ca0ff7375c34ba105101e5318194bdee07edf7f (diff) | |
| download | emacs-38f584e90e8785a409d99d90f41ff357f7680ee1.tar.gz emacs-38f584e90e8785a409d99d90f41ff357f7680ee1.tar.bz2 emacs-38f584e90e8785a409d99d90f41ff357f7680ee1.zip | |
(set-buffer-menubar): Remove unused
function.
(add-submenu): Only define for XEmacs.
(verilog-regexp-words): Revert previous change, keep the other
definition.
Diffstat (limited to 'lisp/progmodes/verilog-mode.el')
| -rw-r--r-- | lisp/progmodes/verilog-mode.el | 23 |
1 files changed, 12 insertions, 11 deletions
diff --git a/lisp/progmodes/verilog-mode.el b/lisp/progmodes/verilog-mode.el index 79a4cd5c399..2d34d9d599a 100644 --- 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." |