[Emacs-diffs] Changes to emacs/lisp/progmodes/ada-xref.el,v

[D. Goel]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     D. Goel <deego> 07/12/08 00:57:24

Index: progmodes/ada-xref.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/progmodes/ada-xref.el,v
retrieving revision 1.39
retrieving revision 1.40
diff -u -b -r1.39 -r1.40
--- progmodes/ada-xref.el       6 Dec 2007 18:36:46 -0000       1.39
+++ progmodes/ada-xref.el       8 Dec 2007 00:57:23 -0000       1.40
@@ -564,7 +564,7 @@
   (let ((file (ada-find-src-file-in-dir filename)))
     (if file
        (find-file file)
-      (error "%s" (concat filename " not found in src_dir")))))
+      (error "%s not found in src_dir" filename))))
 
 
 ;; ----- Utilities -------------------------------------------------
@@ -1722,8 +1722,8 @@
          ;; No more idea to find the declaration.  Give up
          (progn
            (kill-buffer ali-buffer)
-           (error "%s" (concat "No declaration of " (ada-name-of identlist)
-                          " found."))
+
+           (error "No declaration of %s found." (ada-name-of identlist))
            )))
       )
 
@@ -1808,10 +1808,8 @@
           ;; none => error
           ((= len 0)
            (kill-buffer (current-buffer))
-           (error "%s" (concat "No declaration of "
-                          (ada-name-of identlist)
-                          " recorded in .ali file")))
-
+           (error "No declaration of %s recorded in .ali file"
+                  (ada-name-of identlist)))
           ;; one => should be the right one
           ((= len 1)
            (goto-line (caar declist)))
@@ -2011,7 +2009,7 @@
                                  (string-to-number (nth 2 (car list)))
                                  identlist
                                  other-frame)
-       (error "%s" (concat (caar list) " not found in src_dir")))
+       (error "%s not found in src_dir"  (caar list)))
       (message "This is only a (good) guess at the cross-reference.")
       )