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> 2007-12-07 D. Goel <deego3@gmail.com>
* progmodes/idlw-shell.el (idlwave-shell-display-line) * progmodes/idlw-shell.el (idlwave-shell-display-line)
......
...@@ -1434,7 +1434,7 @@ calc-kill calc-kill-region calc-yank)))) ...@@ -1434,7 +1434,7 @@ calc-kill calc-kill-region calc-yank))))
(calc-set-command-flag 'no-align) (calc-set-command-flag 'no-align)
(setq prefix (set flag (not (symbol-value flag))) (setq prefix (set flag (not (symbol-value flag)))
prefix-arg n) prefix-arg n)
(message (if prefix msg ""))) (message "%s" (if prefix msg "")))
(and prefix (and prefix
(not calc-is-keypad-press) (not calc-is-keypad-press)
(if (boundp 'overriding-terminal-local-map) (if (boundp 'overriding-terminal-local-map)
......
...@@ -505,7 +505,7 @@ ...@@ -505,7 +505,7 @@
mode) mode)
(and (not (eq calc-simplify-mode mode)) (and (not (eq calc-simplify-mode mode))
mode))) mode)))
(message (if (eq calc-simplify-mode mode) (message "%s" (if (eq calc-simplify-mode mode)
msg msg
"Default simplifications enabled"))) "Default simplifications enabled")))
......
...@@ -1228,7 +1228,7 @@ If nil, selections displayed but ignored.") ...@@ -1228,7 +1228,7 @@ If nil, selections displayed but ignored.")
(let ((prompt2 (format "%s " (key-description (this-command-keys)))) (let ((prompt2 (format "%s " (key-description (this-command-keys))))
(glob (current-global-map)) (glob (current-global-map))
(loc (current-local-map))) (loc (current-local-map)))
(or (input-pending-p) (message prompt)) (or (input-pending-p) (message "%s" prompt))
(let ((key (calc-read-key t))) (let ((key (calc-read-key t)))
(calc-unread-command (cdr key)) (calc-unread-command (cdr key))
(unwind-protect (unwind-protect
...@@ -1244,7 +1244,7 @@ If nil, selections displayed but ignored.") ...@@ -1244,7 +1244,7 @@ If nil, selections displayed but ignored.")
(defun calc-version () (defun calc-version ()
"Return version of this version of Calc." "Return version of this version of Calc."
(interactive) (interactive)
(message (concat "Calc version " calc-version))) (message "Calc version %s" calc-version))
(defun calc-mode () (defun calc-mode ()
"Calculator major mode. "Calculator major mode.
......
...@@ -746,7 +746,7 @@ ...@@ -746,7 +746,7 @@
(setq math-integ-msg (format (setq math-integ-msg (format
"Working... Integrating %s" "Working... Integrating %s"
(math-format-flat-expr expr 0))) (math-format-flat-expr expr 0)))
(message math-integ-msg))) (message "%s" math-integ-msg)))
(if math-cur-record (if math-cur-record
(setcar (cdr math-cur-record) (setcar (cdr math-cur-record)
(if same-as-above (vector simp) 'busy)) (if same-as-above (vector simp) 'busy))
...@@ -773,7 +773,7 @@ ...@@ -773,7 +773,7 @@
"simplification...\n") "simplification...\n")
(setq val (math-integral simp 'no t)))))))) (setq val (math-integral simp 'no t))))))))
(if (eq calc-display-working-message 'lots) (if (eq calc-display-working-message 'lots)
(message math-integ-msg))) (message "%s" math-integ-msg)))
(setcar (cdr math-cur-record) (or val (setcar (cdr math-cur-record) (or val
(if (or math-enable-subst (if (or math-enable-subst
(not math-any-substs)) (not math-any-substs))
......
...@@ -416,7 +416,7 @@ ...@@ -416,7 +416,7 @@
(calc-record (calc-normalize calc-fit-to-trail) "parm")))) (calc-record (calc-normalize calc-fit-to-trail) "parm"))))
(when plot (when plot
(if (stringp plot) (if (stringp plot)
(message plot) (message "%s" plot)
(let ((calc-graph-no-auto-view t)) (let ((calc-graph-no-auto-view t))
(calc-graph-delete t) (calc-graph-delete t)
(calc-graph-add-curve (calc-graph-add-curve
......
...@@ -3154,7 +3154,7 @@ Defaults to today's date if DATE is not given." ...@@ -3154,7 +3154,7 @@ Defaults to today's date if DATE is not given."
(defun calendar-print-day-of-year () (defun calendar-print-day-of-year ()
"Show day number in year/days remaining in year for date under the cursor." "Show day number in year/days remaining in year for date under the cursor."
(interactive) (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) (defun calendar-set-mode-line (str)
"Set mode line to STR, centered, surrounded by dashes." "Set mode line to STR, centered, surrounded by dashes."
......
...@@ -978,7 +978,7 @@ Optional argument INTERACT permits more interactive fixing." ...@@ -978,7 +978,7 @@ Optional argument INTERACT permits more interactive fixing."
(if (not (interactive-p)) (if (not (interactive-p))
e e
(if e (if e
(message (checkdoc-error-text e)) (message "%s" (checkdoc-error-text e))
(checkdoc-show-diagnostics) (checkdoc-show-diagnostics)
(message "Space Check: done."))))) (message "Space Check: done.")))))
...@@ -1038,15 +1038,15 @@ space at the end of each line." ...@@ -1038,15 +1038,15 @@ space at the end of each line."
(end (save-excursion (end-of-defun) (point))) (end (save-excursion (end-of-defun) (point)))
(msg (checkdoc-this-string-valid))) (msg (checkdoc-this-string-valid)))
(if msg (if no-error (if msg (if no-error
(message (checkdoc-error-text msg)) (message "%s" (checkdoc-error-text msg))
(error "%s" (checkdoc-error-text msg))) (error "%s" (checkdoc-error-text msg)))
(setq msg (checkdoc-message-text-search beg end)) (setq msg (checkdoc-message-text-search beg end))
(if msg (if no-error (if msg (if no-error
(message (checkdoc-error-text msg)) (message "%s" (checkdoc-error-text msg))
(error "%s" (checkdoc-error-text msg))) (error "%s" (checkdoc-error-text msg)))
(setq msg (checkdoc-rogue-space-check-engine beg end)) (setq msg (checkdoc-rogue-space-check-engine beg end))
(if msg (if no-error (if msg (if no-error
(message (checkdoc-error-text msg)) (message "%s" (checkdoc-error-text msg))
(error "%s" (checkdoc-error-text msg)))))) (error "%s" (checkdoc-error-text msg))))))
(if (interactive-p) (message "Checkdoc: done.")))))) (if (interactive-p) (message "Checkdoc: done."))))))
......
...@@ -3295,12 +3295,12 @@ With prefix argument, make it a temporary breakpoint." ...@@ -3295,12 +3295,12 @@ With prefix argument, make it a temporary breakpoint."
(if (eq (1+ edebug-recursion-depth) (recursion-depth)) (if (eq (1+ edebug-recursion-depth) (recursion-depth))
(progn (progn
(setq edebug-execution-mode mode) (setq edebug-execution-mode mode)
(message shortmsg) (message "%s" shortmsg)
;; Continue execution ;; Continue execution
(exit-recursive-edit)) (exit-recursive-edit))
;; This is not terribly useful!! ;; This is not terribly useful!!
(setq edebug-next-execution-mode mode) (setq edebug-next-execution-mode mode)
(message msg))) (message "%s" msg)))
(defalias 'edebug-step-through-mode 'edebug-step-mode) (defalias 'edebug-step-through-mode 'edebug-step-mode)
......
...@@ -562,7 +562,7 @@ copyright notice is allowed." ...@@ -562,7 +562,7 @@ copyright notice is allowed."
(t (t
ret))))) ret)))))
(if verbose (if verbose
(message ret)) (message "%s" ret))
ret)) ret))
(defun lm-synopsis (&optional file showall) (defun lm-synopsis (&optional file showall)
......
...@@ -636,7 +636,7 @@ ...@@ -636,7 +636,7 @@
(regexp (format "^[^;]*%s[ \t\n]*[a-zA-Z---_']*[ \t\n)]" var-name)) (regexp (format "^[^;]*%s[ \t\n]*[a-zA-Z---_']*[ \t\n)]" var-name))
(buf (find-file-noselect (substitute-in-file-name custom-file))) (buf (find-file-noselect (substitute-in-file-name custom-file)))
) )
(message message) (message "%s" (or message ""))
(save-excursion (save-excursion
(set-buffer buf) (set-buffer buf)
(goto-char (point-min)) (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> 2007-12-06 D. Goel <deego3@gmail.com>
* erc-match.el (erc-add-entry-to-list): Fix buggy call to `error'. * 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." ...@@ -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-filter process 'erc-server-filter-function)
(set-process-buffer process buffer))) (set-process-buffer process buffer)))
(erc-log "\n\n\n********************************************\n") (erc-log "\n\n\n********************************************\n")
(message (erc-format-message (message "%s" (erc-format-message
'login ?n 'login ?n
(with-current-buffer buffer (erc-current-nick)))) (with-current-buffer buffer (erc-current-nick))))
;; wait with script loading until we receive a confirmation (first ;; wait with script loading until we receive a confirmation (first
......
...@@ -197,7 +197,7 @@ Normungsinstitut (ON), Postfach 130, A-1021 Vienna, Austria.") ...@@ -197,7 +197,7 @@ Normungsinstitut (ON), Postfach 130, A-1021 Vienna, Austria.")
"Return the language name for the ISO CODE." "Return the language name for the ISO CODE."
(interactive (list (completing-read "ISO language code: " (interactive (list (completing-read "ISO language code: "
iso-638-languages))) iso-638-languages)))
(message (cdr (assoc code iso-638-languages)))) (message "%s" (cdr (assoc code iso-638-languages))))
(defun erc-cmd-LANG (language) (defun erc-cmd-LANG (language)
"Display the language name for the language code given by LANGUAGE." "Display the language name for the language code given by LANGUAGE."
......
...@@ -412,8 +412,8 @@ NOW is position of point currently." ...@@ -412,8 +412,8 @@ NOW is position of point currently."
(when erc-echo-timestamps (when erc-echo-timestamps
(let ((stamp (get-text-property now 'timestamp))) (let ((stamp (get-text-property now 'timestamp)))
(when stamp (when stamp
(message (format-time-string erc-echo-timestamp-format (message "%s" (format-time-string erc-echo-timestamp-format
stamp)))))) stamp))))))
(provide 'erc-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> 2007-12-07 Glenn Morris <rgm@gnu.org>
* gnus-art.el (article-make-date-line): Revert previous change. * gnus-art.el (article-make-date-line): Revert previous change.
......
...@@ -119,7 +119,7 @@ ...@@ -119,7 +119,7 @@
nil) nil)
(if (not choose) (if (not choose)
(progn (progn
(message matches) (message "%s" matches)
nil) nil)
(setq highlight (ecomplete-highlight-match-line matches line)) (setq highlight (ecomplete-highlight-match-line matches line))
(while (not (memq (setq command (read-event highlight)) '(? return))) (while (not (memq (setq command (read-event highlight)) '(? return)))
......
...@@ -4028,7 +4028,7 @@ If NO-DISPLAY, don't generate a summary buffer." ...@@ -4028,7 +4028,7 @@ If NO-DISPLAY, don't generate a summary buffer."
"Query where the respool algorithm would put this article." "Query where the respool algorithm would put this article."
(interactive) (interactive)
(gnus-summary-select-article) (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) (defun gnus-gather-threads-by-subject (threads)
"Gather threads by looking at Subject headers." "Gather threads by looking at Subject headers."
......
...@@ -558,7 +558,7 @@ To get complete usage, invoke: ...@@ -558,7 +558,7 @@ To get complete usage, invoke:
(while l (while l
(setq count (1+ count)) (setq count (1+ count))
(if (= (% count 10000) 0) (if (= (% count 10000) 0)
(message (format "%d entries" count))) (message "%d entries" count))
(setq entry (skkdic-extract-conversion-data (car l))) (setq entry (skkdic-extract-conversion-data (car l)))
(set-nested-alist (car entry) (cdr entry) map) (set-nested-alist (car entry) (cdr entry) map)
(setq l (cdr l))) (setq l (cdr l)))
......
...@@ -404,7 +404,7 @@ Optional arg EMPTY is message to print if no macros are defined." ...@@ -404,7 +404,7 @@ Optional arg EMPTY is message to print if no macros are defined."
(format " [%s]" (format " [%s]"
(format kmacro-counter-format-start kmacro-counter))) (format kmacro-counter-format-start kmacro-counter)))
(if z (substring m 0 (1- x)) m) (if z "..." ""))) (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) (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