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

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