Mercurial > emacs

comparison lisp/progmodes/dcl-mode.el @ 60578:634b2aa97a80

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(dcl-mode-syntax-table): Add entry for backslash.
author Thien-Thi Nguyen <ttn@gnuvola.org>
date Sat, 12 Mar 2005 16:58:50 +0000
parents 695cf19ef79e
children 66c8a6842570 8395880305fe
comparison
equal deleted inserted replaced
60577:1bfdd67c0337 60578:634b2aa97a80
282 ;;; *** Global variables **************************************************** 282 ;;; *** Global variables ****************************************************
283 283
284 284
285 (defvar dcl-mode-syntax-table nil 285 (defvar dcl-mode-syntax-table nil
286 "Syntax table used in DCL-buffers.") 286 "Syntax table used in DCL-buffers.")
287 (if dcl-mode-syntax-table 287 (unless dcl-mode-syntax-table
288 ()
289 (setq dcl-mode-syntax-table (make-syntax-table)) 288 (setq dcl-mode-syntax-table (make-syntax-table))
290 (modify-syntax-entry ?! "<" dcl-mode-syntax-table) ; comment start 289 (modify-syntax-entry ?! "<" dcl-mode-syntax-table) ; comment start
291 (modify-syntax-entry ?\n ">" dcl-mode-syntax-table) ; comment end 290 (modify-syntax-entry ?\n ">" dcl-mode-syntax-table) ; comment end
292 (modify-syntax-entry ?< "(>" dcl-mode-syntax-table) ; < and ... 291 (modify-syntax-entry ?< "(>" dcl-mode-syntax-table) ; < and ...
293 (modify-syntax-entry ?> ")<" dcl-mode-syntax-table) ; > is a matching pair 292 (modify-syntax-entry ?> ")<" dcl-mode-syntax-table) ; > is a matching pair
293 (modify-syntax-entry ?\\ "_" dcl-mode-syntax-table) ; not an escape
294 ) 294 )
295 295
296 296
297 (defvar dcl-mode-map () 297 (defvar dcl-mode-map ()
298 "Keymap used in DCL-mode buffers.") 298 "Keymap used in DCL-mode buffers.")