# HG changeset patch
# User Andreas Schwab <schwab@suse.de>
# Date 1203678043 0
# Node ID 2e44cd9cc88a0b6eb168db54e8d971fb1e135894
# Parent  0ed1dc9e885216aec06edbe7eca562f4feb95ade
(verilog-xemacs-menu): Fix setup of "Move" submenu.

diff -r 0ed1dc9e8852 -r 2e44cd9cc88a lisp/progmodes/verilog-mode.el
--- a/lisp/progmodes/verilog-mode.el	Fri Feb 22 08:52:41 2008 +0000
+++ b/lisp/progmodes/verilog-mode.el	Fri Feb 22 11:00:43 2008 +0000
@@ -992,14 +992,13 @@
       :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]