Lines Matching defs:table
402 ;; represent the standard comment syntax in an Emacs syntax table.
500 (defvar fortran-mode-syntax-table
501 (let ((table (make-syntax-table)))
504 (modify-syntax-entry ?\; "w" table)
505 (modify-syntax-entry ?\r " " table)
506 (modify-syntax-entry ?+ "." table)
507 (modify-syntax-entry ?- "." table)
508 (modify-syntax-entry ?= "." table)
509 (modify-syntax-entry ?* "." table)
510 (modify-syntax-entry ?/ "." table)
511 (modify-syntax-entry ?\' "\"" table)
512 (modify-syntax-entry ?\" "\"" table)
515 (modify-syntax-entry ?\\ "\\" table)
518 (modify-syntax-entry ?. "_" table) ; e.g. `a.ne.b'
519 (modify-syntax-entry ?_ "_" table)
520 (modify-syntax-entry ?$ "_" table) ; esp. VMSisms
521 (modify-syntax-entry ?\! "<" table)
522 (modify-syntax-entry ?\n ">" table)
523 table)
524 "Syntax table used in Fortran mode.")
526 (defvar fortran-gud-syntax-table
527 (let ((st (make-syntax-table fortran-mode-syntax-table)))
530 "Syntax table used to parse Fortran expressions for printing in GUD.")
610 (defvar fortran-mode-abbrev-table
612 (define-abbrev-table 'fortran-mode-abbrev-table nil)
613 fortran-mode-abbrev-table)
614 "Abbrev table for Fortran mode.")
622 (apply 'define-abbrev fortran-mode-abbrev-table
625 (apply 'define-abbrev fortran-mode-abbrev-table
763 local-abbrev-table fortran-mode-abbrev-table)
764 (set-syntax-table fortran-mode-syntax-table)
818 (with-syntax-table fortran-gud-syntax-table
917 (message "Listing abbrev table...")
919 (message "Listing abbrev table...done"))
925 (insert-abbrev-table-description 'fortran-mode-abbrev-table t)