comparison lisp/progmodes/ada-stmt.el @ 83304:6fef25c75847

Merged from [e-mail]--gnu-2005 (patch 296-306) Patches applied: * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-296 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-297 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-298 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-299 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-300 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-301 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-302 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-303 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-304 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-305 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-306 Update from CVS git-archimport-id: [e-mail]--2004/emacs--multi-tty--0--patch-344

83303:108e45fdcdbd

  ()
  < "or\n"
  > "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
;;; ada-stmt.el ends here

83304:6fef25c75847

  ()
  < "or\n"
  > "terminate;")


(provide 'ada-stmt)

;;; arch-tag: 94f51555-cc0e-44e5-8865-8788aae8ecd3
;;; ada-stmt.el ends here