(asm-mode, asm-mode-syntax-table): Add

support for "//" style comments. Remove `b' flag
from ?* in `asm-mode-syntax-table'.
This commit is contained in:
Masatake YAMATO 2006-04-26 07:03:20 +00:00
parent 08a1dbe662
commit 0db097a557
2 changed files with 11 additions and 5 deletions

View file

@ -1,3 +1,9 @@
2006-04-26 Masatake YAMATO <jet@gyve.org>
* progmodes/asm-mode.el (asm-mode, asm-mode-syntax-table):
Add support for "//" style comments. Remove `b' flag
from ?* in `asm-mode-syntax-table'.
2006-04-26 Stefan Monnier <monnier@iro.umontreal.ca>
* follow.el: Use (featurep 'xemacs) everywhere.

View file

@ -62,9 +62,9 @@
(defvar asm-mode-syntax-table
(let ((st (make-syntax-table)))
(modify-syntax-entry ?\n ">" st)
(modify-syntax-entry ?/ ". 14b" st)
(modify-syntax-entry ?* ". 23b" st)
(modify-syntax-entry ?\n "> b" st)
(modify-syntax-entry ?/ ". 124b" st)
(modify-syntax-entry ?* ". 23" st)
st)
"Syntax table used while in Asm mode.")
@ -136,14 +136,14 @@ Special commands:
(use-local-map (nconc (make-sparse-keymap) asm-mode-map))
(local-set-key (vector asm-comment-char) 'asm-comment)
(set-syntax-table (make-syntax-table asm-mode-syntax-table))
(modify-syntax-entry asm-comment-char "<")
(modify-syntax-entry asm-comment-char "< b")
(make-local-variable 'comment-start)
(setq comment-start (string asm-comment-char))
(make-local-variable 'comment-add)
(setq comment-add 1)
(make-local-variable 'comment-start-skip)
(setq comment-start-skip "\\(?:\\s<+\\|/\\*+\\)[ \t]*")
(setq comment-start-skip "\\(?:\\s<+\\|/[/*]+\\)[ \t]*")
(make-local-variable 'comment-end-skip)
(setq comment-end-skip "[ \t]*\\(\\s>\\|\\*+/\\)")
(make-local-variable 'comment-end)