2007-12-06 D. Goel <deego3@gmail.com>
+ * progmodes/vhdl-mode.el (vhdl-template-modify): Ditto.
+
+ * progmodes/idlw-shell.el (idlwave-shell-send-command): Ditto.
+ (idlwave-shell-display-line): Ditto.
+
+ * progmodes/ada-xref.el (ada-find-file): Ditto.
+ (ada-get-all-references): Ditto.
+ (ada-xref-find-in-modified-ali): Ditto.
+ (ada-find-in-src-path): Ditto.
+
* net/trampver.el (x): Ditto.
* mail/uce.el (uce-reply-to-uce): Ditto.
(let ((file (ada-find-src-file-in-dir filename)))
(if file
(find-file file)
- (error (concat filename " not found in src_dir")))))
+ (error "%s" (concat filename " not found in src_dir")))))
;; ----- Utilities -------------------------------------------------
;; No more idea to find the declaration. Give up
(progn
(kill-buffer ali-buffer)
- (error (concat "No declaration of " (ada-name-of identlist)
+ (error "%s" (concat "No declaration of " (ada-name-of identlist)
" found."))
)))
)
;; none => error
((= len 0)
(kill-buffer (current-buffer))
- (error (concat "No declaration of "
+ (error "%s" (concat "No declaration of "
(ada-name-of identlist)
" recorded in .ali file")))
(string-to-number (nth 2 (car list)))
identlist
other-frame)
- (error (concat (caar list) " not found in src_dir")))
+ (error "%s" (concat (caar list) " not found in src_dir")))
(message "This is only a (good) guess at the cross-reference.")
)
(if (or (not (setq buf (get-buffer (idlwave-shell-buffer))))
(not (setq proc (get-buffer-process buf))))
(if (not idlwave-shell-automatic-start)
- (error
+ (error "%s"
(substitute-command-keys
"You need to first start an IDL shell with \\[idlwave-shell]"))
(idlwave-shell-recenter-shell-window)
(if (not (idlwave-shell-valid-frame frame))
;; fixme: errors are dangerous in shell filters. but i think i
;; have never encountered this one.
- (error (concat "invalid frame - unable to access file: " (car frame)))
+ (error "%s" (concat "invalid frame - unable to access file: " (car frame)))
;;;
;;; buffer : the buffer to display a line in.
;;; select-shell: current buffer is the shell.
(progn (delete-region (point) (progn (end-of-line) (point)))
(vhdl-template-insert-date))
(unless noerror
- (error (concat "ERROR: Modification date prefix string \""
+ (error "%s" (concat "ERROR: Modification date prefix string \""
vhdl-modify-date-prefix-string "\" not found")))))))
(defun vhdl-template-modify-noerror ()