Commit 274f1353 authored by David Kastrup's avatar David Kastrup
Browse files

* erc-stamp.el (erc-echo-timestamp):

* erc-lang.el (language):
* erc-backend.el (erc-server-connect): Fix buggy call to `message'.

* gnus-sum.el (gnus-summary-simplify-subject-query):
* ecomplete.el (ecomplete-display-matches): Fix buggy call to
`message'.

* textmodes/reftex.el (reftex-select-with-char):
* textmodes/reftex-toc.el (reftex-toc-do-promote)
(reftex-toc-visit-location, reftex-toc-find-section):
* textmodes/reftex-index.el (reftex-index-show-entry):
* textmodes/org.el (org-cycle-hide-archived-subtrees)
(org-table-rotate-recalc-marks, org-mark-ring-push)
(org-follow-info-link, org-mhe-get-message-folder-from-index)
(org-auto-repeat-maybe, org-store-log-note, org-delete-property)
(org-evaluate-time-range, org-edit-agenda-file-list):
* textmodes/artist.el (artist-select-next-op-in-list)
(artist-select-prev-op-in-list):
* term/mac-win.el (mac-service-insert-text):
* startup.el (fancy-about-screen):
* progmodes/vhdl-mode.el (vhdl-decision-query):
* progmodes/idlwave.el (idlwave-template)
(idlwave-scroll-completions, idlwave-display-completion-list):
* progmodes/ebrowse.el (ebrowse-show-progress):
* progmodes/cperl-mode.el (cperl-find-pods-heres):
* progmodes/antlr-mode.el (antlr-insert-option-do):
* play/mpuz.el (mpuz-close-game):
* net/rcirc.el (rcirc-next-active-buffer):
* mail/reporter.el (reporter-update-status):
* kmacro.el (kmacro-display):
* international/ja-dic-cnv.el (skkdic-set-okuri-nasi):
* emulation/viper-util.el (viper-save-setting):
* emacs-lisp/lisp-mnt.el (lm-verify):
* emacs-lisp/edebug.el (edebug-set-mode):
* emacs-lisp/checkdoc.el (checkdoc-rogue-spaces, checkdoc-defun):
* calendar/calendar.el (calendar-print-day-of-year):
* calc/calcalg3.el (calc-curve-fit):
* calc/calcalg2.el (math-integral):
* calc/calc.el (calc-read-key-sequence, calc-version):
* calc/calc-mode.el (calc-set-simplify-mode):
* calc/calc-ext.el (calc-fancy-prefix): Fix buggy call to
`message'.
parent a867ead0
2007-12-08 David Kastrup <dak@gnu.org>
* textmodes/reftex.el (reftex-select-with-char):
* textmodes/reftex-toc.el (reftex-toc-do-promote)
(reftex-toc-visit-location, reftex-toc-find-section):
* textmodes/reftex-index.el (reftex-index-show-entry):
* textmodes/org.el (org-cycle-hide-archived-subtrees)
(org-table-rotate-recalc-marks, org-mark-ring-push)
(org-follow-info-link, org-mhe-get-message-folder-from-index)
(org-auto-repeat-maybe, org-store-log-note, org-delete-property)
(org-evaluate-time-range, org-edit-agenda-file-list):
* textmodes/artist.el (artist-select-next-op-in-list)
(artist-select-prev-op-in-list):
* term/mac-win.el (mac-service-insert-text):
* startup.el (fancy-about-screen):
* progmodes/vhdl-mode.el (vhdl-decision-query):
* progmodes/idlwave.el (idlwave-template)
(idlwave-scroll-completions, idlwave-display-completion-list):
* progmodes/ebrowse.el (ebrowse-show-progress):
* progmodes/cperl-mode.el (cperl-find-pods-heres):
* progmodes/antlr-mode.el (antlr-insert-option-do):
* play/mpuz.el (mpuz-close-game):
* net/rcirc.el (rcirc-next-active-buffer):
* mail/reporter.el (reporter-update-status):
* kmacro.el (kmacro-display):
* international/ja-dic-cnv.el (skkdic-set-okuri-nasi):
* emulation/viper-util.el (viper-save-setting):
* emacs-lisp/lisp-mnt.el (lm-verify):
* emacs-lisp/edebug.el (edebug-set-mode):
* emacs-lisp/checkdoc.el (checkdoc-rogue-spaces, checkdoc-defun):
* calendar/calendar.el (calendar-print-day-of-year):
* calc/calcalg3.el (calc-curve-fit):
* calc/calcalg2.el (math-integral):
* calc/calc.el (calc-read-key-sequence, calc-version):
* calc/calc-mode.el (calc-set-simplify-mode):
* calc/calc-ext.el (calc-fancy-prefix): Fix buggy call to
`message'.
2007-12-07 D. Goel <deego3@gmail.com>
* progmodes/idlw-shell.el (idlwave-shell-display-line)
......
......@@ -1434,7 +1434,7 @@ calc-kill calc-kill-region calc-yank))))
(calc-set-command-flag 'no-align)
(setq prefix (set flag (not (symbol-value flag)))
prefix-arg n)
(message (if prefix msg "")))
(message "%s" (if prefix msg "")))
(and prefix
(not calc-is-keypad-press)
(if (boundp 'overriding-terminal-local-map)
......
......@@ -505,7 +505,7 @@
mode)
(and (not (eq calc-simplify-mode mode))
mode)))
(message (if (eq calc-simplify-mode mode)
(message "%s" (if (eq calc-simplify-mode mode)
msg
"Default simplifications enabled")))
......
......@@ -1228,7 +1228,7 @@ If nil, selections displayed but ignored.")
(let ((prompt2 (format "%s " (key-description (this-command-keys))))
(glob (current-global-map))
(loc (current-local-map)))
(or (input-pending-p) (message prompt))
(or (input-pending-p) (message "%s" prompt))
(let ((key (calc-read-key t)))
(calc-unread-command (cdr key))
(unwind-protect
......@@ -1244,7 +1244,7 @@ If nil, selections displayed but ignored.")
(defun calc-version ()
"Return version of this version of Calc."
(interactive)
(message (concat "Calc version " calc-version)))
(message "Calc version %s" calc-version))
(defun calc-mode ()
"Calculator major mode.
......
......@@ -746,7 +746,7 @@
(setq math-integ-msg (format
"Working... Integrating %s"
(math-format-flat-expr expr 0)))
(message math-integ-msg)))
(message "%s" math-integ-msg)))
(if math-cur-record
(setcar (cdr math-cur-record)
(if same-as-above (vector simp) 'busy))
......@@ -773,7 +773,7 @@
"simplification...\n")
(setq val (math-integral simp 'no t))))))))
(if (eq calc-display-working-message 'lots)
(message math-integ-msg)))
(message "%s" math-integ-msg)))
(setcar (cdr math-cur-record) (or val
(if (or math-enable-subst
(not math-any-substs))
......
......@@ -416,7 +416,7 @@
(calc-record (calc-normalize calc-fit-to-trail) "parm"))))
(when plot
(if (stringp plot)
(message plot)
(message "%s" plot)
(let ((calc-graph-no-auto-view t))
(calc-graph-delete t)
(calc-graph-add-curve
......
......@@ -3154,7 +3154,7 @@ Defaults to today's date if DATE is not given."
(defun calendar-print-day-of-year ()
"Show day number in year/days remaining in year for date under the cursor."
(interactive)
(message (calendar-day-of-year-string (calendar-cursor-to-date t))))
(message "%s" (calendar-day-of-year-string (calendar-cursor-to-date t))))
(defun calendar-set-mode-line (str)
"Set mode line to STR, centered, surrounded by dashes."
......
......@@ -978,7 +978,7 @@ Optional argument INTERACT permits more interactive fixing."
(if (not (interactive-p))
e
(if e
(message (checkdoc-error-text e))
(message "%s" (checkdoc-error-text e))
(checkdoc-show-diagnostics)
(message "Space Check: done.")))))
......@@ -1038,15 +1038,15 @@ space at the end of each line."
(end (save-excursion (end-of-defun) (point)))
(msg (checkdoc-this-string-valid)))
(if msg (if no-error
(message (checkdoc-error-text msg))
(message "%s" (checkdoc-error-text msg))
(error "%s" (checkdoc-error-text msg)))
(setq msg (checkdoc-message-text-search beg end))
(if msg (if no-error
(message (checkdoc-error-text msg))
(message "%s" (checkdoc-error-text msg))
(error "%s" (checkdoc-error-text msg)))
(setq msg (checkdoc-rogue-space-check-engine beg end))
(if msg (if no-error
(message (checkdoc-error-text msg))
(message "%s" (checkdoc-error-text msg))
(error "%s" (checkdoc-error-text msg))))))
(if (interactive-p) (message "Checkdoc: done."))))))
......
......@@ -3295,12 +3295,12 @@ With prefix argument, make it a temporary breakpoint."
(if (eq (1+ edebug-recursion-depth) (recursion-depth))
(progn
(setq edebug-execution-mode mode)
(message shortmsg)
(message "%s" shortmsg)
;; Continue execution
(exit-recursive-edit))
;; This is not terribly useful!!
(setq edebug-next-execution-mode mode)
(message msg)))
(message "%s" msg)))
(defalias 'edebug-step-through-mode 'edebug-step-mode)
......
......@@ -562,7 +562,7 @@ copyright notice is allowed."
(t
ret)))))
(if verbose
(message ret))
(message "%s" ret))
ret))
(defun lm-synopsis (&optional file showall)
......
......@@ -636,7 +636,7 @@
(regexp (format "^[^;]*%s[ \t\n]*[a-zA-Z---_']*[ \t\n)]" var-name))
(buf (find-file-noselect (substitute-in-file-name custom-file)))
)
(message message)
(message "%s" (or message ""))
(save-excursion
(set-buffer buf)
(goto-char (point-min))
......
2007-12-08 David Kastrup <dak@gnu.org>
* erc-stamp.el (erc-echo-timestamp):
* erc-lang.el (language):
* erc-backend.el (erc-server-connect): Fix buggy call to `message'.
2007-12-06 D. Goel <deego3@gmail.com>
* erc-match.el (erc-add-entry-to-list): Fix buggy call to `error'.
......
......@@ -515,7 +515,7 @@ We will store server variables in the buffer given by BUFFER."
(set-process-filter process 'erc-server-filter-function)
(set-process-buffer process buffer)))
(erc-log "\n\n\n********************************************\n")
(message (erc-format-message
(message "%s" (erc-format-message
'login ?n
(with-current-buffer buffer (erc-current-nick))))
;; wait with script loading until we receive a confirmation (first
......
......@@ -197,7 +197,7 @@ Normungsinstitut (ON), Postfach 130, A-1021 Vienna, Austria.")
"Return the language name for the ISO CODE."
(interactive (list (completing-read "ISO language code: "
iso-638-languages)))
(message (cdr (assoc code iso-638-languages))))
(message "%s" (cdr (assoc code iso-638-languages))))
(defun erc-cmd-LANG (language)
"Display the language name for the language code given by LANGUAGE."
......
......@@ -412,7 +412,7 @@ NOW is position of point currently."
(when erc-echo-timestamps
(let ((stamp (get-text-property now 'timestamp)))
(when stamp
(message (format-time-string erc-echo-timestamp-format
(message "%s" (format-time-string erc-echo-timestamp-format
stamp))))))
(provide 'erc-stamp)
......
2007-12-08 David Kastrup <dak@gnu.org>
* gnus-sum.el (gnus-summary-simplify-subject-query):
* ecomplete.el (ecomplete-display-matches): Fix buggy call to
`message'.
2007-12-07 Glenn Morris <rgm@gnu.org>
* gnus-art.el (article-make-date-line): Revert previous change.
......
......@@ -119,7 +119,7 @@
nil)
(if (not choose)
(progn
(message matches)
(message "%s" matches)
nil)
(setq highlight (ecomplete-highlight-match-line matches line))
(while (not (memq (setq command (read-event highlight)) '(? return)))
......
......@@ -4028,7 +4028,7 @@ If NO-DISPLAY, don't generate a summary buffer."
"Query where the respool algorithm would put this article."
(interactive)
(gnus-summary-select-article)
(message (gnus-general-simplify-subject (gnus-summary-article-subject))))
(message "%s" (gnus-general-simplify-subject (gnus-summary-article-subject))))
(defun gnus-gather-threads-by-subject (threads)
"Gather threads by looking at Subject headers."
......
......@@ -558,7 +558,7 @@ To get complete usage, invoke:
(while l
(setq count (1+ count))
(if (= (% count 10000) 0)
(message (format "%d entries" count)))
(message "%d entries" count))
(setq entry (skkdic-extract-conversion-data (car l)))
(set-nested-alist (car entry) (cdr entry) map)
(setq l (cdr l)))
......
......@@ -404,7 +404,7 @@ Optional arg EMPTY is message to print if no macros are defined."
(format " [%s]"
(format kmacro-counter-format-start kmacro-counter)))
(if z (substring m 0 (1- x)) m) (if z "..." "")))
(message (or empty "No keyboard macros defined"))))
(message "%s" (or empty "No keyboard macros defined"))))
(defun kmacro-repeat-on-last-key (keys)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment