mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-11 16:08:13 +00:00
Code Issues Releases Activity

(ada-adjust-case-skeleton): Moved to ada-mode.el.

Browse Source 
(ada-stmt-mode-hook): Deleted; do the work in ada-mode.
This commit is contained in:
Richard M. Stallman 2005-05-10 09:11:43 +00:00
parent 541044b0e1
commit 7f2b9f61c5
1 changed files with 0 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
lisp/progmodes/ada-stmt.el
View File

@ -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