Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
7b8a295e
Commit
7b8a295e
authored
Sep 18, 2005
by
Deepak Goel
Browse files
message format spec fixes, commit # 8
parent
d8ea53f9
Changes
3
Hide whitespace changes
Inline
Side-by-side
Showing
3 changed files
with
10 additions
and
6 deletions
+10
-6
lisp/emulation/viper-ex.el
lisp/emulation/viper-ex.el
+2
-2
lisp/emulation/viper-macs.el
lisp/emulation/viper-macs.el
+7
-3
lisp/emulation/ws-mode.el
lisp/emulation/ws-mode.el
+1
-1
No files found.
lisp/emulation/viper-ex.el
View file @
7b8a295e
...
...
@@ -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")))
...
...
lisp/emulation/viper-macs.el
View file @
7b8a295e
...
...
@@ -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
...
...
lisp/emulation/ws-mode.el
View file @
7b8a295e
...
...
@@ -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
()
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment