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

[Thien-Thi Nguyen]

Index: emacs/lisp/progmodes/dcl-mode.el
diff -c emacs/lisp/progmodes/dcl-mode.el:1.12 
emacs/lisp/progmodes/dcl-mode.el:1.13
*** emacs/lisp/progmodes/dcl-mode.el:1.12       Mon Sep  1 15:45:35 2003
--- emacs/lisp/progmodes/dcl-mode.el    Sat Mar 12 16:58:50 2005
***************
*** 284,296 ****
  
  (defvar dcl-mode-syntax-table nil
    "Syntax table used in DCL-buffers.")
! (if dcl-mode-syntax-table
!     ()
    (setq dcl-mode-syntax-table (make-syntax-table))
    (modify-syntax-entry ?!  "<" dcl-mode-syntax-table) ; comment start
    (modify-syntax-entry ?\n ">" dcl-mode-syntax-table) ; comment end
    (modify-syntax-entry ?< "(>" dcl-mode-syntax-table) ; < and ...
    (modify-syntax-entry ?> ")<" dcl-mode-syntax-table) ; > is a matching pair
  )
  
  
--- 284,296 ----
  
  (defvar dcl-mode-syntax-table nil
    "Syntax table used in DCL-buffers.")
! (unless dcl-mode-syntax-table
    (setq dcl-mode-syntax-table (make-syntax-table))
    (modify-syntax-entry ?!  "<" dcl-mode-syntax-table) ; comment start
    (modify-syntax-entry ?\n ">" dcl-mode-syntax-table) ; comment end
    (modify-syntax-entry ?< "(>" dcl-mode-syntax-table) ; < and ...
    (modify-syntax-entry ?> ")<" dcl-mode-syntax-table) ; > is a matching pair
+   (modify-syntax-entry ?\\ "_" dcl-mode-syntax-table) ; not an escape
  )