mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(ada-create-case-exception, ada-create-case-exception-substring,

Browse source 
ada-make-subprogram-body): Follow error conventions.
This commit is contained in:
Juanma Barranquero 2005-06-14 15:23:26 +00:00
parent ff12e78d4b
commit eb4ed27f9a
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/progmodes/ada-mode.el
View file

@ -1462,7 +1462,7 @@ The standard casing rules will no longer apply to this word."
(setq file-name (car ada-case-exception-file)))
(t
(error (concat "No exception file specified. "
"See variable ada-case-exception-file."))))
"See variable ada-case-exception-file"))))
(set-syntax-table ada-mode-symbol-syntax-table)
(unless word
@ -1501,7 +1501,7 @@ word itself has a special casing."
(car ada-case-exception-file))
(t
(error (concat "No exception file specified. "
"See variable ada-case-exception-file."))))))
"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,7 +5398,7 @@ This function typically is to be hooked into `ff-file-created-hooks'."
(setq body-file (ada-get-body-name))
(if body-file
(find-file body-file)
(error "No body found for the package. Create it first."))
(error "No body found for the package. Create it first"))
(save-restriction
(widen)