From d0d3c0c1e433727d7958dfc9cf418dd4bddbee74 Mon Sep 17 00:00:00 2001 From: Thien-Thi Nguyen Date: Sat, 12 Mar 2005 16:51:47 +0000 Subject: [PATCH] (dcl-mode-syntax-table): Add entry for backslash. --- lisp/ChangeLog | 5 +++++ lisp/progmodes/dcl-mode.el | 4 ++-- 2 files changed, 7 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index a2d8e624b20..1249834076a 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,10 @@ 2005-03-12 Thien-Thi Nguyen + * progmodes/dcl-mode.el (dcl-mode-syntax-table): + Add entry for backslash. + +2005-03-12 Thien-Thi Nguyen + * progmodes/dcl-mode.el (dcl-font-lock-keywords): New var. (dcl-font-lock-defaults): New var. (dcl-mode): Make and init local var `font-lock-defaults'. 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 ) -- 2.11.4.GIT