diff options
| -rw-r--r-- | lisp/ChangeLog | 157 | ||||
| -rw-r--r-- | lisp/apropos.el | 2 | ||||
| -rw-r--r-- | lisp/bookmark.el | 2 | ||||
| -rw-r--r-- | lisp/desktop.el | 4 | ||||
| -rw-r--r-- | lisp/dired-aux.el | 2 | ||||
| -rw-r--r-- | lisp/dnd.el | 2 | ||||
| -rw-r--r-- | lisp/echistory.el | 2 | ||||
| -rw-r--r-- | lisp/ediff-util.el | 6 | ||||
| -rw-r--r-- | lisp/files.el | 2 | ||||
| -rw-r--r-- | lisp/hi-lock.el | 2 | ||||
| -rw-r--r-- | lisp/ibuf-macs.el | 2 | ||||
| -rw-r--r-- | lisp/image-mode.el | 4 | ||||
| -rw-r--r-- | lisp/isearch.el | 2 | ||||
| -rw-r--r-- | lisp/iswitchb.el | 2 | ||||
| -rw-r--r-- | lisp/log-edit.el | 4 | ||||
| -rw-r--r-- | lisp/pcomplete.el | 2 | ||||
| -rw-r--r-- | lisp/pcvs.el | 2 | ||||
| -rw-r--r-- | lisp/printing.el | 8 | ||||
| -rw-r--r-- | lisp/server.el | 2 | ||||
| -rw-r--r-- | lisp/ses.el | 4 | ||||
| -rw-r--r-- | lisp/simple.el | 15 | ||||
| -rw-r--r-- | lisp/startup.el | 2 | ||||
| -rw-r--r-- | lisp/strokes.el | 6 | ||||
| -rw-r--r-- | lisp/vc.el | 4 | ||||
| -rw-r--r-- | lisp/wdired.el | 2 | ||||
| -rw-r--r-- | lisp/woman.el | 2 |
26 files changed, 205 insertions, 39 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 4b8e7d9d9ab..2fc94311b00 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,160 @@ +2005-09-18 D Goel <deego@gnufans.org> + + * apropos.el (apropos-command): Fix `message' call: first arg + should be a format spec. In this and all other cases that appear + below and elsewhere in the source code, I made a change only when + two conditions were satisfied: [1] I can think of a possibility + that the arguments would cause an error, for example, the code is + question relies on extarnal variables such as filenames. [2] I was + sure that the arg to `message' could not have been nil in the + code. + + * textmodes/tildify.el (tildify-region): Ditto. + + * textmodes/reftex-index.el (reftex-index-change-entry) + (reftex-index-phrase-selection-or-word) + (reftex-query-index-phrase): Ditto. + + * textmodes/reftex-dcr.el (reftex-echo-ref, reftex-echo-cite): Ditto. + + * textmodes/org.el (org-complete, org-deadline, org-schedule) + (org-priority, org-table-sum): Ditto. + + * textmodes/ispell.el (ispell-check-version) + (ispell-parse-output): Ditto. + + * textmodes/flyspell.el (flyspell-mode-on) + (flyspell-notify-misspell, flyspell-word) + (flyspell-display-next-corrections): Ditto. + + * textmodes/bibtex.el (bibtex-print-help-message): Ditto. + + * textmodes/artist.el (artist-key-set-point-poly): Ditto. + + * term/mac-win.el (mac-services-insert-text): Ditto. + + * progmodes/vhdl-mode.el (vhdl-warning, vhdl-print-warnings) + (vhdl-hooked-abbrev, vhdl-template-insert-fun) + (vhdl-port-paste-testbench, vhdl-compose-new-component) + (vhdl-compose-configuration): Ditto. + + * progmodes/sh-script.el (sh-blink, sh-show-indent) + (sh-set-indent, sh-learn-line-indent): Ditto. + + * progmodes/ps-mode.el (ps-mode-target-column): Ditto. + + * progmodes/idlwave.el (idlwave-make-tags) + (idlwave-scan-library-catalogs): Ditto. + + * progmodes/idlw-shell.el (idlwave-shell-parse-stack-and-display): Ditto. + + * progmodes/gud.el (gud-jdb-analyze-source): Ditto. + + * progmodes/flymake.el (flymake-log): Ditto. + + * progmodes/ebnf2ps.el (ebnf-generate-region): Ditto. + + * progmodes/cmacexp.el (c-macro-expansion): Ditto. + + * progmodes/ada-xref.el (ada-treat-cmd-string): Ditto. + + * progmodes/ada-mode.el (ada-create-case-exception-substring) + (ada-justified-indent-current, ada-batch-reformat): Ditto. + + * play/zone.el (zone): Ditto. + + * play/landmark.el (lm-move): Ditto. + + * play/decipher.el (decipher-show-alphabet): Ditto. + + * net/newsticker.el (newsticker--display-jump) + (newsticker--display-scroll): Ditto. + + * mail/rmail-spam-filter.el (rsf-add-subject-to-spam-list) + (rsf-add-sender-to-spam-list, rsf-add-region-to-spam-list): Ditto. + + * mail/feedmail.el (feedmail-dump-message-to-queue): Ditto. + + * eshell/esh-proc.el (eshell-remove-process-entry): Ditto. + + * emulation/ws-mode.el (ws-last-error): Ditto. + + * emulation/viper-macs.el (ex-map-read-args, ex-unmap-read-args) + (viper-record-kbd-macro): Ditto. + + * emulation/viper-ex.el (ex-pwd, viper-info-on-file): Ditto. + + * emacs-lisp/lisp-mnt.el (lm-report-bug): Ditto. + + * emacs-lisp/find-func.el (find-function-noselect): Ditto. + + * calendar/timeclock.el (timeclock-status-string) + (timeclock-workday-remaining-string) + (timeclock-workday-elapsed-string) + (timeclock-when-to-leave-string): Ditto. + + * calendar/icalendar.el (icalendar--convert-ical-to-diary): Ditto. + + * calc/calc-units.el (calc-enter-units-table): Ditto. + + * calc/calc-mode.el (calc-mode-record-mode): Ditto. + + * woman.el (woman-mini-help): Ditto. + + * wdired.el (wdired-change-to-wdired-mode): Ditto. + + * vc.el (vc-retrieve-snapshot): Ditto. + + * strokes.el (strokes-read-stroke, strokes-read-complex-stroke): Ditto. + + * startup.el (display-startup-echo-area-message): Ditto. + + * simple.el (set-goal-column): Ditto. + + * ses.el (ses-command-hook, ses-recalculate-cell): Ditto. + + * server.el (server-process-filter): Ditto. + + * printing.el (pr-interface-txt-print, pr-interface-printify) + (pr-interface-ps): Ditto. + + * pcvs.el (cvs-help): Ditto. + + * log-edit.el (log-edit, log-edit-mode-help): Ditto. + + * iswitchb.el (iswitchb-possible-new-buffer): Ditto. + + * isearch.el (isearch-edit-string): Ditto. + + * image-mode.el (image-mode, image-minor-mode): Ditto. + + * ibuf-macs.el (define-ibuffer-filter): Ditto. + + * hi-lock.el (hi-lock-find-patterns): Ditto. + + * files.el (toggle-read-only): Ditto. + + * ediff-util.el (ediff-copy-diff) + (ediff-write-merge-buffer-and-maybe-kill): Ditto. + + * echistory.el (Electric-history-undefined): Ditto. + + * dnd.el (dnd-insert-text): Ditto. + + * dired-aux.el (dired-query): Ditto. + + * desktop.el (desktop-restore-file-buffer) + (desktop-lazy-create-buffer): Ditto. + + * bookmark.el (bookmark-bmenu-locate): Ditto. + + * obsolete/fast-lock.el (@top-level): Ditto in the macro definition of `with-temp-message'. + + * pcomplete.el (pcomplete--help): Fix `message' format spec. Not + having a %s would be weird, though not technically wrong. + + + 2005-09-18 YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp> * term/mac-win.el (mac-add-charset-info): Doc fix. diff --git a/lisp/apropos.el b/lisp/apropos.el index fcad5cac0dc..990ad68e5ec 100644 --- a/lisp/apropos.el +++ b/lisp/apropos.el @@ -443,7 +443,7 @@ satisfy the predicate VAR-PREDICATE." (setq p (cdr p)))) (and (apropos-print t nil) message - (message message)))) + (message "%s" message)))) ;;;###autoload diff --git a/lisp/bookmark.el b/lisp/bookmark.el index 23e1ce11277..8014915a72e 100644 --- a/lisp/bookmark.el +++ b/lisp/bookmark.el @@ -2058,7 +2058,7 @@ To carry out the deletions that you've marked, use \\<bookmark-bmenu-mode-map>\\ (interactive) (if (bookmark-bmenu-check-position) (let ((bmrk (bookmark-bmenu-bookmark))) - (message (bookmark-location bmrk))))) + (message "%s" (bookmark-location bmrk))))) (defun bookmark-bmenu-relocate () "Change the file path of the bookmark on the current line, diff --git a/lisp/desktop.el b/lisp/desktop.el index 3dbd581aef4..cf4d387c7b1 100644 --- a/lisp/desktop.el +++ b/lisp/desktop.el @@ -944,7 +944,7 @@ directory DIRNAME." desktop-buffer-file-name))) (if desktop-missing-file-warning (y-or-n-p (concat msg " Re-create? ")) - (message msg) + (message "%s" msg) nil))) (let* ((auto-insert nil) ; Disable auto insertion (coding-system-for-read @@ -1101,7 +1101,7 @@ ARGS must be an argument list for `desktop-create-buffer'." (msg (format "Desktop lazily opening %s (%s remaining)..." buffer-name remaining))) (when desktop-lazy-verbose - (message msg)) + (message "%s" msg)) (let ((desktop-first-buffer nil) (desktop-buffer-ok-count 0) (desktop-buffer-fail-count 0)) diff --git a/lisp/dired-aux.el b/lisp/dired-aux.el index 0d3f6fe125b..17e61792d33 100644 --- a/lisp/dired-aux.el +++ b/lisp/dired-aux.el @@ -845,7 +845,7 @@ Otherwise, the rule is a compression rule, and compression is done with gzip.") (apply 'message qprompt qs-args) (setq char (set qs-var (read-char)))) ;; Display the question with the answer. - (message (concat (apply 'format qprompt qs-args) + (message "%s" (concat (apply 'format qprompt qs-args) (char-to-string char))) (memq (cdr elt) '(t y yes))))))) diff --git a/lisp/dnd.el b/lisp/dnd.el index 1092f4d087f..f85984fb7d8 100644 --- a/lisp/dnd.el +++ b/lisp/dnd.el @@ -179,7 +179,7 @@ TEXT is the text as a string, WINDOW is the window where the drop happened." (not (windowp window))) (progn (kill-new text) - (message + (message "%s" (substitute-command-keys "The dropped text can be accessed with \\[yank]"))) (insert text)) diff --git a/lisp/echistory.el b/lisp/echistory.el index 3b4b8419bd0..6556680f5ca 100644 --- a/lisp/echistory.el +++ b/lisp/echistory.el @@ -140,7 +140,7 @@ The Command History listing is recomputed each time this mode is invoked." (defun Electric-history-undefined () (interactive) (ding) - (message (substitute-command-keys "Type \\[Helper-help] for help, ? for commands, C-c C-c to quit, Space to execute")) + (message "%s" (substitute-command-keys "Type \\[Helper-help] for help, ? for commands, C-c C-c to quit, Space to execute")) (sit-for 4)) (defun Electric-history-quit () diff --git a/lisp/ediff-util.el b/lisp/ediff-util.el index 2e24548dbbe..a28f9d459ff 100644 --- a/lisp/ediff-util.el +++ b/lisp/ediff-util.el @@ -2075,7 +2075,7 @@ ARG is a prefix argument. If nil, copy the current difference region." (ediff-clear-fine-differences n)) ;; Make sure that the message about saving and how to restore is seen ;; by the user - (message messg)) + (message "%s" messg)) )) ;; Save Nth diff of buffer BUF-TYPE \(A, B, or C\). @@ -2720,7 +2720,7 @@ only if this merge job is part of a group, i.e., was invoked from within (format "Another buffer is visiting file %s. Too dangerous to save the merge buffer" file))) (beep) - (message warn-message) + (message "%s" warn-message) (with-output-to-temp-buffer ediff-msg-buffer (princ "\n\n") (princ warn-message) @@ -3286,7 +3286,7 @@ Hit \\[ediff-recenter] to reset the windows afterward." (princ warn-message) (princ "\n\n")) (if (y-or-n-p - (message warn-message)) + (message "%s" warn-message)) (with-current-buffer buff (save-buffer) (kill-buffer (current-buffer))) diff --git a/lisp/files.el b/lisp/files.el index 6356fcb8c2c..3706ad54edf 100644 --- a/lisp/files.el +++ b/lisp/files.el @@ -3580,7 +3580,7 @@ If visiting file read-only and `view-read-only' is non-nil, enter view mode." (t (setq buffer-read-only (not buffer-read-only)) (force-mode-line-update))) (if (vc-backend buffer-file-name) - (message (substitute-command-keys + (message "%s" (substitute-command-keys (concat "File is under version-control; " "use \\[vc-next-action] to check in/out")))))) diff --git a/lisp/hi-lock.el b/lisp/hi-lock.el index 14920cf93c2..84a8cd6284e 100644 --- a/lisp/hi-lock.el +++ b/lisp/hi-lock.el @@ -564,7 +564,7 @@ Optional argument END is maximum excursion." (hi-lock-current-line))))))) (when hi-lock-mode (hi-lock-set-file-patterns all-patterns)) (if (interactive-p) - (message (format "Hi-lock added %d patterns." (length all-patterns))))))) + (message "Hi-lock added %d patterns." (length all-patterns)))))) (defun hi-lock-font-lock-hook () "Add hi lock patterns to font-lock's." diff --git a/lisp/ibuf-macs.el b/lisp/ibuf-macs.el index 5274e3173ef..3e814d4770f 100644 --- a/lisp/ibuf-macs.el +++ b/lisp/ibuf-macs.el @@ -281,7 +281,7 @@ bound to the current value of the filter. ,(concat (or documentation "This filter is not documented.")) (interactive (list ,reader)) (ibuffer-push-filter (cons ',name qualifier)) - (message + (message "%s" (format ,(concat (format "Filter by %s added: " description) " %s") qualifier)) diff --git a/lisp/image-mode.el b/lisp/image-mode.el index 4999a880dfc..67d1bcee995 100644 --- a/lisp/image-mode.el +++ b/lisp/image-mode.el @@ -66,7 +66,7 @@ to toggle between display as an image and display as text." ;; variables were cleared by kill-all-local-variables (setq cursor-type nil truncate-lines t)) (run-mode-hooks 'image-mode-hook) - (message (concat (substitute-command-keys + (message "%s" (concat (substitute-command-keys "Type \\[image-toggle-display] to view the image as ") (if (get-text-property (point-min) 'display) "text" "an image") "."))) @@ -84,7 +84,7 @@ See the command `image-mode' for more information on this mode." (if (get-text-property (point-min) 'display) (setq cursor-type nil truncate-lines t)) (add-hook 'change-major-mode-hook (lambda () (image-minor-mode -1)) nil t) - (message (concat (substitute-command-keys + (message "%s" (concat (substitute-command-keys "Type \\[image-toggle-display] to view the image as ") (if (get-text-property (point-min) 'display) "text" "an image") ".")))) diff --git a/lisp/isearch.el b/lisp/isearch.el index 9e396f27545..5d0c24280b8 100644 --- a/lisp/isearch.el +++ b/lisp/isearch.el @@ -1016,7 +1016,7 @@ If first char entered is \\[isearch-yank-word-or-char], then do word search inst ;; read a key the normal way. ;; Word search does not apply (yet) to regexp searches, ;; no check is made here. - (message (isearch-message-prefix nil nil t)) + (message "%s" (isearch-message-prefix nil nil t)) (if (memq (lookup-key isearch-mode-map (vector e)) '(isearch-yank-word isearch-yank-word-or-char)) diff --git a/lisp/iswitchb.el b/lisp/iswitchb.el index c2e08d3a466..b13f2d0bb5a 100644 --- a/lisp/iswitchb.el +++ b/lisp/iswitchb.el @@ -1122,7 +1122,7 @@ Return the modified list with the last element prepended to it." (set-buffer-major-mode newbufcreated)) (iswitchb-visit-buffer newbufcreated)) ;; else wont create new buffer - (message (format "no buffer matching `%s'" buf))))) + (message "no buffer matching `%s'" buf)))) (defun iswitchb-window-buffer-p (buffer) "Return window pointer if BUFFER is visible in another frame. diff --git a/lisp/log-edit.el b/lisp/log-edit.el index 2b38dcadf52..4e179ef8bad 100644 --- a/lisp/log-edit.el +++ b/lisp/log-edit.el @@ -331,7 +331,7 @@ If BUFFER is non-nil `log-edit' will jump to that buffer, use it to edit the (set (make-local-variable 'log-edit-initial-files) (log-edit-files)) (when setup (run-hooks 'log-edit-hook)) (goto-char (point-min)) (push-mark (point-max)) - (message (substitute-command-keys + (message "%s" (substitute-command-keys "Press \\[log-edit-done] when you are done editing.")))) (define-derived-mode log-edit-mode text-mode "Log-Edit" @@ -426,7 +426,7 @@ To select default log text, we: (interactive) (if (eq last-command 'log-edit-mode-help) (describe-function major-mode) - (message + (message "%s" (substitute-command-keys "Type `\\[log-edit-done]' to finish commit. Try `\\[describe-function] log-edit-done' for more help.")))) diff --git a/lisp/pcomplete.el b/lisp/pcomplete.el index 785c62290c4..c8d0ac19bd6 100644 --- a/lisp/pcomplete.el +++ b/lisp/pcomplete.el @@ -1138,7 +1138,7 @@ If specific documentation can't be given, be generic." (fboundp 'Info-goto-node)) (listp pcomplete-help))) (if (listp pcomplete-help) - (message (eval pcomplete-help)) + (message "%s" (eval pcomplete-help)) (save-window-excursion (info)) (switch-to-buffer-other-window "*info*") (funcall (symbol-function 'Info-goto-node) pcomplete-help)) diff --git a/lisp/pcvs.el b/lisp/pcvs.el index f5564155ff7..c402192c05a 100644 --- a/lisp/pcvs.el +++ b/lisp/pcvs.el @@ -1171,7 +1171,7 @@ Full documentation is in the Texinfo file." (interactive) (if (eq last-command 'cvs-help) (describe-function 'cvs-mode) ; would need minor-mode for log-edit-mode - (message + (message "%s" (substitute-command-keys "`\\[cvs-help]':help `\\[cvs-mode-add]':add `\\[cvs-mode-commit]':commit \ `\\[cvs-mode-diff-map]':diff* `\\[cvs-mode-log]':log \ diff --git a/lisp/printing.el b/lisp/printing.el index eabca64f085..ec2c8a3cfda 100644 --- a/lisp/printing.el +++ b/lisp/printing.el @@ -4,7 +4,7 @@ ;; Author: Vinicius Jose Latorre <viniciusjl@ig.com.br> ;; Maintainer: Vinicius Jose Latorre <viniciusjl@ig.com.br> -;; Time-stamp: <2005/06/11 19:51:32 vinicius> +;; Time-stamp: <2005-09-18 05:57:14 deego> ;; Keywords: wp, print, PostScript ;; Version: 6.8.4 ;; X-URL: http://www.cpqd.com.br/~vinicius/emacs/ @@ -6424,7 +6424,7 @@ COMMAND.exe, COMMAND.bat and COMMAND.com in this order." ;; handlers ((quit error) (ding) - (message (error-message-string data))))) + (message "%s" (error-message-string data))))) (defun pr-interface-printify (&rest ignore) @@ -6449,7 +6449,7 @@ COMMAND.exe, COMMAND.bat and COMMAND.com in this order." ;; handlers ((quit error) (ding) - (message (error-message-string data))))) + (message "%s" (error-message-string data))))) (defun pr-interface-ps-print (&rest ignore) @@ -6515,7 +6515,7 @@ COMMAND.exe, COMMAND.bat and COMMAND.com in this order." ;; handlers ((quit error) (ding) - (message (error-message-string data))))) + (message "%s" (error-message-string data))))) (defun pr-i-ps-send () diff --git a/lisp/server.el b/lisp/server.el index 7256a729de3..3e70b78e782 100644 --- a/lisp/server.el +++ b/lisp/server.el @@ -371,7 +371,7 @@ PROC is the server process. Format of STRING is \"PATH PATH PATH... \\n\"." (server-switch-buffer (nth 1 client)) (run-hooks 'server-switch-hook) (unless nowait - (message (substitute-command-keys + (message "%s" (substitute-command-keys "When done with a buffer, type \\[server-edit]"))))) ;; Avoid preserving the connection after the last real frame is deleted. (if tmp-frame (delete-frame tmp-frame)))) diff --git a/lisp/ses.el b/lisp/ses.el index e4124de9fb5..75562edddb9 100644 --- a/lisp/ses.el +++ b/lisp/ses.el @@ -1612,7 +1612,7 @@ narrows the buffer now." (error (unless executing-kbd-macro (ding)) - (message (error-message-string err)))) + (message "%s" (error-message-string err)))) nil) ;Make coverage-tester happy (defun ses-create-header-string () @@ -1739,7 +1739,7 @@ to are recalculated first." (error (setq sig hold)))) (cond (sig - (message (error-message-string sig))) + (message "%s" (error-message-string sig))) ((consp ses--curcell) (message " ")) (t diff --git a/lisp/simple.el b/lisp/simple.el index fe58a47610e..f06a279c9c2 100644 --- a/lisp/simple.el +++ b/lisp/simple.el @@ -3668,9 +3668,18 @@ The goal column is stored in the variable `goal-column'." (setq goal-column nil) (message "No goal column")) (setq goal-column (current-column)) - (message (substitute-command-keys - "Goal column %d (use \\[set-goal-column] with an arg to unset it)") - goal-column)) + ;; The older method below can be erroneous if `set-goal-column' is bound + ;; to a sequence containing % + ;;(message (substitute-command-keys + ;;"Goal column %d (use \\[set-goal-column] with an arg to unset it)") + ;;goal-column) + (message "%s" + (concat + (format "Goal column %d " goal-column) + (substitute-command-keys + "(use \\[set-goal-column] with an arg to unset it)"))) + + ) nil) diff --git a/lisp/startup.el b/lisp/startup.el index d5cf91d622b..450159b36f2 100644 --- a/lisp/startup.el +++ b/lisp/startup.el @@ -1477,7 +1477,7 @@ Type \\[describe-distribution] for information on getting the latest version.")) (defun display-startup-echo-area-message () (let ((resize-mini-windows t)) - (message (startup-echo-area-message)))) + (message "%s" (startup-echo-area-message)))) (defun display-splash-screen () diff --git a/lisp/strokes.el b/lisp/strokes.el index a432191b18a..84bff1b6ba0 100644 --- a/lisp/strokes.el +++ b/lisp/strokes.el @@ -738,7 +738,7 @@ Optional EVENT is acceptable as the starting event of the stroke." (save-window-excursion (set-window-configuration strokes-window-configuration) (when prompt - (message prompt) + (message "%s" prompt) (setq event (read-event)) (or (strokes-button-press-event-p event) (error "You must draw with the mouse"))) @@ -769,7 +769,7 @@ Optional EVENT is acceptable as the starting event of the stroke." (bury-buffer)))) ;; Otherwise, don't use strokes buffer and read stroke silently (when prompt - (message prompt) + (message "%s" prompt) (setq event (read-event)) (or (strokes-button-press-event-p event) (error "You must draw with the mouse"))) @@ -799,7 +799,7 @@ Optional EVENT is acceptable as the starting event of the stroke." (grid-locs nil)) (if prompt (while (not (strokes-button-press-event-p event)) - (message prompt) + (message "%s" prompt) (setq event (read-event)))) (unwind-protect (track-mouse diff --git a/lisp/vc.el b/lisp/vc.el index 8e87cb50eb4..665bb3d31e7 100644 --- a/lisp/vc.el +++ b/lisp/vc.el @@ -2333,10 +2333,10 @@ allowed and simply skipped)." (format "Updating %s... " (abbreviate-file-name dir)) (format "Retrieving snapshot into %s... " (abbreviate-file-name dir))))) - (message msg) + (message "%s" msg) (vc-call-backend (vc-responsible-backend dir) 'retrieve-snapshot dir name update) - (message (concat msg "done")))) + (message "%s" (concat msg "done")))) (defun vc-default-retrieve-snapshot (backend dir name update) (if (string= name "") diff --git a/lisp/wdired.el b/lisp/wdired.el index ef20ea6f9a2..55df66a70e6 100644 --- a/lisp/wdired.el +++ b/lisp/wdired.el @@ -264,7 +264,7 @@ See `wdired-mode'." (set-buffer-modified-p nil) (setq buffer-undo-list nil) (run-mode-hooks 'wdired-mode-hook) - (message (substitute-command-keys "Press \\[wdired-finish-edit] when finished \ + (message "%s" (substitute-command-keys "Press \\[wdired-finish-edit] when finished \ or \\[wdired-abort-changes] to abort changes"))) diff --git a/lisp/woman.el b/lisp/woman.el index 9b7bce889b3..315a0a3bbe5 100644 --- a/lisp/woman.el +++ b/lisp/woman.el @@ -1926,7 +1926,7 @@ Optional argument REDRAW, if non-nil, forces mode line to be updated." ;; Output the result: (and (apropos-print t nil) message - (message message)))) + (message "%s" message)))) (defun WoMan-getpage-in-background (topic) |