(asm-mode): Added syntax table entries for /* */ comments.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 2abf062c8b3e8242ce673674daa937ce5a5c2b74..c052e0806b61592c43e580fce3f3f31fd2f7979d 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2003-01-23  Masatake YAMATO  <jet@gyve.org>
+
+       * progmodes/asm-mode.el (asm-mode): Added syntax table entries for
+       /* */ comments.
+
 2003-01-23  Kenichi Handa  <handa@m17n.org>
 
        * files.el (insert-directory): Read the output of "ls" by
@@ -82,7 +87,7 @@
        * progmodes/octave-mod.el (octave-mode-map): Change C-c i bindings
        to C-c C-i.  Duplicate its bindings with last char a ctl char.
        Also change C-c f to C-c C-f.
-       
+
 2003-01-20  Markus Rost  <rost@math.ohio-state.edu>
 
        * ls-lisp.el (ls-lisp-use-insert-directory-program): Make default
@@ -206,7 +211,7 @@
        * loadup.el: Include lisp/textmodes in load-path for bootstrap
        emacs, to resolve ispell menu reference.
 
-2003-01-15  YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>  (tiny change)
+2003-01-15  YAMAMOTO Mitsuharu  <mituharu@math.s.chiba-u.ac.jp>  (tiny change)
 
        * international/mule.el (optimize-char-coding-system-table):
        Optimize it.
@@ -906,7 +911,7 @@
        (tooltip-gud-process-output): Undo previous change.
        (tooltip-strip-annotations): Remove.
 
-2002-12-22  Zoltan Kemenczy <zoltan@ieee.org>
+2002-12-22  Zoltan Kemenczy  <zoltan@ieee.org>
 
        * gud.el (gud-menu-map): Add jdb support for "run".
        (gud-jdb-find-source-using-classpath): Use 'identity.
@@ -1276,7 +1281,7 @@
        * files.el (find-file-read-args): Reenable wildcard processing
        unconditionally.
 
-2002-12-06  Robert J. Chassell <bob@rattlesnake.com>
+2002-12-06  Robert J. Chassell  <bob@rattlesnake.com>
 
        * textmodes/texinfmt.el (texinfo-format-scan): Handle new
        functions for copyright notice and copying permissions.

diff --git a/lisp/progmodes/asm-mode.el b/lisp/progmodes/asm-mode.el
index a18c856d569b957c4aa9bf27316248f215330050..6feded31b7f4ed67fd9dda349fae80b60866905a 100644 (file)
--- a/lisp/progmodes/asm-mode.el
+++ b/lisp/progmodes/asm-mode.el
@@ -128,9 +128,13 @@ Special commands:
   (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 @@ repeatedly until you are satisfied with the kind of comment."
     (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)