Mercurial > emacs

comparison lisp/progmodes/pascal.el @ 11104:ef10b4684bb5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(pascal-mode-syntax-table): Give \ punctuation syntax.
author Richard M. Stallman <rms@gnu.org>
date Thu, 23 Mar 1995 20:40:48 +0000
parents 38b5efae433a
children e6bdaaa6ce1b
comparison
equal deleted inserted replaced
11103:2ec1bc611182 11104:ef10b4684bb5
56 ;;; myself and therefore would never notice them anyway. If you do 56 ;;; myself and therefore would never notice them anyway. If you do
57 ;;; find any bugs, you may submit them to: espensk@stud.cs.uit.no 57 ;;; find any bugs, you may submit them to: espensk@stud.cs.uit.no
58 ;;; as well as to bug-gnu-emacs@prep.ai.mit.edu. 58 ;;; as well as to bug-gnu-emacs@prep.ai.mit.edu.
59 59
60 ;;; Code: 60 ;;; Code:
61
62 (defconst pascal-mode-version "2.4"
63 "Version of `pascal.el'.")
64 61
65 (defvar pascal-mode-abbrev-table nil 62 (defvar pascal-mode-abbrev-table nil
66 "Abbrev table in use in Pascal-mode buffers.") 63 "Abbrev table in use in Pascal-mode buffers.")
67 (define-abbrev-table 'pascal-mode-abbrev-table ()) 64 (define-abbrev-table 'pascal-mode-abbrev-table ())
68 65
128 "Syntax table in use in Pascal-mode buffers.") 125 "Syntax table in use in Pascal-mode buffers.")
129 126
130 (if pascal-mode-syntax-table 127 (if pascal-mode-syntax-table
131 () 128 ()
132 (setq pascal-mode-syntax-table (make-syntax-table)) 129 (setq pascal-mode-syntax-table (make-syntax-table))
133 (modify-syntax-entry ?\\ "\\" pascal-mode-syntax-table) 130 (modify-syntax-entry ?\\ "." pascal-mode-syntax-table)
134 (modify-syntax-entry ?( "()1" pascal-mode-syntax-table) 131 (modify-syntax-entry ?( "()1" pascal-mode-syntax-table)
135 (modify-syntax-entry ?) ")(4" pascal-mode-syntax-table) 132 (modify-syntax-entry ?) ")(4" pascal-mode-syntax-table)
136 (modify-syntax-entry ?* ". 23" pascal-mode-syntax-table) 133 (modify-syntax-entry ?* ". 23" pascal-mode-syntax-table)
137 (modify-syntax-entry ?{ "<" pascal-mode-syntax-table) 134 (modify-syntax-entry ?{ "<" pascal-mode-syntax-table)
138 (modify-syntax-entry ?} ">" pascal-mode-syntax-table) 135 (modify-syntax-entry ?} ">" pascal-mode-syntax-table)