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

2 files changed, 12 insertions, 8 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 33298beba9b..62325d36b09 100644
--- 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 0351dd3f297..73f0c0194f9 100644
--- 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]