# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1115716303 0
# Node ID ad6e77659287ecf9d117e20f61bd8060341cd8df
# Parent  6e4e2882c013091b24b552049d296a59d521b140
(ada-adjust-case-skeleton): Moved to ada-mode.el.
(ada-stmt-mode-hook): Deleted; do the work in ada-mode.

diff -r 6e4e2882c013 -r ad6e77659287 lisp/progmodes/ada-stmt.el
--- a/lisp/progmodes/ada-stmt.el	Tue May 10 09:09:58 2005 +0000
+++ b/lisp/progmodes/ada-stmt.el	Tue May 10 09:11:43 2005 +0000
@@ -466,22 +466,6 @@
   > "terminate;")
 
 
-(defun ada-adjust-case-skeleton ()
-  "Adjust the case of the text inserted by a skeleton."
-  (save-excursion
-    (let ((aa-end (point)))
-      (ada-adjust-case-region
-       (progn (goto-char (symbol-value 'beg)) (forward-word -1) (point))
-       (goto-char aa-end)))))
-
-(defun ada-stmt-mode-hook ()
-  (set (make-local-variable 'skeleton-further-elements)
-       '((< '(backward-delete-char-untabify
-	      (min ada-indent (current-column))))))
-  (add-hook 'skeleton-end-hook  'ada-adjust-case-skeleton nil t))
-
-(add-hook 'ada-mode-hook 'ada-stmt-mode-hook)
-
 (provide 'ada-stmt)
 
 ;;; arch-tag: 94f51555-cc0e-44e5-8865-8788aae8ecd3