tcsh-65/tcsh/csh-mode.el

226 (defvar csh-mode-abbrev-table nil
227   "Abbrev table used while in csh mode.")
228 (define-abbrev-table 'csh-mode-abbrev-table ())
245 (defvar csh-mode-syntax-table nil
246   "Syntax table used while in csh mode.")
247 (if csh-mode-syntax-table
250   ;; Else, create it from the standard table and modify entries that need to be.
251   (setq csh-mode-syntax-table (make-syntax-table))
252   (modify-syntax-entry ?&  "."  csh-mode-syntax-table) ; & -punctuation
253   (modify-syntax-entry ?*  "."  csh-mode-syntax-table) ; * -punctuation
254   (modify-syntax-entry ?-  "."  csh-mode-syntax-table) ; - -punctuation
255   (modify-syntax-entry ?=  "."  csh-mode-syntax-table) ; = -punctuation
256   (modify-syntax-entry ?+  "."  csh-mode-syntax-table) ; + -punctuation
257   (modify-syntax-entry ?|  "."  csh-mode-syntax-table) ; | -punctuation
258   (modify-syntax-entry ?<  "."  csh-mode-syntax-table) ; < -punctuation
259   (modify-syntax-entry ?>  "."  csh-mode-syntax-table) ; > -punctuation
260   (modify-syntax-entry ?/  "."  csh-mode-syntax-table) ; / -punctuation
261   (modify-syntax-entry ?\' "\"" csh-mode-syntax-table) ; ' -string quote
262   (modify-syntax-entry ?.  "w"  csh-mode-syntax-table) ; . -word constituent
263   (modify-syntax-entry ??  "w"  csh-mode-syntax-table) ; ? -word constituent
266   (modify-syntax-entry ?\n "> 1" csh-mode-syntax-table) ; # -word constituent
269   (modify-syntax-entry ?   "  1" csh-mode-syntax-table) ;
272   (modify-syntax-entry ?\t "  1" csh-mode-syntax-table) ; # -word constituent
275   (modify-syntax-entry ?#  "w 2" csh-mode-syntax-table) ; # -word constituent
733   (setq local-abbrev-table csh-mode-abbrev-table)
734   (set-syntax-table csh-mode-syntax-table)