/[emacs]/emacs/lisp/progmodes/ada-mode.el
ViewVC logotype

Diff of /emacs/lisp/progmodes/ada-mode.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.61 by rms, Fri Dec 31 14:49:18 2004 UTC revision 1.62 by rms, Tue May 10 09:12:40 2005 UTC
# Line 1364  If you use ada-xref.el: Line 1364  If you use ada-xref.el:
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
# Line 1393  If you use ada-xref.el: Line 1398  If you use ada-xref.el:
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 ()

Legend:
Removed from v.1.61  
changed lines
  Added in v.1.62

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26