Mercurial > emacs
comparison lisp/progmodes/asm-mode.el @ 2670:7c9deb765a64
Doc fix.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Wed, 05 May 1993 22:47:54 +0000 |
| parents | 7861f8756850 |
| children | 9043d8936335 |
comparison
equal
deleted
inserted
replaced
| 2669:0931cd677ff4 | 2670:7c9deb765a64 |
|---|---|
| 48 ;; 2) an asm-mode-hook at the end of initialization. | 48 ;; 2) an asm-mode-hook at the end of initialization. |
| 49 | 49 |
| 50 ;;; Code: | 50 ;;; Code: |
| 51 | 51 |
| 52 (defvar asm-comment-char ?; | 52 (defvar asm-comment-char ?; |
| 53 "*The comment-start character assumed by asm-mode.") | 53 "*The comment-start character assumed by Asm mode.") |
| 54 | 54 |
| 55 (defvar asm-mode-syntax-table nil | 55 (defvar asm-mode-syntax-table nil |
| 56 "Syntax table used while in asm mode.") | 56 "Syntax table used while in Asm mode.") |
| 57 | 57 |
| 58 (defvar asm-mode-abbrev-table nil | 58 (defvar asm-mode-abbrev-table nil |
| 59 "Abbrev table used while in asm mode.") | 59 "Abbrev table used while in Asm mode.") |
| 60 (define-abbrev-table 'asm-mode-abbrev-table ()) | 60 (define-abbrev-table 'asm-mode-abbrev-table ()) |
| 61 | 61 |
| 62 (defvar asm-mode-map nil | 62 (defvar asm-mode-map nil |
| 63 "Keymap for asm-mode") | 63 "Keymap for Asm mode.") |
| 64 | 64 |
| 65 (if asm-mode-map | 65 (if asm-mode-map |
| 66 nil | 66 nil |
| 67 (setq asm-mode-map (make-sparse-keymap)) | 67 (setq asm-mode-map (make-sparse-keymap)) |
| 68 (define-key asm-mode-map ";" 'asm-comment) | 68 (define-key asm-mode-map ";" 'asm-comment) |
| 77 (defvar asm-inline-empty-comment-pattern nil) | 77 (defvar asm-inline-empty-comment-pattern nil) |
| 78 | 78 |
| 79 ;;;###autoload | 79 ;;;###autoload |
| 80 (defun asm-mode () | 80 (defun asm-mode () |
| 81 "Major mode for editing typical assembler code. | 81 "Major mode for editing typical assembler code. |
| 82 Features a private asm-mode-abbrev-table and the following bindings: | 82 Features a private abbrev table and the following bindings: |
| 83 | 83 |
| 84 \\[asm-colon]\toutdent a preceding label, tab to next tab stop. | 84 \\[asm-colon]\toutdent a preceding label, tab to next tab stop. |
| 85 \\[tab-to-tab-stop]\ttab to next tab stop. | 85 \\[tab-to-tab-stop]\ttab to next tab stop. |
| 86 \\[asm-newline]\tnewline, then tab to next tab stop. | 86 \\[asm-newline]\tnewline, then tab to next tab stop. |
| 87 \\[asm-comment]\tsmart placement of assembler comments. | 87 \\[asm-comment]\tsmart placement of assembler comments. |
| 88 | 88 |
| 89 The character used for making comments is set by the variable | 89 The character used for making comments is set by the variable |
| 90 asm-comment-char (which defaults to ?;). You may want to set this | 90 `asm-comment-char' (which defaults to `?;'). |
| 91 appropriately for the assembler on your machine in defaults.el. | 91 |
| 92 | 92 Alternatively, you may set this variable in `asm-set-comment-hook', which is |
| 93 Alternatively, you may set this variable in asm-set-comment-hook, which is | |
| 94 called near the beginning of mode initialization. | 93 called near the beginning of mode initialization. |
| 95 | 94 |
| 96 Turning on asm-mode calls the value of the variable asm-mode-hook, | 95 Turning on Asm mode runs the hook `asm-mode-hook' at the end of initialization. |
| 97 if that value is non-nil, at the end of initialization. | |
| 98 | 96 |
| 99 Special commands:\\{asm-mode-map} | 97 Special commands:\\{asm-mode-map} |
| 100 " | 98 " |
| 101 (interactive) | 99 (interactive) |
| 102 (kill-all-local-variables) | 100 (kill-all-local-variables) |