From 7f2b9f61c577d8277966a9fc208a4600912c3635 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 10 May 2005 09:11:43 +0000 Subject: [PATCH] (ada-adjust-case-skeleton): Moved to ada-mode.el. (ada-stmt-mode-hook): Deleted; do the work in ada-mode. --- lisp/progmodes/ada-stmt.el | 16 ---------------- 1 file changed, 16 deletions(-) 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 -- 2.39.2