From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 10 May 2005 09:11:43 +0000 (+0000)
Subject: (ada-adjust-case-skeleton): Moved to ada-mode.el.
X-Git-Tag: ttn-vms-21-2-B4~413
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7f2b9f61c577d8277966a9fc208a4600912c3635;p=emacs.git

(ada-adjust-case-skeleton): Moved to ada-mode.el.
(ada-stmt-mode-hook): Deleted; do the work in ada-mode.
---

diff --git a/lisp/progmodes/ada-stmt.el b/lisp/progmodes/ada-stmt.el
index 3262f41bb5f..362ec87ba04 100644
--- a/lisp/progmodes/ada-stmt.el
+++ b/lisp/progmodes/ada-stmt.el
@@ -466,22 +466,6 @@ Invoke right after `ada-function-spec' or `ada-procedure-spec'."
   > "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