+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.
(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.")
(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)