Mercurial > emacs

comparison lisp/=ada.el @ 9056:504324bc2741

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(ada-mode): Add autoload cookie. (auto-mode-alist): Don't alter it here.
author Richard M. Stallman <rms@gnu.org>
date Sat, 24 Sep 1994 04:06:50 +0000
parents 10e417efb12a
children 9a8f9905d724
comparison
equal deleted inserted replaced
9055:2e089bdec449 9056:504324bc2741
26 ;; Created May 1987. 26 ;; Created May 1987.
27 ;; (borrows heavily from Mick Jordan's Modula-2 package for GNU, 27 ;; (borrows heavily from Mick Jordan's Modula-2 package for GNU,
28 ;; as modified by Peter Robinson, Michael Schmidt, and Tom Perrine.) 28 ;; as modified by Peter Robinson, Michael Schmidt, and Tom Perrine.)
29 29
30 ;;; Code: 30 ;;; Code:
31
32 (setq auto-mode-alist (cons (cons "\\.ada$" 'ada-mode) auto-mode-alist))
33 31
34 (defvar ada-mode-syntax-table nil 32 (defvar ada-mode-syntax-table nil
35 "Syntax table in use in Ada-mode buffers.") 33 "Syntax table in use in Ada-mode buffers.")
36 34
37 (let ((table (make-syntax-table))) 35 (let ((table (make-syntax-table)))
107 (define-key map "\C-cO" 'ada-options-for-bind) 105 (define-key map "\C-cO" 'ada-options-for-bind)
108 (setq ada-mode-map map)) 106 (setq ada-mode-map map))
109 107
110 (defvar ada-indent 4 "*Value is the number of columns to indent in Ada-Mode.") 108 (defvar ada-indent 4 "*Value is the number of columns to indent in Ada-Mode.")
111 109
110 ;;;###autoload
112 (defun ada-mode () 111 (defun ada-mode ()
113 "This is a mode intended to support program development in Ada. 112 "This is a mode intended to support program development in Ada.
114 Most control constructs and declarations of Ada can be inserted in the buffer 113 Most control constructs and declarations of Ada can be inserted in the buffer
115 by typing Control-C followed by a character mnemonic for the construct. 114 by typing Control-C followed by a character mnemonic for the construct.
116 115