diff options
| author | Juanma Barranquero | 2003-01-23 09:12:03 +0000 |
|---|---|---|
| committer | Juanma Barranquero | 2003-01-23 09:12:03 +0000 |
| commit | 18255677080f78d5a654d5eccb02a7b0fb2e5c4f (patch) | |
| tree | 45c7dfdd4552ecd63e8fd920e90bb5a63ff29924 /lisp/progmodes | |
| parent | 99f01c91bc65227544638a2ad436bb076cb4e00e (diff) | |
| download | emacs-18255677080f78d5a654d5eccb02a7b0fb2e5c4f.tar.gz emacs-18255677080f78d5a654d5eccb02a7b0fb2e5c4f.zip | |
(asm-mode): Added syntax table entries for /* */ comments.
Diffstat (limited to 'lisp/progmodes')
| -rw-r--r-- | lisp/progmodes/asm-mode.el | 12 |
1 files changed, 8 insertions, 4 deletions
diff --git a/lisp/progmodes/asm-mode.el b/lisp/progmodes/asm-mode.el index a18c856d569..6feded31b7f 100644 --- a/lisp/progmodes/asm-mode.el +++ b/lisp/progmodes/asm-mode.el | |||
| @@ -128,9 +128,13 @@ Special commands: | |||
| 128 | (local-set-key (vector asm-comment-char) 'asm-comment) | 128 | (local-set-key (vector asm-comment-char) 'asm-comment) |
| 129 | 129 | ||
| 130 | (modify-syntax-entry asm-comment-char | 130 | (modify-syntax-entry asm-comment-char |
| 131 | "<" asm-mode-syntax-table) | 131 | "< b" asm-mode-syntax-table) |
| 132 | (modify-syntax-entry ?\n | 132 | (modify-syntax-entry ?\n |
| 133 | ">" asm-mode-syntax-table) | 133 | "> b" asm-mode-syntax-table) |
| 134 | |||
| 135 | (modify-syntax-entry ?/ ". 14" asm-mode-syntax-table) | ||
| 136 | (modify-syntax-entry ?* ". 23" asm-mode-syntax-table) | ||
| 137 | |||
| 134 | (let ((cs (regexp-quote (char-to-string asm-comment-char)))) | 138 | (let ((cs (regexp-quote (char-to-string asm-comment-char)))) |
| 135 | (make-local-variable 'comment-start) | 139 | (make-local-variable 'comment-start) |
| 136 | (setq comment-start (concat (char-to-string asm-comment-char) " ")) | 140 | (setq comment-start (concat (char-to-string asm-comment-char) " ")) |
| @@ -213,13 +217,13 @@ repeatedly until you are satisfied with the kind of comment." | |||
| 213 | (insert asm-comment-char)) | 217 | (insert asm-comment-char)) |
| 214 | 218 | ||
| 215 | ;; Empty code-level comment already present? | 219 | ;; Empty code-level comment already present? |
| 216 | ;; Then start flush-left comment, on line above if this one is nonempty. | 220 | ;; Then start flush-left comment, on line above if this one is nonempty. |
| 217 | ((asm-line-matches asm-code-level-empty-comment-pattern) | 221 | ((asm-line-matches asm-code-level-empty-comment-pattern) |
| 218 | (asm-pop-comment-level) | 222 | (asm-pop-comment-level) |
| 219 | (insert asm-comment-char asm-comment-char comment-start)) | 223 | (insert asm-comment-char asm-comment-char comment-start)) |
| 220 | 224 | ||
| 221 | ;; Empty comment ends line? | 225 | ;; Empty comment ends line? |
| 222 | ;; Then make code-level comment, on line above if this one is nonempty. | 226 | ;; Then make code-level comment, on line above if this one is nonempty. |
| 223 | ((asm-line-matches asm-inline-empty-comment-pattern) | 227 | ((asm-line-matches asm-inline-empty-comment-pattern) |
| 224 | (asm-pop-comment-level) | 228 | (asm-pop-comment-level) |
| 225 | (tab-to-tab-stop) | 229 | (tab-to-tab-stop) |