From: Thien-Thi Nguyen <ttn@gnuvola.org>
Date: Sat, 12 Mar 2005 16:51:47 +0000 (+0000)
Subject: (dcl-mode-syntax-table): Add entry for backslash.
X-Git-Tag: ttn-vms-21-2-B2~13
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d0d3c0c1e433727d7958dfc9cf418dd4bddbee74;p=emacs.git

(dcl-mode-syntax-table): Add entry for backslash.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a2d8e624b20..1249834076a 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2005-03-12  Thien-Thi Nguyen  <ttn@gnu.org>
+
+	* progmodes/dcl-mode.el (dcl-mode-syntax-table):
+	Add entry for backslash.
+
 2005-03-12  Thien-Thi Nguyen  <ttn@gnu.org>
 
 	* progmodes/dcl-mode.el (dcl-font-lock-keywords): New var.
diff --git a/lisp/progmodes/dcl-mode.el b/lisp/progmodes/dcl-mode.el
index 505e643994c..3f396fc7873 100644
--- a/lisp/progmodes/dcl-mode.el
+++ b/lisp/progmodes/dcl-mode.el
@@ -285,13 +285,13 @@ See `imenu-generic-expression' for details."
 
 (defvar dcl-mode-syntax-table nil
   "Syntax table used in DCL-buffers.")
-(if dcl-mode-syntax-table
-    ()
+(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
 )