(verilog-xemacs-menu): Fix setup of "Move" submenu.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 33298beba9bffc9e1a62fa97d1e85386eae55cbe..62325d36b09513ac44de495da63bbe0c7926fd5d 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2008-02-22  Andreas Schwab  <schwab@suse.de>
+
+       * progmodes/verilog-mode.el (verilog-xemacs-menu): Fix setup of
+       "Move" submenu.
+
 2008-02-22  Dan Nicolaescu  <dann@ics.uci.edu>
 
        * vc.el (vc-exec-after): Move setting mode-line-process in the

diff --git a/lisp/progmodes/verilog-mode.el b/lisp/progmodes/verilog-mode.el
index 0351dd3f297122bda7bdea49668f67f69f5a5eb1..73f0c0194f984a8178058aacc6cded981dc7b2e9 100644 (file)
--- a/lisp/progmodes/verilog-mode.el
+++ b/lisp/progmodes/verilog-mode.el
@@ -992,14 +992,13 @@ If set will become buffer local.")
       :selected (equal verilog-tool `verilog-compiler)]
      )
     ("Move"
-     ,(if (featurep 'xemacs)
-         (progn
-           ["Beginning of function"            verilog-beg-of-defun t]
-           ["End of function"                  verilog-end-of-defun t]
-           ["Mark function"                    verilog-mark-defun t])
-       ["Beginning of function"                beginning-of-defun t]
-       ["End of function"                      end-of-defun t]
-       ["Mark function"                        mark-defun t])
+     ,@(if (featurep 'xemacs)
+          '(["Beginning of function"           verilog-beg-of-defun t]
+            ["End of function"                 verilog-end-of-defun t]
+            ["Mark function"                   verilog-mark-defun t])
+       '(["Beginning of function"              beginning-of-defun t]
+         ["End of function"                    end-of-defun t]
+         ["Mark function"                      mark-defun t]))
 
      ["Goto function/module"           verilog-goto-defun t]
      ["Move to beginning of block"     electric-verilog-backward-sexp t]