emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

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


From: Juanma Barranquero
Subject: [Emacs-diffs] Changes to emacs/lisp/progmodes/ada-mode.el
Date: Tue, 14 Jun 2005 11:23:26 -0400

Index: emacs/lisp/progmodes/ada-mode.el
diff -c emacs/lisp/progmodes/ada-mode.el:1.63 
emacs/lisp/progmodes/ada-mode.el:1.64
*** emacs/lisp/progmodes/ada-mode.el:1.63       Thu May 26 16:39:27 2005
--- emacs/lisp/progmodes/ada-mode.el    Tue Jun 14 15:23:26 2005
***************
*** 1462,1468 ****
             (setq file-name (car ada-case-exception-file)))
            (t
             (error (concat "No exception file specified. "
!                         "See variable ada-case-exception-file."))))
  
      (set-syntax-table ada-mode-symbol-syntax-table)
      (unless word
--- 1462,1468 ----
             (setq file-name (car ada-case-exception-file)))
            (t
             (error (concat "No exception file specified. "
!                         "See variable ada-case-exception-file"))))
  
      (set-syntax-table ada-mode-symbol-syntax-table)
      (unless word
***************
*** 1501,1507 ****
                (car ada-case-exception-file))
               (t
                (error (concat "No exception file specified. "
!                              "See variable ada-case-exception-file."))))))
  
      ;;  Find the substring to define as an exception. Order is: the parameter,
      ;;  if any, or the selected region, or the word under the cursor
--- 1501,1507 ----
                (car ada-case-exception-file))
               (t
                (error (concat "No exception file specified. "
!                              "See variable ada-case-exception-file"))))))
  
      ;;  Find the substring to define as an exception. Order is: the parameter,
      ;;  if any, or the selected region, or the word under the cursor
***************
*** 5398,5404 ****
            (setq body-file (ada-get-body-name))
            (if body-file
                (find-file body-file)
!             (error "No body found for the package. Create it first."))
  
            (save-restriction
              (widen)
--- 5398,5404 ----
            (setq body-file (ada-get-body-name))
            (if body-file
                (find-file body-file)
!             (error "No body found for the package. Create it first"))
  
            (save-restriction
              (widen)




reply via email to

[Prev in Thread] Current Thread [Next in Thread]