# HG changeset patch
# User Juanma Barranquero <lekktu@gmail.com>
# Date 1043313106 0
# Node ID 99a31f21f1c9fd27781eec4680aa6fd4b52f9eb1
# Parent  a57a71b7eaaef6e3b6fcdaa8c5d64b8c4931ae27
(asm-mode): Added syntax table entries for /* */ comments.

diff -r a57a71b7eaae -r 99a31f21f1c9 lisp/progmodes/asm-mode.el
--- a/lisp/progmodes/asm-mode.el	Thu Jan 23 05:59:47 2003 +0000
+++ b/lisp/progmodes/asm-mode.el	Thu Jan 23 09:11:46 2003 +0000
@@ -128,9 +128,13 @@
   (local-set-key (vector asm-comment-char) 'asm-comment)
 
   (modify-syntax-entry	asm-comment-char
-			"<" asm-mode-syntax-table)
+			"< b" asm-mode-syntax-table)
   (modify-syntax-entry	?\n
-			 ">" asm-mode-syntax-table)
+			 "> b" asm-mode-syntax-table)
+
+  (modify-syntax-entry ?/  ". 14" asm-mode-syntax-table)
+  (modify-syntax-entry ?*  ". 23" asm-mode-syntax-table)
+
   (let ((cs (regexp-quote (char-to-string asm-comment-char))))
     (make-local-variable 'comment-start)
     (setq comment-start (concat (char-to-string asm-comment-char) " "))
@@ -213,13 +217,13 @@
     (insert asm-comment-char))
 
    ;; Empty code-level comment already present?
-   ;; Then start flush-left comment, on line above if this one is nonempty. 
+   ;; Then start flush-left comment, on line above if this one is nonempty.
    ((asm-line-matches asm-code-level-empty-comment-pattern)
     (asm-pop-comment-level)
     (insert asm-comment-char asm-comment-char comment-start))
 
    ;; Empty comment ends line?
-   ;; Then make code-level comment, on line above if this one is nonempty. 
+   ;; Then make code-level comment, on line above if this one is nonempty.
    ((asm-line-matches asm-inline-empty-comment-pattern)
     (asm-pop-comment-level)
     (tab-to-tab-stop)