[Emacs-diffs] Changes to emacs/lisp/progmodes/ada-mode.el

[Richard M . Stallman]

Index: emacs/lisp/progmodes/ada-mode.el
diff -c emacs/lisp/progmodes/ada-mode.el:1.61 
emacs/lisp/progmodes/ada-mode.el:1.62
*** emacs/lisp/progmodes/ada-mode.el:1.61       Fri Dec 31 14:49:18 2004
--- emacs/lisp/progmodes/ada-mode.el    Tue May 10 09:12:40 2005
***************
*** 1364,1369 ****
--- 1364,1374 ----
          (add-hook 'local-write-file-hooks
                    (lambda () (untabify (point-min) (point-max))))))
  
+   (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)
+ 
    (run-hooks 'ada-mode-hook)
  
    ;;  To be run after the hook, in case the user modified
***************
*** 1393,1398 ****
--- 1398,1410 ----
    (if ada-auto-case
        (ada-activate-keys-for-case)))
  
+ (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)))))
  
  ;;  transient-mark-mode and mark-active are not defined in XEmacs
  (defun ada-region-selected ()