[Emacs-diffs] Changes to emacs/lisp/progmodes/asm-mode.el

[Juanma Barranquero]

Index: emacs/lisp/progmodes/asm-mode.el
diff -c emacs/lisp/progmodes/asm-mode.el:1.21 
emacs/lisp/progmodes/asm-mode.el:1.22
*** emacs/lisp/progmodes/asm-mode.el:1.21       Thu Sep 28 23:31:36 2000
--- emacs/lisp/progmodes/asm-mode.el    Thu Jan 23 04:11:46 2003
***************
*** 128,136 ****
    (local-set-key (vector asm-comment-char) 'asm-comment)
  
    (modify-syntax-entry        asm-comment-char
!                       "<" asm-mode-syntax-table)
    (modify-syntax-entry        ?\n
!                        ">" 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) " "))
--- 128,140 ----
    (local-set-key (vector asm-comment-char) 'asm-comment)
  
    (modify-syntax-entry        asm-comment-char
!                       "< b" asm-mode-syntax-table)
    (modify-syntax-entry        ?\n
!                        "> 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,225 ****
      (insert asm-comment-char))
  
     ;; Empty code-level comment already present?
!    ;; 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. 
     ((asm-line-matches asm-inline-empty-comment-pattern)
      (asm-pop-comment-level)
      (tab-to-tab-stop)
--- 217,229 ----
      (insert asm-comment-char))
  
     ;; Empty code-level comment already present?
!    ;; 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.
     ((asm-line-matches asm-inline-empty-comment-pattern)
      (asm-pop-comment-level)
      (tab-to-tab-stop)