/[emacs]/emacs/lisp/progmodes/ada-stmt.el
ViewVC logotype

Diff of /emacs/lisp/progmodes/ada-stmt.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.13 by rost, Thu Oct 3 18:20:27 2002 UTC revision 1.14 by lektu, Tue Feb 4 13:24:34 2003 UTC
# Line 29  Line 29 
29  ;; Nov 1993. Rolf Ebert <ebert@enpc.fr> (RE) Moved the  ;; Nov 1993. Rolf Ebert <ebert@enpc.fr> (RE) Moved the
30  ;; skeleton generation into this separate file. The code still is  ;; skeleton generation into this separate file. The code still is
31  ;; essentially written by DP  ;; essentially written by DP
32  ;;  ;;
33  ;; Adapted Jun 1994. Markus Heritsch  ;; Adapted Jun 1994. Markus Heritsch
34  ;; <Markus.Heritsch@studbox.uni-stuttgart.de> (MH)  ;; <Markus.Heritsch@studbox.uni-stuttgart.de> (MH)
35  ;; added menu bar support for templates  ;; added menu bar support for templates
# Line 432  Invoke right after `ada-function-spec' o Line 432  Invoke right after `ada-function-spec' o
432  ;  "Inserts a use clause, prompting for the list of packages used."  ;  "Inserts a use clause, prompting for the list of packages used."
433  ;  "[list of packages used]: "  ;  "[list of packages used]: "
434  ;  "use " str ?\;)  ;  "use " str ?\;)
435    
436    
437  (define-skeleton ada-record  (define-skeleton ada-record
438    "Insert a skeleton record type declaration."    "Insert a skeleton record type declaration."
# Line 475  Invoke right after `ada-function-spec' o Line 475  Invoke right after `ada-function-spec' o
475    " (" ("[discriminant]: " str "; ") ") is\n"    " (" ("[discriminant]: " str "; ") ") is\n"
476    > "entry " _ \n    > "entry " _ \n
477    <"end " str ";" )    <"end " str ";" )
478      
479    
480  (define-skeleton ada-get-param1  (define-skeleton ada-get-param1
481    "Prompt for arguments and if any enclose them in brackets."    "Prompt for arguments and if any enclose them in brackets."
# Line 556  Invoke right after `ada-function-spec' o Line 556  Invoke right after `ada-function-spec' o
556    "[delay value]: "    "[delay value]: "
557    < "or\n"    < "or\n"
558    > "delay " str ";")    > "delay " str ";")
559      
560    
561  (define-skeleton ada-or-terminate  (define-skeleton ada-or-terminate
562    "Insert a terminate statement."    "Insert a terminate statement."

Legend:
Removed from v.1.13  
changed lines
  Added in v.1.14

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26