1364 |
(add-hook 'local-write-file-hooks |
(add-hook 'local-write-file-hooks |
1365 |
(lambda () (untabify (point-min) (point-max)))))) |
(lambda () (untabify (point-min) (point-max)))))) |
1366 |
|
|
1367 |
|
(set (make-local-variable 'skeleton-further-elements) |
1368 |
|
'((< '(backward-delete-char-untabify |
1369 |
|
(min ada-indent (current-column)))))) |
1370 |
|
(add-hook 'skeleton-end-hook 'ada-adjust-case-skeleton nil t) |
1371 |
|
|
1372 |
(run-hooks 'ada-mode-hook) |
(run-hooks 'ada-mode-hook) |
1373 |
|
|
1374 |
;; To be run after the hook, in case the user modified |
;; To be run after the hook, in case the user modified |
1398 |
(if ada-auto-case |
(if ada-auto-case |
1399 |
(ada-activate-keys-for-case))) |
(ada-activate-keys-for-case))) |
1400 |
|
|
1401 |
|
(defun ada-adjust-case-skeleton () |
1402 |
|
"Adjust the case of the text inserted by a skeleton." |
1403 |
|
(save-excursion |
1404 |
|
(let ((aa-end (point))) |
1405 |
|
(ada-adjust-case-region |
1406 |
|
(progn (goto-char (symbol-value 'beg)) (forward-word -1) (point)) |
1407 |
|
(goto-char aa-end))))) |
1408 |
|
|
1409 |
;; transient-mark-mode and mark-active are not defined in XEmacs |
;; transient-mark-mode and mark-active are not defined in XEmacs |
1410 |
(defun ada-region-selected () |
(defun ada-region-selected () |