From 2bcbf5107294909b1a39d3596125f9631c8bc188 Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Thu, 25 Jan 1996 01:17:24 +0000 Subject: [PATCH] (ex-pwd, vip-info-on-file): Pass proper format string to message. (ex-set): Delete format call inside message. --- lisp/emulation/viper-ex.el | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/lisp/emulation/viper-ex.el b/lisp/emulation/viper-ex.el index 57a813f6c19..4ce8f1453d6 100644 --- a/lisp/emulation/viper-ex.el +++ b/lisp/emulation/viper-ex.el @@ -1412,7 +1412,7 @@ reversed.") ;; Ex print working directory (defun ex-pwd () - (message default-directory)) + (message "%s" default-directory)) ;; Ex quit command (defun ex-quit () @@ -1560,7 +1560,7 @@ reversed.") val "nil"))) (if (eq val 0) ; value must be set by the user (let ((cursor-in-echo-area t)) - (message (format ":set %s = " var)) + (message ":set %s = " var) ;; if there are unread events, don't wait (or (vip-set-unread-command-events "") (sit-for 2)) (setq val (read-string (format ":set %s = " var))) @@ -1632,9 +1632,9 @@ reversed.") )) )) - (message (format "%s %s %s" set-cmd var (if (string-match "^[ \t]*$" val) - (format "%S" val) - val))) + (message "%s %s %s" set-cmd var (if (string-match "^[ \t]*$" val) + (format "%S" val) + val)) (eval (car (read-from-string actual-lisp-cmd))) (if (string= var "fill-column") (if (> val2 0) @@ -1962,7 +1962,7 @@ Please contact your system administrator. " (if (buffer-modified-p) "[Modified]" "[Unchanged]"))) (if (< (+ 1 (length info) (length file)) (window-width (minibuffer-window))) - (message (concat file " " info)) + (message "%s %s" file info) (save-window-excursion (with-output-to-temp-buffer " *vip-info*" (princ (concat "\n" -- 2.39.2