/[emacs]/emacs/lisp/progmodes/f90.el
ViewVC logotype

Diff of /emacs/lisp/progmodes/f90.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.48 by gm, Sat May 18 22:17:36 2002 UTC revision 1.49 by gm, Sat May 18 22:41:45 2002 UTC
# Line 689  do\\([ \t]*while\\)?\\|select[ \t]*case\ Line 689  do\\([ \t]*while\\)?\\|select[ \t]*case\
689    
690    
691  ;; Abbrevs have generally two letters, except standard types `c, `i, `r, `t.  ;; Abbrevs have generally two letters, except standard types `c, `i, `r, `t.
692  (defvar f90-mode-abbrev-table nil "Abbrev table for F90 mode.")  (defvar f90-mode-abbrev-table
693  (if (not f90-mode-abbrev-table)    (let (abbrevs-changed)
694      (let (abbrevs-changed)      (define-abbrev-table 'f90-mode-abbrev-table
695        (define-abbrev-table 'f90-mode-abbrev-table        '(("`al"  "allocate"      nil 0 t)
696          '(("`al"  "allocate"      nil 0 t)          ("`ab"  "allocatable"   nil 0 t)
697            ("`ab"  "allocatable"   nil 0 t)          ("`as"  "assignment"    nil 0 t)
698            ("`as"  "assignment"    nil 0 t)          ("`ba"  "backspace"     nil 0 t)
699            ("`ba"  "backspace"     nil 0 t)          ("`bd"  "block data"    nil 0 t)
700            ("`bd"  "block data"    nil 0 t)          ("`c"   "character"     nil 0 t)
701            ("`c"   "character"     nil 0 t)          ("`cl"  "close"         nil 0 t)
702            ("`cl"  "close"         nil 0 t)          ("`cm"  "common"        nil 0 t)
703            ("`cm"  "common"        nil 0 t)          ("`cx"  "complex"       nil 0 t)
704            ("`cx"  "complex"       nil 0 t)          ("`cn"  "contains"      nil 0 t)
705            ("`cn"  "contains"      nil 0 t)          ("`cy"  "cycle"         nil 0 t)
706            ("`cy"  "cycle"         nil 0 t)          ("`de"  "deallocate"    nil 0 t)
707            ("`de"  "deallocate"    nil 0 t)          ("`df"  "define"        nil 0 t)
708            ("`df"  "define"        nil 0 t)          ("`di"  "dimension"     nil 0 t)
709            ("`di"  "dimension"     nil 0 t)          ("`dw"  "do while"      nil 0 t)
710            ("`dw"  "do while"      nil 0 t)          ("`el"  "else"          nil 0 t)
711            ("`el"  "else"          nil 0 t)          ("`eli" "else if"       nil 0 t)
712            ("`eli" "else if"       nil 0 t)          ("`elw" "elsewhere"     nil 0 t)
713            ("`elw" "elsewhere"     nil 0 t)          ("`eq"  "equivalence"   nil 0 t)
714            ("`eq"  "equivalence"   nil 0 t)          ("`ex"  "external"      nil 0 t)
715            ("`ex"  "external"      nil 0 t)          ("`ey"  "entry"         nil 0 t)
716            ("`ey"  "entry"         nil 0 t)          ("`fl"  "forall"        nil 0 t)
717            ("`fl"  "forall"        nil 0 t)          ("`fo"  "format"        nil 0 t)
718            ("`fo"  "format"        nil 0 t)          ("`fu"  "function"      nil 0 t)
719            ("`fu"  "function"      nil 0 t)          ("`fa"  ".false."       nil 0 t)
720            ("`fa"  ".false."       nil 0 t)          ("`im"  "implicit none" nil 0 t)
721            ("`im"  "implicit none" nil 0 t)          ("`in " "include"       nil 0 t)
722            ("`in " "include"       nil 0 t)          ("`i"   "integer"       nil 0 t)
723            ("`i"   "integer"       nil 0 t)          ("`it"  "intent"        nil 0 t)
724            ("`it"  "intent"        nil 0 t)          ("`if"  "interface"     nil 0 t)
725            ("`if"  "interface"     nil 0 t)          ("`lo"  "logical"       nil 0 t)
726            ("`lo"  "logical"       nil 0 t)          ("`mo"  "module"        nil 0 t)
727            ("`mo"  "module"        nil 0 t)          ("`na"  "namelist"      nil 0 t)
728            ("`na"  "namelist"      nil 0 t)          ("`nu"  "nullify"       nil 0 t)
729            ("`nu"  "nullify"       nil 0 t)          ("`op"  "optional"      nil 0 t)
730            ("`op"  "optional"      nil 0 t)          ("`pa"  "parameter"     nil 0 t)
731            ("`pa"  "parameter"     nil 0 t)          ("`po"  "pointer"       nil 0 t)
732            ("`po"  "pointer"       nil 0 t)          ("`pr"  "print"         nil 0 t)
733            ("`pr"  "print"         nil 0 t)          ("`pi"  "private"       nil 0 t)
734            ("`pi"  "private"       nil 0 t)          ("`pm"  "program"       nil 0 t)
735            ("`pm"  "program"       nil 0 t)          ("`pu"  "public"        nil 0 t)
736            ("`pu"  "public"        nil 0 t)          ("`r"   "real"          nil 0 t)
737            ("`r"   "real"          nil 0 t)          ("`rc"  "recursive"     nil 0 t)
738            ("`rc"  "recursive"     nil 0 t)          ("`rt"  "return"        nil 0 t)
739            ("`rt"  "return"        nil 0 t)          ("`rw"  "rewind"        nil 0 t)
740            ("`rw"  "rewind"        nil 0 t)          ("`se"  "select"        nil 0 t)
741            ("`se"  "select"        nil 0 t)          ("`sq"  "sequence"      nil 0 t)
742            ("`sq"  "sequence"      nil 0 t)          ("`su"  "subroutine"    nil 0 t)
743            ("`su"  "subroutine"    nil 0 t)          ("`ta"  "target"        nil 0 t)
744            ("`ta"  "target"        nil 0 t)          ("`tr"  ".true."        nil 0 t)
745            ("`tr"  ".true."        nil 0 t)          ("`t"   "type"          nil 0 t)
746            ("`t"   "type"          nil 0 t)          ("`wh"  "where"         nil 0 t)
747            ("`wh"  "where"         nil 0 t)          ("`wr"  "write"         nil 0 t)))
748            ("`wr"  "write"         nil 0 t)))))      f90-mode-abbrev-table)
749      "Abbrev table for F90 mode.")
750    
751  (defcustom f90-mode-hook nil  (defcustom f90-mode-hook nil
752    "Hook run when entering F90 mode."    "Hook run when entering F90 mode."

Legend:
Removed from v.1.48  
changed lines
  Added in v.1.49

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26