[Emacs-diffs] Changes to emacs/lisp/progmodes/ada-mode.el

[D . Goel]

Index: emacs/lisp/progmodes/ada-mode.el
diff -c emacs/lisp/progmodes/ada-mode.el:1.70 
emacs/lisp/progmodes/ada-mode.el:1.71
*** emacs/lisp/progmodes/ada-mode.el:1.70       Tue Aug 30 10:27:54 2005
--- emacs/lisp/progmodes/ada-mode.el    Sun Sep 18 12:31:27 2005
***************
*** 1539,1545 ****
  
      (ada-save-exceptions-to-file file-name)
  
!     (message (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."
--- 1539,1545 ----
  
      (ada-save-exceptions-to-file file-name)
  
!     (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."
***************
*** 2191,2207 ****
  
        (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)
!                           " + "))))
      (save-excursion
        (goto-char (car cur-indent))
        (sit-for 1))))
--- 2191,2207 ----
  
        (if (equal (cdr cur-indent) '(0))
          (message (concat "same indentation as line " (number-to-string line)))
!       (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))))
***************
*** 2214,2220 ****
  
    (while command-line-args-left
      (let ((source (car command-line-args-left)))
!       (message (concat "formating " source))
        (find-file source)
        (ada-indent-region (point-min) (point-max))
        (ada-adjust-case-buffer)
--- 2214,2220 ----
  
    (while command-line-args-left
      (let ((source (car command-line-args-left)))
!       (message "Formating %s" source)
        (find-file source)
        (ada-indent-region (point-min) (point-max))
        (ada-adjust-case-buffer)