Mercurial > emacs

changeset 53863:3c9fc6a0a6db

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(vi-mode): Remove extra format string argument. (vi-repeat-last-search): Likewise. (vi-reverse-last-search): Likewise. (vi-goto-mark): Likewise. (vi-reverse-last-find-char): Likewise. (vi-repeat-last-find-char): Likewise. (vi-locate-def): Likewise.
author Andreas Schwab <schwab@suse.de>
date Sun, 08 Feb 2004 22:37:34 +0000
parents a1177e068d43
children 8589159e3bd8
files lisp/emulation/vi.el
diffstat 1 files changed, 8 insertions(+), 7 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/emulation/vi.el	Sun Feb 08 22:37:02 2004 +0000
+++ b/lisp/emulation/vi.el	Sun Feb 08 22:37:34 2004 +0000
@@ -455,7 +455,7 @@
        (vi-mode-setup))
 
    (if (eq major-mode 'vi-mode)
-       (message "Already in vi-mode." (ding))
+       (progn (ding) (message "Already in vi-mode."))
      (setq vi-mode-old-local-map (current-local-map))
      (setq vi-mode-old-mode-name mode-name)
      (setq vi-mode-old-major-mode major-mode)
@@ -703,7 +703,7 @@
 		     regexp-search-ring
 		   search-ring))))
   (if (null search-command)
-      (message "No last search command to repeat." (ding))
+      (progn (ding) (message "No last search command to repeat."))
     (funcall search-command search-string nil nil arg)))
 
 (defun vi-reverse-last-search (arg &optional search-command search-string)
@@ -718,7 +718,7 @@
 		     regexp-search-ring
 		   search-ring))))
   (if (null search-command)
-      (message "No last search command to repeat." (ding))
+      (progn (ding) (message "No last search command to repeat."))
     (funcall (cond ((eq search-command 're-search-forward) 're-search-backward)
 		   ((eq search-command 're-search-backward) 're-search-forward)
 		   ((eq search-command 'search-forward) 'search-backward)
@@ -838,7 +838,7 @@
 	(t
 	 (let ((mark (vi-get-mark mark-char)))
 	   (if (null mark)
-	       (message "Mark register undefined." (vi-ding))
+	       (progn (vi-ding) (message "Mark register undefined."))
 	     (set-mark-command nil)
 	     (goto-char mark)
 	     (if line-flag (back-to-indentation)))))))
@@ -881,7 +881,7 @@
   (interactive "p")
   (if (null find-arg) (setq find-arg vi-last-find-char))
   (if (null find-arg)
-      (message "No last find char to repeat." (ding))
+      (progn (ding) (message "No last find char to repeat."))
     (vi-find-char (cons (* (car find-arg) -1) (cdr find-arg)) count))) ;6/13/86
 
 (defun vi-find-char (arg count)
@@ -909,7 +909,7 @@
   (interactive "p")
   (if (null find-arg) (setq find-arg vi-last-find-char))
   (if (null find-arg)
-      (message "No last find char to repeat." (ding))
+      (progn (ding) (message "No last find char to repeat."))
     (vi-find-char find-arg count)))
 
 (defun vi-backward-find-char (count char)
@@ -1465,7 +1465,8 @@
     (goto-char (point-min))
     (if (re-search-forward (concat "^(def[unvarconst ]*" name) nil t)
 	nil
-      (message "No definition for \"%s\" in current file." name (ding))
+      (ding)
+      (message "No definition for \"%s\" in current file." name)
       (set-mark-command t))))
 
 (defun vi-split-open-line (arg)