Mercurial > emacs
comparison lisp/progmodes/ada-stmt.el @ 49598:0d8b17d428b5
Trailing whitepace deleted.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Tue, 04 Feb 2003 13:24:35 +0000 |
| parents | 1b89f0ef4d72 |
| children | fbec4e6f73c8 d7ddb3e565de |
comparison
equal
deleted
inserted
replaced
| 49597:e88404e8f2cf | 49598:0d8b17d428b5 |
|---|---|
| 27 ;; Introduced statement.el for smaller code and user configurability. | 27 ;; Introduced statement.el for smaller code and user configurability. |
| 28 ;; | 28 ;; |
| 29 ;; Nov 1993. Rolf Ebert <ebert@enpc.fr> (RE) Moved the | 29 ;; Nov 1993. Rolf Ebert <ebert@enpc.fr> (RE) Moved the |
| 30 ;; skeleton generation into this separate file. The code still is | 30 ;; skeleton generation into this separate file. The code still is |
| 31 ;; essentially written by DP | 31 ;; essentially written by DP |
| 32 ;; | 32 ;; |
| 33 ;; Adapted Jun 1994. Markus Heritsch | 33 ;; Adapted Jun 1994. Markus Heritsch |
| 34 ;; <Markus.Heritsch@studbox.uni-stuttgart.de> (MH) | 34 ;; <Markus.Heritsch@studbox.uni-stuttgart.de> (MH) |
| 35 ;; added menu bar support for templates | 35 ;; added menu bar support for templates |
| 36 ;; | 36 ;; |
| 37 ;; 1994/12/02 Christian Egli <cegli@hcsd.hac.com> | 37 ;; 1994/12/02 Christian Egli <cegli@hcsd.hac.com> |
| 430 | 430 |
| 431 ;(define-skeleton ada-use | 431 ;(define-skeleton ada-use |
| 432 ; "Inserts a use clause, prompting for the list of packages used." | 432 ; "Inserts a use clause, prompting for the list of packages used." |
| 433 ; "[list of packages used]: " | 433 ; "[list of packages used]: " |
| 434 ; "use " str ?\;) | 434 ; "use " str ?\;) |
| 435 | 435 |
| 436 | 436 |
| 437 (define-skeleton ada-record | 437 (define-skeleton ada-record |
| 438 "Insert a skeleton record type declaration." | 438 "Insert a skeleton record type declaration." |
| 439 () | 439 () |
| 440 "record" \n | 440 "record" \n |
| 473 "[task name]: " | 473 "[task name]: " |
| 474 "task " str | 474 "task " str |
| 475 " (" ("[discriminant]: " str "; ") ") is\n" | 475 " (" ("[discriminant]: " str "; ") ") is\n" |
| 476 > "entry " _ \n | 476 > "entry " _ \n |
| 477 <"end " str ";" ) | 477 <"end " str ";" ) |
| 478 | 478 |
| 479 | 479 |
| 480 (define-skeleton ada-get-param1 | 480 (define-skeleton ada-get-param1 |
| 481 "Prompt for arguments and if any enclose them in brackets." | 481 "Prompt for arguments and if any enclose them in brackets." |
| 482 () | 482 () |
| 483 ("[parameter_specification]: " str "; " ) & -2 & ")") | 483 ("[parameter_specification]: " str "; " ) & -2 & ")") |
| 554 (define-skeleton ada-or-delay | 554 (define-skeleton ada-or-delay |
| 555 "Insert a delay statement, prompting for the delay value." | 555 "Insert a delay statement, prompting for the delay value." |
| 556 "[delay value]: " | 556 "[delay value]: " |
| 557 < "or\n" | 557 < "or\n" |
| 558 > "delay " str ";") | 558 > "delay " str ";") |
| 559 | 559 |
| 560 | 560 |
| 561 (define-skeleton ada-or-terminate | 561 (define-skeleton ada-or-terminate |
| 562 "Insert a terminate statement." | 562 "Insert a terminate statement." |
| 563 () | 563 () |
| 564 < "or\n" | 564 < "or\n" |