Mercurial > emacs
comparison lisp/progmodes/ada-stmt.el @ 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 | e8824c4f5f7e |
children | 629afbe74e61 6fef25c75847 62afea0771d8 |
comparison
equal
deleted
inserted
replaced
62211:6e4e2882c013 | 62212:ad6e77659287 |
---|---|
464 () | 464 () |
465 < "or\n" | 465 < "or\n" |
466 > "terminate;") | 466 > "terminate;") |
467 | 467 |
468 | 468 |
469 (defun ada-adjust-case-skeleton () | |
470 "Adjust the case of the text inserted by a skeleton." | |
471 (save-excursion | |
472 (let ((aa-end (point))) | |
473 (ada-adjust-case-region | |
474 (progn (goto-char (symbol-value 'beg)) (forward-word -1) (point)) | |
475 (goto-char aa-end))))) | |
476 | |
477 (defun ada-stmt-mode-hook () | |
478 (set (make-local-variable 'skeleton-further-elements) | |
479 '((< '(backward-delete-char-untabify | |
480 (min ada-indent (current-column)))))) | |
481 (add-hook 'skeleton-end-hook 'ada-adjust-case-skeleton nil t)) | |
482 | |
483 (add-hook 'ada-mode-hook 'ada-stmt-mode-hook) | |
484 | |
485 (provide 'ada-stmt) | 469 (provide 'ada-stmt) |
486 | 470 |
487 ;;; arch-tag: 94f51555-cc0e-44e5-8865-8788aae8ecd3 | 471 ;;; arch-tag: 94f51555-cc0e-44e5-8865-8788aae8ecd3 |
488 ;;; ada-stmt.el ends here | 472 ;;; ada-stmt.el ends here |