[Top][All Lists]
[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)
- [Emacs-diffs] Changes to emacs/lisp/progmodes/ada-mode.el,
Juanma Barranquero <=