aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/progmodes
diff options
context:
space:
mode:
authorJuanma Barranquero2003-01-23 09:12:03 +0000
committerJuanma Barranquero2003-01-23 09:12:03 +0000
commit18255677080f78d5a654d5eccb02a7b0fb2e5c4f (patch)
tree45c7dfdd4552ecd63e8fd920e90bb5a63ff29924 /lisp/progmodes
parent99f01c91bc65227544638a2ad436bb076cb4e00e (diff)
downloademacs-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.el12
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)