Mercurial > emacs
changeset 62212:ad6e77659287
(ada-adjust-case-skeleton): Moved to ada-mode.el.
(ada-stmt-mode-hook): Deleted; do the work in ada-mode.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 10 May 2005 09:11:43 +0000 |
| parents | 6e4e2882c013 |
| children | 39b445ca202b |
| files | lisp/progmodes/ada-stmt.el |
| diffstat | 1 files changed, 0 insertions(+), 16 deletions(-) [+] |
line wrap: on
line diff
--- 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