mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-29 07:58:28 +00:00
Code Issues Releases Activity

message format spec fixes, commit # 8

Browse Source
This commit is contained in:
Deepak Goel 2005-09-18 12:39:40 +00:00
parent d8ea53f999
commit 7b8a295e79
3 changed files with 10 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/emulation/viper-ex.el
View File

@ -1590,7 +1590,7 @@ reversed."
;; Ex print working directory
(defun ex-pwd ()
(message default-directory))
(message "%s" default-directory))
;; Ex quit command
(defun ex-quit ()
@ -2230,7 +2230,7 @@ Type 'mak ' (including the space) to run make with no args."
(if (buffer-modified-p) "[Modified]" "[Unchanged]")))
(if (< (+ 1 (length info) (length file))
(window-width (minibuffer-window)))
(message (concat file " " info))
(message "%s" (concat file " " info))
(save-window-excursion
(with-output-to-temp-buffer " *viper-info*"
(princ (concat "\n" file "\n\n\t" info "\n\n")))

10
lisp/emulation/viper-macs.el
View File

@ -186,7 +186,7 @@ a key is a symbol, e.g., `a', `\\1', `f2', etc., or a list, e.g.,
variant (if (> (length key-seq) 0)
(prin1-to-string (viper-display-macro key-seq))
"")))
(message message)
(message "%s" message)
(setq event (viper-read-key))
;;(setq event (viper-read-event))
(setq key
@ -263,7 +263,7 @@ a key is a symbol, e.g., `a', `\\1', `f2', etc., or a list, e.g.,
(prin1-to-string
(viper-display-macro key-seq))
"")))
(message message)
(message "%s" message)
(setq event (viper-read-key))
;;(setq event (viper-read-event))
(setq key
@ -442,7 +442,11 @@ If SCOPE is nil, the user is asked to specify the scope."
scope)
viper-custom-file-name))
(message msg)
;; 2005-09-18 T06:41:22-0400 (Sunday) D. Goel
;; From careful parsing of the above code, it looks like msg
;; couldn't be nil when we reach here. Since it is a string,
;; and a complicated one too, we might as well provide it a "%s"
(message "%s" msg)
))
(setq new-elt

2
lisp/emulation/ws-mode.el
View File

@ -691,7 +691,7 @@ in ws-last-errormessage for recovery with C-q w."
This will only work for errors raised by WordStar mode functions."
(interactive)
(if ws-last-errormessage
(message ws-last-errormessage)
(message "%s" ws-last-errormessage)
(message "No WordStar error yet.")))
(defun ws-kill-eol ()