-;;; ada-skel.el --- an extension to Ada mode for inserting statement skeletons
+;;; ada-skel.el --- Extension to Ada mode for inserting statement skeletons -*- lexical-binding:t -*-
-;; Copyright (C) 1987, 1993, 1994, 1996-2014 Free Software Foundation, Inc.
+;; Copyright (C) 1987, 1993, 1994, 1996-2015 Free Software Foundation, Inc.
;; Authors: Stephen Leake <stephen_leake@stephe-leake.org>
-- This text was inserted by ada-skel-initial-string;
-- M-x customize-variable <RET> ada-skel-initial-string <RET>
-- (info \"(ada-mode)Statement skeletons\")"
- "*String to insert in empty buffer.
+ "String to insert in empty buffer.
This could end in a token recognized by `ada-skel-expand'."
:type 'string
:group 'ada
- :safe 'stringp)
+ :safe #'stringp)
(define-skeleton ada-skel-user-restricted
"Example copyright/license skeleton, with automatic year and owner."
)
+;; override ada-mode 4.01 autoloaded functions
+(define-obsolete-function-alias 'ada-header 'ada-skel-header "24.4"
+ "Insert a descriptive header at the top of the file.")
+
;;;;; Ada skeletons (alphabetical)
(define-skeleton ada-skel-accept
(provide 'ada-skeletons)
(provide 'ada-skel)
-(setq ada-expand 'ada-skel-expand)
-(setq ada-next-placeholder 'ada-skel-next-placeholder)
-(setq ada-prev-placeholder 'ada-skel-prev-placeholder)
+(setq ada-expand #'ada-skel-expand)
+(setq ada-next-placeholder #'ada-skel-next-placeholder)
+(setq ada-prev-placeholder #'ada-skel-prev-placeholder)
-(add-hook 'ada-mode-hook 'ada-skel-setup)
+(add-hook 'ada-mode-hook #'ada-skel-setup)
;;; ada-skel.el ends here