Mercurial > emacs
comparison lisp/progmodes/f90.el @ 42442:b9132fbd2327
(f90-mode-abbrev-table): Mark all the predefined abbrevs as "system"
abbrevs.
author | Pavel Janík <Pavel@Janik.cz> |
---|---|
date | Sun, 30 Dec 2001 22:15:49 +0000 |
parents | a20c1a3fca7f |
children | 93314c938a62 |
comparison
equal
deleted
inserted
replaced
42441:3bd37559f5f7 | 42442:b9132fbd2327 |
---|---|
713 (defvar f90-mode-abbrev-table nil) | 713 (defvar f90-mode-abbrev-table nil) |
714 (if f90-mode-abbrev-table | 714 (if f90-mode-abbrev-table |
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 |
774 "Hook run by F90 mode." | 774 "Hook run by F90 mode." |
775 :type 'hook | 775 :type 'hook |