changeset 92099:2e44cd9cc88a

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

--- 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]