)
+;; 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
(define-skeleton ada-skel-for
"Insert a for loop statement with an optional name (from `str')."
()
- str & ":\n"
+ str & " :\n"
"for " _ " loop\n"
"end loop " str | -1 ";")
(progn
(ada-skel-expand)
t)
- ('error
+ (error
;; undo hook action if any
(unless (or (eq 't pending-undo-list)
(= undo-len (length pending-undo-list)))
(goto-char pos)
nil)))))
+(defun ada-skel-next-placeholder ()
+ "Move point to after next placeholder."
+ (skip-syntax-forward "^!")
+ (skip-syntax-forward "w!"))
+
+(defun ada-skel-prev-placeholder ()
+ "Move point to after previous placeholder."
+ (skip-syntax-backward "^!"))
+
(defun ada-skel-setup ()
"Setup a buffer for ada-skel."
(add-hook 'skeleton-end-hook 'ada-indent-statement nil t)
(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)
(add-hook 'ada-mode-hook 'ada-skel-setup)