From d007adda8978b5ba63ed631c1f83b91adb452024 Mon Sep 17 00:00:00 2001 From: Andreas Schwab Date: Fri, 22 Feb 2008 15:10:13 +0000 Subject: [PATCH] Revert last change for now. --- lisp/ChangeLog | 5 ----- lisp/progmodes/verilog-mode.el | 15 ++++++++------- 2 files changed, 8 insertions(+), 12 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index f9a3a8bc8c3..f72f097f047 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -4,11 +4,6 @@ Add SRFI 11 support. (let-values, let*-values): Specify scheme-indent-function. -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 73f0c0194f9..0351dd3f297 100644 --- a/lisp/progmodes/verilog-mode.el +++ b/lisp/progmodes/verilog-mode.el @@ -992,13 +992,14 @@ If set will become buffer local.") :selected (equal verilog-tool `verilog-compiler)] ) ("Move" - ,@(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])) + ,(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]) ["Goto function/module" verilog-goto-defun t] ["Move to beginning of block" electric-verilog-backward-sexp t] -- 2.39.5