comparison lisp/progmodes/ada-stmt.el @ 26226:b63d041c9108

Changed format of years in copyright notices.

26225:91cb7b3bae3c

;;; ada-stmt.el - An extension to Ada mode for inserting statement templates.

;; Copyright (C) 1987, 1993, 1994, 1996, 1997 Free Software Foundation, Inc.

;; Ada Core Technologies's version:   $Revision: 1.1 $ 

;; Authors: Daniel Pfeiffer, Markus Heritsch, Rolf Ebert <[e-mail]>
;; Maintainer: Rolf Ebert <[e-mail]>
;; Keywords: languages, ada
;; Rolf Ebert's version: 2.26

;;
;; 1994/12/02  Christian Egli <[e-mail]>
;; General cleanup and bug fixes.
;;
;; 1995/12/20  John Hutchison <[e-mail]>
;; made it work with skeleton.el from emacs-19.30. Several
;; enhancements and bug fixes.

;; BUGS:
;;;> I have the following suggestions for the function template: 1) I
;;;> don't want it automatically assigning it a name for the return variable. I

;;; ---- statement skeletons ------------------------------------------

(define-skeleton ada-array
  "Insert array type definition.
Uses the minibuffer to prompt for component type and index subtypes."
  ()
  "array (" ("index definition: " str ", " ) -2 ") of " _ ?\;)


(define-skeleton ada-case

26226:b63d041c9108

;;; ada-stmt.el - An extension to Ada mode for inserting statement templates.

;; Copyright(C) 1987, 1993-1994, 1996-1998, 1999 Free Software Foundation, Inc.

;; Ada Core Technologies's version:   $Revision: 1.10 $ 

;; Authors: Daniel Pfeiffer, Markus Heritsch, Rolf Ebert <[e-mail]>
;; Maintainer: Rolf Ebert <[e-mail]>
;; Keywords: languages, ada
;; Rolf Ebert's version: 2.26

;;
;; 1994/12/02  Christian Egli <[e-mail]>
;; General cleanup and bug fixes.
;;
;; 1995/12/20  John Hutchison <[e-mail]>
;; made it work with skeleton.el from Emacs-19.30. Several
;; enhancements and bug fixes.

;; BUGS:
;;;> I have the following suggestions for the function template: 1) I
;;;> don't want it automatically assigning it a name for the return variable. I

;;; ---- statement skeletons ------------------------------------------

(define-skeleton ada-array
  "Insert array type definition.
Prompt for component type and index subtypes."
  ()
  "array (" ("index definition: " str ", " ) -2 ") of " _ ?\;)


(define-skeleton ada-case