From fcca2aff43b3cb8e02ef8dff20dc03a0f8890e0f Mon Sep 17 00:00:00 2001 From: Andreas Schwab Date: Fri, 22 Feb 2008 11:00:54 +0000 Subject: [PATCH] (verilog-xemacs-menu): Fix setup of "Move" submenu. --- lisp/ChangeLog | 5 +++++ lisp/progmodes/verilog-mode.el | 15 +++++++-------- 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 + + * progmodes/verilog-mode.el (verilog-xemacs-menu): Fix setup of + "Move" submenu. + 2008-02-22 Dan Nicolaescu * 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] -- 2.39.5