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." |