From: Juanma Barranquero Date: Thu, 23 Jan 2003 09:12:03 +0000 (+0000) Subject: (asm-mode): Added syntax table entries for /* */ comments. X-Git-Tag: ttn-vms-21-2-B4~11515 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=18255677080f78d5a654d5eccb02a7b0fb2e5c4f;p=emacs.git (asm-mode): Added syntax table entries for /* */ comments. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 2abf062c8b3..c052e0806b6 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2003-01-23 Masatake YAMATO + + * progmodes/asm-mode.el (asm-mode): Added syntax table entries for + /* */ comments. + 2003-01-23 Kenichi Handa * 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 * 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 (tiny change) +2003-01-15 YAMAMOTO Mitsuharu (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 +2002-12-22 Zoltan Kemenczy * 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 +2002-12-06 Robert J. Chassell * 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 a18c856d569..6feded31b7f 100644 --- 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)