Mercurial > hg > xemacs-beta

comparison lisp/modes/f90.el @ 151:59463afc5666 r20-3b2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b2
author cvs
date Mon, 13 Aug 2007 09:37:19 +0200
parents 34a5b81f86ba
children
comparison
equal deleted inserted replaced
150:8ebb1c0f0f6f 151:59463afc5666
140 ;; suggestions as well as for the lists of hpf-commands. 140 ;; suggestions as well as for the lists of hpf-commands.
141 ;; Also thanks to the authors of the fortran and pascal modes, on which some 141 ;; Also thanks to the authors of the fortran and pascal modes, on which some
142 ;; of this code is built. 142 ;; of this code is built.
143 143
144 ;;; Code: 144 ;;; Code:
145
146 (eval-when-compile
147 (defvar deactivate-mark)
148 (defvar mark-active))
145 149
146 (defconst bug-f90-mode "T.Einarsson@clab.ericsson.se" 150 (defconst bug-f90-mode "T.Einarsson@clab.ericsson.se"
147 "Address of mailing list for F90 mode bugs.") 151 "Address of mailing list for F90 mode bugs.")
148 152
149 ;; User options 153 ;; User options
486 "Syntax table in use in F90 mode buffers.") 490 "Syntax table in use in F90 mode buffers.")
487 491
488 (if f90-mode-syntax-table 492 (if f90-mode-syntax-table
489 () 493 ()
490 (setq f90-mode-syntax-table (make-syntax-table)) 494 (setq f90-mode-syntax-table (make-syntax-table))
491 (modify-syntax-entry ?\! "<" f90-mode-syntax-table) ; beg. comment 495 (modify-syntax-entry ?\! "<" f90-mode-syntax-table) ; beg. comment
492 (modify-syntax-entry ?\n ">" f90-mode-syntax-table) ; end comment 496 (modify-syntax-entry ?\n ">" f90-mode-syntax-table) ; end comment
493 (modify-syntax-entry ?_ "w" f90-mode-syntax-table) ; underscore in names
494 (modify-syntax-entry ?\' "\"" f90-mode-syntax-table) ; string quote 497 (modify-syntax-entry ?\' "\"" f90-mode-syntax-table) ; string quote
495 (modify-syntax-entry ?\" "\"" f90-mode-syntax-table) ; string quote 498 (modify-syntax-entry ?\" "\"" f90-mode-syntax-table) ; string quote
496 (modify-syntax-entry ?\` "w" f90-mode-syntax-table) ; for abbrevs 499 (modify-syntax-entry ?\` "w" f90-mode-syntax-table) ; for abbrevs
497 (modify-syntax-entry ?\r " " f90-mode-syntax-table) ; return is whitespace 500 (modify-syntax-entry ?\r " " f90-mode-syntax-table) ; return is whitespace
498 (modify-syntax-entry ?+ "." f90-mode-syntax-table) 501 (modify-syntax-entry ?+ "." f90-mode-syntax-table)
499 (modify-syntax-entry ?- "." f90-mode-syntax-table) 502 (modify-syntax-entry ?- "." f90-mode-syntax-table)
500 (modify-syntax-entry ?= "." f90-mode-syntax-table) 503 (modify-syntax-entry ?= "." f90-mode-syntax-table)
501 (modify-syntax-entry ?* "." f90-mode-syntax-table) 504 (modify-syntax-entry ?* "." f90-mode-syntax-table)
502 (modify-syntax-entry ?/ "." f90-mode-syntax-table) 505 (modify-syntax-entry ?/ "." f90-mode-syntax-table)
503 (modify-syntax-entry ?\\ "/" f90-mode-syntax-table)) ; escape chars 506 (modify-syntax-entry ?\\ "/" f90-mode-syntax-table)
507 (modify-syntax-entry ?. "." f90-mode-syntax-table)
508 (modify-syntax-entry ?% "." f90-mode-syntax-table) ; not in f77
509 (modify-syntax-entry ?$ "_" f90-mode-syntax-table)
510 (modify-syntax-entry ?@ "_" f90-mode-syntax-table)
511 (modify-syntax-entry ?_ "_" f90-mode-syntax-table)
512 ) ; escape chars
504 513
505 ;; keys 514 ;; keys
506 (defvar f90-mode-map () 515 (defvar f90-mode-map ()
507 "Keymap used in F90 mode.") 516 "Keymap used in F90 mode.")
508 517