From: Thien-Thi Nguyen Date: Sat, 12 Mar 2005 17:02:32 +0000 (+0000) Subject: (dcl-mode-syntax-table): Add entry for backslash. X-Git-Tag: ttn-vms-21-2-B4~1825 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=09d252f261e9f4ade167a8e1a30bebd036b0752a;p=emacs.git (dcl-mode-syntax-table): Add entry for backslash. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index ec709fe6a55..e0c9762078b 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2005-03-12 Thien-Thi Nguyen + + * progmodes/dcl-mode.el (dcl-mode-syntax-table): + Add entry for backslash. + 2005-03-12 Juri Linkov * info.el (Info-search): Four fixes for backward search. diff --git a/lisp/progmodes/dcl-mode.el b/lisp/progmodes/dcl-mode.el index 861c3bbb8c6..81ed7780a64 100644 --- a/lisp/progmodes/dcl-mode.el +++ b/lisp/progmodes/dcl-mode.el @@ -284,13 +284,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 )