715 |
() |
() |
716 |
(let ((ac abbrevs-changed)) |
(let ((ac abbrevs-changed)) |
717 |
(define-abbrev-table 'f90-mode-abbrev-table ()) |
(define-abbrev-table 'f90-mode-abbrev-table ()) |
718 |
(define-abbrev f90-mode-abbrev-table "`al" "allocate" nil) |
(define-abbrev f90-mode-abbrev-table "`al" "allocate" nil 0 t) |
719 |
(define-abbrev f90-mode-abbrev-table "`ab" "allocatable" nil) |
(define-abbrev f90-mode-abbrev-table "`ab" "allocatable" nil 0 t) |
720 |
(define-abbrev f90-mode-abbrev-table "`as" "assignment" nil) |
(define-abbrev f90-mode-abbrev-table "`as" "assignment" nil 0 t) |
721 |
(define-abbrev f90-mode-abbrev-table "`ba" "backspace" nil) |
(define-abbrev f90-mode-abbrev-table "`ba" "backspace" nil 0 t) |
722 |
(define-abbrev f90-mode-abbrev-table "`bd" "block data" nil) |
(define-abbrev f90-mode-abbrev-table "`bd" "block data" nil 0 t) |
723 |
(define-abbrev f90-mode-abbrev-table "`c" "character" nil) |
(define-abbrev f90-mode-abbrev-table "`c" "character" nil 0 t) |
724 |
(define-abbrev f90-mode-abbrev-table "`cl" "close" nil) |
(define-abbrev f90-mode-abbrev-table "`cl" "close" nil 0 t) |
725 |
(define-abbrev f90-mode-abbrev-table "`cm" "common" nil) |
(define-abbrev f90-mode-abbrev-table "`cm" "common" nil 0 t) |
726 |
(define-abbrev f90-mode-abbrev-table "`cx" "complex" nil) |
(define-abbrev f90-mode-abbrev-table "`cx" "complex" nil 0 t) |
727 |
(define-abbrev f90-mode-abbrev-table "`cn" "contains" nil) |
(define-abbrev f90-mode-abbrev-table "`cn" "contains" nil 0 t) |
728 |
(define-abbrev f90-mode-abbrev-table "`cy" "cycle" nil) |
(define-abbrev f90-mode-abbrev-table "`cy" "cycle" nil 0 t) |
729 |
(define-abbrev f90-mode-abbrev-table "`de" "deallocate" nil) |
(define-abbrev f90-mode-abbrev-table "`de" "deallocate" nil 0 t) |
730 |
(define-abbrev f90-mode-abbrev-table "`df" "define" nil) |
(define-abbrev f90-mode-abbrev-table "`df" "define" nil 0 t) |
731 |
(define-abbrev f90-mode-abbrev-table "`di" "dimension" nil) |
(define-abbrev f90-mode-abbrev-table "`di" "dimension" nil 0 t) |
732 |
(define-abbrev f90-mode-abbrev-table "`dw" "do while" nil) |
(define-abbrev f90-mode-abbrev-table "`dw" "do while" nil 0 t) |
733 |
(define-abbrev f90-mode-abbrev-table "`el" "else" nil) |
(define-abbrev f90-mode-abbrev-table "`el" "else" nil 0 t) |
734 |
(define-abbrev f90-mode-abbrev-table "`eli" "else if" nil) |
(define-abbrev f90-mode-abbrev-table "`eli" "else if" nil 0 t) |
735 |
(define-abbrev f90-mode-abbrev-table "`elw" "elsewhere" nil) |
(define-abbrev f90-mode-abbrev-table "`elw" "elsewhere" nil 0 t) |
736 |
(define-abbrev f90-mode-abbrev-table "`eq" "equivalence" nil) |
(define-abbrev f90-mode-abbrev-table "`eq" "equivalence" nil 0 t) |
737 |
(define-abbrev f90-mode-abbrev-table "`ex" "external" nil) |
(define-abbrev f90-mode-abbrev-table "`ex" "external" nil 0 t) |
738 |
(define-abbrev f90-mode-abbrev-table "`ey" "entry" nil) |
(define-abbrev f90-mode-abbrev-table "`ey" "entry" nil 0 t) |
739 |
(define-abbrev f90-mode-abbrev-table "`fl" "forall" nil) |
(define-abbrev f90-mode-abbrev-table "`fl" "forall" nil 0 t) |
740 |
(define-abbrev f90-mode-abbrev-table "`fo" "format" nil) |
(define-abbrev f90-mode-abbrev-table "`fo" "format" nil 0 t) |
741 |
(define-abbrev f90-mode-abbrev-table "`fu" "function" nil) |
(define-abbrev f90-mode-abbrev-table "`fu" "function" nil 0 t) |
742 |
(define-abbrev f90-mode-abbrev-table "`fa" ".false." nil) |
(define-abbrev f90-mode-abbrev-table "`fa" ".false." nil 0 t) |
743 |
(define-abbrev f90-mode-abbrev-table "`im" "implicit none" nil) |
(define-abbrev f90-mode-abbrev-table "`im" "implicit none" nil 0 t) |
744 |
(define-abbrev f90-mode-abbrev-table "`in " "include" nil) |
(define-abbrev f90-mode-abbrev-table "`in " "include" nil 0 t) |
745 |
(define-abbrev f90-mode-abbrev-table "`i" "integer" nil) |
(define-abbrev f90-mode-abbrev-table "`i" "integer" nil 0 t) |
746 |
(define-abbrev f90-mode-abbrev-table "`it" "intent" nil) |
(define-abbrev f90-mode-abbrev-table "`it" "intent" nil 0 t) |
747 |
(define-abbrev f90-mode-abbrev-table "`if" "interface" nil) |
(define-abbrev f90-mode-abbrev-table "`if" "interface" nil 0 t) |
748 |
(define-abbrev f90-mode-abbrev-table "`lo" "logical" nil) |
(define-abbrev f90-mode-abbrev-table "`lo" "logical" nil 0 t) |
749 |
(define-abbrev f90-mode-abbrev-table "`mo" "module" nil) |
(define-abbrev f90-mode-abbrev-table "`mo" "module" nil 0 t) |
750 |
(define-abbrev f90-mode-abbrev-table "`na" "namelist" nil) |
(define-abbrev f90-mode-abbrev-table "`na" "namelist" nil 0 t) |
751 |
(define-abbrev f90-mode-abbrev-table "`nu" "nullify" nil) |
(define-abbrev f90-mode-abbrev-table "`nu" "nullify" nil 0 t) |
752 |
(define-abbrev f90-mode-abbrev-table "`op" "optional" nil) |
(define-abbrev f90-mode-abbrev-table "`op" "optional" nil 0 t) |
753 |
(define-abbrev f90-mode-abbrev-table "`pa" "parameter" nil) |
(define-abbrev f90-mode-abbrev-table "`pa" "parameter" nil 0 t) |
754 |
(define-abbrev f90-mode-abbrev-table "`po" "pointer" nil) |
(define-abbrev f90-mode-abbrev-table "`po" "pointer" nil 0 t) |
755 |
(define-abbrev f90-mode-abbrev-table "`pr" "print" nil) |
(define-abbrev f90-mode-abbrev-table "`pr" "print" nil 0 t) |
756 |
(define-abbrev f90-mode-abbrev-table "`pi" "private" nil) |
(define-abbrev f90-mode-abbrev-table "`pi" "private" nil 0 t) |
757 |
(define-abbrev f90-mode-abbrev-table "`pm" "program" nil) |
(define-abbrev f90-mode-abbrev-table "`pm" "program" nil 0 t) |
758 |
(define-abbrev f90-mode-abbrev-table "`pu" "public" nil) |
(define-abbrev f90-mode-abbrev-table "`pu" "public" nil 0 t) |
759 |
(define-abbrev f90-mode-abbrev-table "`r" "real" nil) |
(define-abbrev f90-mode-abbrev-table "`r" "real" nil 0 t) |
760 |
(define-abbrev f90-mode-abbrev-table "`rc" "recursive" nil) |
(define-abbrev f90-mode-abbrev-table "`rc" "recursive" nil 0 t) |
761 |
(define-abbrev f90-mode-abbrev-table "`rt" "return" nil) |
(define-abbrev f90-mode-abbrev-table "`rt" "return" nil 0 t) |
762 |
(define-abbrev f90-mode-abbrev-table "`rw" "rewind" nil) |
(define-abbrev f90-mode-abbrev-table "`rw" "rewind" nil 0 t) |
763 |
(define-abbrev f90-mode-abbrev-table "`se" "select" nil) |
(define-abbrev f90-mode-abbrev-table "`se" "select" nil 0 t) |
764 |
(define-abbrev f90-mode-abbrev-table "`sq" "sequence" nil) |
(define-abbrev f90-mode-abbrev-table "`sq" "sequence" nil 0 t) |
765 |
(define-abbrev f90-mode-abbrev-table "`su" "subroutine" nil) |
(define-abbrev f90-mode-abbrev-table "`su" "subroutine" nil 0 t) |
766 |
(define-abbrev f90-mode-abbrev-table "`ta" "target" nil) |
(define-abbrev f90-mode-abbrev-table "`ta" "target" nil 0 t) |
767 |
(define-abbrev f90-mode-abbrev-table "`tr" ".true." nil) |
(define-abbrev f90-mode-abbrev-table "`tr" ".true." nil 0 t) |
768 |
(define-abbrev f90-mode-abbrev-table "`t" "type" nil) |
(define-abbrev f90-mode-abbrev-table "`t" "type" nil 0 t) |
769 |
(define-abbrev f90-mode-abbrev-table "`wh" "where" nil) |
(define-abbrev f90-mode-abbrev-table "`wh" "where" nil 0 t) |
770 |
(define-abbrev f90-mode-abbrev-table "`wr" "write" nil) |
(define-abbrev f90-mode-abbrev-table "`wr" "write" nil 0 t) |
771 |
(setq abbrevs-changed ac))) |
(setq abbrevs-changed ac))) |
772 |
|
|
773 |
(defcustom f90-mode-hook nil |
(defcustom f90-mode-hook nil |