(ada-save-exceptions-to-file file-name)
- (message (concat "Defining " word " as a casing exception"))))
+ (message "%s" (concat "Defining " word " as a casing exception"))))
(defun ada-case-read-exceptions-from-file (file-name)
"Read the content of the casing exception file FILE-NAME."
(if (equal (cdr cur-indent) '(0))
(message (concat "same indentation as line " (number-to-string line)))
- (message (mapconcat (lambda(x)
- (cond
- ((symbolp x)
- (symbol-name x))
- ((numberp x)
- (number-to-string x))
- ((listp x)
- (concat "- " (symbol-name (cadr x))))
- ))
- (cdr cur-indent)
- " + "))))
+ (message "%s" (mapconcat (lambda(x)
+ (cond
+ ((symbolp x)
+ (symbol-name x))
+ ((numberp x)
+ (number-to-string x))
+ ((listp x)
+ (concat "- " (symbol-name (cadr x))))
+ ))
+ (cdr cur-indent)
+ " + "))))
(save-excursion
(goto-char (car cur-indent))
(sit-for 1))))
(while command-line-args-left
(let ((source (car command-line-args-left)))
- (message (concat "formating " source))
+ (message "Formating %s" source)
(find-file source)
(ada-indent-region (point-min) (point-max))
(ada-adjust-case-buffer)
;; Check if there is an environment variable with the same name
(if (null value)
(if (not (setq value (getenv name)))
- (message (concat "No environment variable " name " found"))))
+ (message "%s" (concat "No environment variable " name " found"))))
(cond
((null value)
(format "\n#line %d \"%s\"\n" startlinenum filename)))
;; Call the preprocessor.
- (if display (message mymsg))
+ (if display (message "%s" mymsg))
(setq exit-status
(call-process-region 1 (point-max)
shell-file-name
t (list t tempname) nil "-c"
cppcommand))
- (if display (message (concat mymsg "done")))
+ (if display (message "%s" (concat mymsg "done")))
(if (= (buffer-size) 0)
;; Empty output is normal after a fatal error.
(insert "\nPreprocessor produced no output\n")
;; Author: Vinicius Jose Latorre <viniciusjl@ig.com.br>
;; Maintainer: Vinicius Jose Latorre <viniciusjl@ig.com.br>
-;; Time-stamp: <2004/11/19 22:30:34 vinicius>
+;; Time-stamp: <2005-09-18 07:27:20 deego>
;; Keywords: wp, ebnf, PostScript
;; Version: 4.2
;; X-URL: http://www.cpqd.com.br/~vinicius/emacs/
(goto-char the-point)
(if ebnf-stop-on-error
(error error-msg)
- (message error-msg)))
+ (message "%s" error-msg)))
;; generated output OK
(gen-func
nil)
are the string substitutions (see `format')."
(if (<= level flymake-log-level)
(let* ((msg (apply 'format text args)))
- (message msg)
+ (message "%s" msg)
;;(with-temp-buffer
;; (insert msg)
;; (insert "\n")
;; Anything else means the input is invalid.
(t
- (message (format "Error parsing file %s." file))
+ (message "Error parsing file %s." file)
(throw 'abort nil))))))
l))
(idlwave-shell-display-line
(nth idlwave-shell-calling-stack-index stack) nil
(unless idlwave-shell-electric-debug-mode 'no-debug))
- (message (or message
+ (message "%s" (or message
(format "In routine %s (stack level %d)"
idlwave-shell-calling-stack-routine
(- idlwave-shell-calling-stack-index))))))
;; Call etags
(if (not (string-match "^[ \\t]*$" item))
(progn
- (message (concat "Tagging " item "..."))
+ (message "%s" (concat "Tagging " item "..."))
(setq errbuf (get-buffer-create "*idltags-error*"))
(setq status (+ status
(if (eq 0 (call-process
message-base
(not (string= idlwave-library-catalog-libname
old-libname)))
- (message (concat message-base
+ (message "%s" (concat message-base
idlwave-library-catalog-libname))
(setq old-libname idlwave-library-catalog-libname))
(when idlwave-library-catalog-routines
(current-column))
(error
(ding)
- (message (error-message-string err))
+ (message "%s" (error-message-string err))
0))
(let (target)
(if (not (re-search-backward "[^ \t\n\r\f][ \t\n\r\f]*\\=" nil t))
(if (numberp blinkpos)
(save-excursion
(goto-char blinkpos)
- (message msg)
+ (if msg (message "%s" msg) (message nil))
(sit-for blink-matching-delay))
- (message msg)))
+ (if message (message "%s" msg) (message nil))))
(defun sh-show-indent (arg)
"Show the how the currently line would be indented.
(curr-indent (current-indentation))
val msg)
(if (stringp var)
- (message (setq msg var))
+ (message "%s" (setq msg var))
(setq val (sh-calculate-indent info))
(if (eq curr-indent val)
(if (and info (listp (car info))
(eq (car (car info)) t))
(sh-blink (nth 1 (car info)) msg)
- (message msg)))
- (message msg))
+ (message "%s" msg)))
+ (message "%s" msg))
))
(defun sh-set-indent ()
(var (sh-get-indent-var-for-line info))
val old-val indent-val)
(if (stringp var)
- (message (format "Cannot set indent - %s" var))
+ (message "Cannot set indent - %s" var)
(setq old-val (symbol-value var))
(setq val (sh-read-variable var))
(condition-case nil
(curr-indent (current-indentation)))
(cond
((stringp var)
- (message (format "Cannot learn line - %s" var)))
+ (message "Cannot learn line - %s" var))
((eq var 'sh-indent-comment)
;; This is arbitrary...
;; - if curr-indent is 0, set to curr-indent
(defun vhdl-warning (string &optional nobeep)
"Print out warning STRING and beep."
- (message (concat "WARNING: " string))
+ (message "WARNING: %s" string)
(unless (or nobeep noninteractive) (beep)))
(defun vhdl-print-warnings ()
(let ((no-warnings (length vhdl-warnings)))
(setq vhdl-warnings (nreverse vhdl-warnings))
(while vhdl-warnings
- (message (concat "WARNING: " (car vhdl-warnings)))
+ (message "WARNING: %s" (car vhdl-warnings))
(setq vhdl-warnings (cdr vhdl-warnings)))
(beep)
(when (> no-warnings 1)
(vhdl-template-invoked-by-hook t))
(let ((caught (catch 'abort
(funcall func))))
- (when (stringp caught) (message caught)))
+ (when (stringp caught) (message "%s" caught)))
(when (= invoke-char ?-) (setq abbrev-start-location (point)))
;; delete CR which is still in event queue
(if (fboundp 'enqueue-eval-event)
(defun vhdl-template-insert-fun (fun)
"Call FUN to insert a built-in template."
(let ((caught (catch 'abort (when fun (funcall fun)))))
- (when (stringp caught) (message caught))))
+ (when (stringp caught) (message "%s" caught))))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(setq arch-buffer (current-buffer))
(when ent-buffer (set-buffer ent-buffer) (save-buffer))
(set-buffer arch-buffer) (save-buffer))
- (message
+ (message "%s"
(concat (format "Pasting port as testbench \"%s(%s)\"...done"
ent-name arch-name)
(and ent-file-name
(setq arch-buffer (current-buffer))
(when ent-buffer (set-buffer ent-buffer) (save-buffer))
(set-buffer arch-buffer) (save-buffer)
- (message
+ (message "%s"
(concat (format "Creating component \"%s(%s)\"...done" ent-name arch-name)
(and ent-file-name
(format "\n File created: \"%s\"" ent-file-name))
(vhdl-template-footer)
(vhdl-comment-display-line) (insert "\n"))
(save-buffer))
- (message
+ (message "%s"
(concat (format "Generating configuration \"%s\"...done" conf-name)
(and conf-file-name
(format "\n File created: \"%s\"" conf-file-name))))))