diff options
| author | Pavel Janík | 2001-12-30 22:16:42 +0000 |
|---|---|---|
| committer | Pavel Janík | 2001-12-30 22:16:42 +0000 |
| commit | e64c71e918c2176023cc39915eba6170bf774b75 (patch) | |
| tree | d87a3959c43b83c4865eaa134bdc07b0ddc07d22 | |
| parent | 5cc39d76dae595b6175ebde2b9b01305e30587d0 (diff) | |
| download | emacs-e64c71e918c2176023cc39915eba6170bf774b75.tar.gz emacs-e64c71e918c2176023cc39915eba6170bf774b75.zip | |
(fortran-mode-abbrev-table): Mark all the predefined abbrevs as "system"
abbrevs.
| -rw-r--r-- | lisp/progmodes/fortran.el | 116 |
1 files changed, 58 insertions, 58 deletions
diff --git a/lisp/progmodes/fortran.el b/lisp/progmodes/fortran.el index 99d91a087ec..18e8c49e6e5 100644 --- a/lisp/progmodes/fortran.el +++ b/lisp/progmodes/fortran.el | |||
| @@ -477,64 +477,64 @@ These get fixed-format comments fontified.") | |||
| 477 | (defvar fortran-mode-abbrev-table | 477 | (defvar fortran-mode-abbrev-table |
| 478 | (let ((ac abbrevs-changed)) | 478 | (let ((ac abbrevs-changed)) |
| 479 | (define-abbrev-table 'fortran-mode-abbrev-table ()) | 479 | (define-abbrev-table 'fortran-mode-abbrev-table ()) |
| 480 | (define-abbrev fortran-mode-abbrev-table ";au" "automatic" nil) | 480 | (define-abbrev fortran-mode-abbrev-table ";au" "automatic" nil 0 t) |
| 481 | (define-abbrev fortran-mode-abbrev-table ";b" "byte" nil) | 481 | (define-abbrev fortran-mode-abbrev-table ";b" "byte" nil 0 t) |
| 482 | (define-abbrev fortran-mode-abbrev-table ";bd" "block data" nil) | 482 | (define-abbrev fortran-mode-abbrev-table ";bd" "block data" nil 0 t) |
| 483 | (define-abbrev fortran-mode-abbrev-table ";ch" "character" nil) | 483 | (define-abbrev fortran-mode-abbrev-table ";ch" "character" nil 0 t) |
| 484 | (define-abbrev fortran-mode-abbrev-table ";cl" "close" nil) | 484 | (define-abbrev fortran-mode-abbrev-table ";cl" "close" nil 0 t) |
| 485 | (define-abbrev fortran-mode-abbrev-table ";c" "continue" nil) | 485 | (define-abbrev fortran-mode-abbrev-table ";c" "continue" nil 0 t) |
| 486 | (define-abbrev fortran-mode-abbrev-table ";cm" "common" nil) | 486 | (define-abbrev fortran-mode-abbrev-table ";cm" "common" nil 0 t) |
| 487 | (define-abbrev fortran-mode-abbrev-table ";cx" "complex" nil) | 487 | (define-abbrev fortran-mode-abbrev-table ";cx" "complex" nil 0 t) |
| 488 | (define-abbrev fortran-mode-abbrev-table ";df" "define" nil) | 488 | (define-abbrev fortran-mode-abbrev-table ";df" "define" nil 0 t) |
| 489 | (define-abbrev fortran-mode-abbrev-table ";di" "dimension" nil) | 489 | (define-abbrev fortran-mode-abbrev-table ";di" "dimension" nil 0 t) |
| 490 | (define-abbrev fortran-mode-abbrev-table ";do" "double" nil) | 490 | (define-abbrev fortran-mode-abbrev-table ";do" "double" nil 0 t) |
| 491 | (define-abbrev fortran-mode-abbrev-table ";dc" "double complex" nil) | 491 | (define-abbrev fortran-mode-abbrev-table ";dc" "double complex" nil 0 t) |
| 492 | (define-abbrev fortran-mode-abbrev-table ";dp" "double precision" nil) | 492 | (define-abbrev fortran-mode-abbrev-table ";dp" "double precision" nil 0 t) |
| 493 | (define-abbrev fortran-mode-abbrev-table ";dw" "do while" nil) | 493 | (define-abbrev fortran-mode-abbrev-table ";dw" "do while" nil 0 t) |
| 494 | (define-abbrev fortran-mode-abbrev-table ";e" "else" nil) | 494 | (define-abbrev fortran-mode-abbrev-table ";e" "else" nil 0 t) |
| 495 | (define-abbrev fortran-mode-abbrev-table ";ed" "enddo" nil) | 495 | (define-abbrev fortran-mode-abbrev-table ";ed" "enddo" nil 0 t) |
| 496 | (define-abbrev fortran-mode-abbrev-table ";el" "elseif" nil) | 496 | (define-abbrev fortran-mode-abbrev-table ";el" "elseif" nil 0 t) |
| 497 | (define-abbrev fortran-mode-abbrev-table ";en" "endif" nil) | 497 | (define-abbrev fortran-mode-abbrev-table ";en" "endif" nil 0 t) |
| 498 | (define-abbrev fortran-mode-abbrev-table ";eq" "equivalence" nil) | 498 | (define-abbrev fortran-mode-abbrev-table ";eq" "equivalence" nil 0 t) |
| 499 | (define-abbrev fortran-mode-abbrev-table ";ew" "endwhere" nil) | 499 | (define-abbrev fortran-mode-abbrev-table ";ew" "endwhere" nil 0 t) |
| 500 | (define-abbrev fortran-mode-abbrev-table ";ex" "external" nil) | 500 | (define-abbrev fortran-mode-abbrev-table ";ex" "external" nil 0 t) |
| 501 | (define-abbrev fortran-mode-abbrev-table ";ey" "entry" nil) | 501 | (define-abbrev fortran-mode-abbrev-table ";ey" "entry" nil 0 t) |
| 502 | (define-abbrev fortran-mode-abbrev-table ";f" "format" nil) | 502 | (define-abbrev fortran-mode-abbrev-table ";f" "format" nil 0 t) |
| 503 | (define-abbrev fortran-mode-abbrev-table ";fa" ".false." nil) | 503 | (define-abbrev fortran-mode-abbrev-table ";fa" ".false." nil 0 t) |
| 504 | (define-abbrev fortran-mode-abbrev-table ";fu" "function" nil) | 504 | (define-abbrev fortran-mode-abbrev-table ";fu" "function" nil 0 t) |
| 505 | (define-abbrev fortran-mode-abbrev-table ";g" "goto" nil) | 505 | (define-abbrev fortran-mode-abbrev-table ";g" "goto" nil 0 t) |
| 506 | (define-abbrev fortran-mode-abbrev-table ";im" "implicit" nil) | 506 | (define-abbrev fortran-mode-abbrev-table ";im" "implicit" nil 0 t) |
| 507 | (define-abbrev fortran-mode-abbrev-table ";ib" "implicit byte" nil) | 507 | (define-abbrev fortran-mode-abbrev-table ";ib" "implicit byte" nil 0 t) |
| 508 | (define-abbrev fortran-mode-abbrev-table ";ic" "implicit complex" nil) | 508 | (define-abbrev fortran-mode-abbrev-table ";ic" "implicit complex" nil 0 t) |
| 509 | (define-abbrev fortran-mode-abbrev-table ";ich" "implicit character" nil) | 509 | (define-abbrev fortran-mode-abbrev-table ";ich" "implicit character" nil 0 t) |
| 510 | (define-abbrev fortran-mode-abbrev-table ";ii" "implicit integer" nil) | 510 | (define-abbrev fortran-mode-abbrev-table ";ii" "implicit integer" nil 0 t) |
| 511 | (define-abbrev fortran-mode-abbrev-table ";il" "implicit logical" nil) | 511 | (define-abbrev fortran-mode-abbrev-table ";il" "implicit logical" nil 0 t) |
| 512 | (define-abbrev fortran-mode-abbrev-table ";ir" "implicit real" nil) | 512 | (define-abbrev fortran-mode-abbrev-table ";ir" "implicit real" nil 0 t) |
| 513 | (define-abbrev fortran-mode-abbrev-table ";inc" "include" nil) | 513 | (define-abbrev fortran-mode-abbrev-table ";inc" "include" nil 0 t) |
| 514 | (define-abbrev fortran-mode-abbrev-table ";in" "integer" nil) | 514 | (define-abbrev fortran-mode-abbrev-table ";in" "integer" nil 0 t) |
| 515 | (define-abbrev fortran-mode-abbrev-table ";intr" "intrinsic" nil) | 515 | (define-abbrev fortran-mode-abbrev-table ";intr" "intrinsic" nil 0 t) |
| 516 | (define-abbrev fortran-mode-abbrev-table ";l" "logical" nil) | 516 | (define-abbrev fortran-mode-abbrev-table ";l" "logical" nil 0 t) |
| 517 | (define-abbrev fortran-mode-abbrev-table ";n" "namelist" nil) | 517 | (define-abbrev fortran-mode-abbrev-table ";n" "namelist" nil 0 t) |
| 518 | (define-abbrev fortran-mode-abbrev-table ";o" "open" nil) ; was ;op | 518 | (define-abbrev fortran-mode-abbrev-table ";o" "open" nil 0 t) ; was ;op |
| 519 | (define-abbrev fortran-mode-abbrev-table ";pa" "parameter" nil) | 519 | (define-abbrev fortran-mode-abbrev-table ";pa" "parameter" nil 0 t) |
| 520 | (define-abbrev fortran-mode-abbrev-table ";pr" "program" nil) | 520 | (define-abbrev fortran-mode-abbrev-table ";pr" "program" nil 0 t) |
| 521 | (define-abbrev fortran-mode-abbrev-table ";ps" "pause" nil) | 521 | (define-abbrev fortran-mode-abbrev-table ";ps" "pause" nil 0 t) |
| 522 | (define-abbrev fortran-mode-abbrev-table ";p" "print" nil) | 522 | (define-abbrev fortran-mode-abbrev-table ";p" "print" nil 0 t) |
| 523 | (define-abbrev fortran-mode-abbrev-table ";rc" "record" nil) | 523 | (define-abbrev fortran-mode-abbrev-table ";rc" "record" nil 0 t) |
| 524 | (define-abbrev fortran-mode-abbrev-table ";re" "real" nil) | 524 | (define-abbrev fortran-mode-abbrev-table ";re" "real" nil 0 t) |
| 525 | (define-abbrev fortran-mode-abbrev-table ";r" "read" nil) | 525 | (define-abbrev fortran-mode-abbrev-table ";r" "read" nil 0 t) |
| 526 | (define-abbrev fortran-mode-abbrev-table ";rt" "return" nil) | 526 | (define-abbrev fortran-mode-abbrev-table ";rt" "return" nil 0 t) |
| 527 | (define-abbrev fortran-mode-abbrev-table ";rw" "rewind" nil) | 527 | (define-abbrev fortran-mode-abbrev-table ";rw" "rewind" nil 0 t) |
| 528 | (define-abbrev fortran-mode-abbrev-table ";s" "stop" nil) | 528 | (define-abbrev fortran-mode-abbrev-table ";s" "stop" nil 0 t) |
| 529 | (define-abbrev fortran-mode-abbrev-table ";sa" "save" nil) | 529 | (define-abbrev fortran-mode-abbrev-table ";sa" "save" nil 0 t) |
| 530 | (define-abbrev fortran-mode-abbrev-table ";st" "structure" nil) | 530 | (define-abbrev fortran-mode-abbrev-table ";st" "structure" nil 0 t) |
| 531 | (define-abbrev fortran-mode-abbrev-table ";sc" "static" nil) | 531 | (define-abbrev fortran-mode-abbrev-table ";sc" "static" nil 0 t) |
| 532 | (define-abbrev fortran-mode-abbrev-table ";su" "subroutine" nil) | 532 | (define-abbrev fortran-mode-abbrev-table ";su" "subroutine" nil 0 t) |
| 533 | (define-abbrev fortran-mode-abbrev-table ";tr" ".true." nil) | 533 | (define-abbrev fortran-mode-abbrev-table ";tr" ".true." nil 0 t) |
| 534 | (define-abbrev fortran-mode-abbrev-table ";ty" "type" nil) | 534 | (define-abbrev fortran-mode-abbrev-table ";ty" "type" nil 0 t) |
| 535 | (define-abbrev fortran-mode-abbrev-table ";vo" "volatile" nil) | 535 | (define-abbrev fortran-mode-abbrev-table ";vo" "volatile" nil 0 t) |
| 536 | (define-abbrev fortran-mode-abbrev-table ";w" "write" nil) | 536 | (define-abbrev fortran-mode-abbrev-table ";w" "write" nil 0 t) |
| 537 | (define-abbrev fortran-mode-abbrev-table ";wh" "where" nil) | 537 | (define-abbrev fortran-mode-abbrev-table ";wh" "where" nil 0 t) |
| 538 | (setq abbrevs-changed ac) | 538 | (setq abbrevs-changed ac) |
| 539 | fortran-mode-abbrev-table)) | 539 | fortran-mode-abbrev-table)) |
| 540 | 540 | ||