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