477 |
(defvar fortran-mode-abbrev-table |
(defvar fortran-mode-abbrev-table |
478 |
(let ((ac abbrevs-changed)) |
(let ((ac abbrevs-changed)) |
479 |
(define-abbrev-table 'fortran-mode-abbrev-table ()) |
(define-abbrev-table 'fortran-mode-abbrev-table ()) |
480 |
(define-abbrev fortran-mode-abbrev-table ";au" "automatic" nil) |
(define-abbrev fortran-mode-abbrev-table ";au" "automatic" nil 0 t) |
481 |
(define-abbrev fortran-mode-abbrev-table ";b" "byte" nil) |
(define-abbrev fortran-mode-abbrev-table ";b" "byte" nil 0 t) |
482 |
(define-abbrev fortran-mode-abbrev-table ";bd" "block data" nil) |
(define-abbrev fortran-mode-abbrev-table ";bd" "block data" nil 0 t) |
483 |
(define-abbrev fortran-mode-abbrev-table ";ch" "character" nil) |
(define-abbrev fortran-mode-abbrev-table ";ch" "character" nil 0 t) |
484 |
(define-abbrev fortran-mode-abbrev-table ";cl" "close" nil) |
(define-abbrev fortran-mode-abbrev-table ";cl" "close" nil 0 t) |
485 |
(define-abbrev fortran-mode-abbrev-table ";c" "continue" nil) |
(define-abbrev fortran-mode-abbrev-table ";c" "continue" nil 0 t) |
486 |
(define-abbrev fortran-mode-abbrev-table ";cm" "common" nil) |
(define-abbrev fortran-mode-abbrev-table ";cm" "common" nil 0 t) |
487 |
(define-abbrev fortran-mode-abbrev-table ";cx" "complex" nil) |
(define-abbrev fortran-mode-abbrev-table ";cx" "complex" nil 0 t) |
488 |
(define-abbrev fortran-mode-abbrev-table ";df" "define" nil) |
(define-abbrev fortran-mode-abbrev-table ";df" "define" nil 0 t) |
489 |
(define-abbrev fortran-mode-abbrev-table ";di" "dimension" nil) |
(define-abbrev fortran-mode-abbrev-table ";di" "dimension" nil 0 t) |
490 |
(define-abbrev fortran-mode-abbrev-table ";do" "double" nil) |
(define-abbrev fortran-mode-abbrev-table ";do" "double" nil 0 t) |
491 |
(define-abbrev fortran-mode-abbrev-table ";dc" "double complex" nil) |
(define-abbrev fortran-mode-abbrev-table ";dc" "double complex" nil 0 t) |
492 |
(define-abbrev fortran-mode-abbrev-table ";dp" "double precision" nil) |
(define-abbrev fortran-mode-abbrev-table ";dp" "double precision" nil 0 t) |
493 |
(define-abbrev fortran-mode-abbrev-table ";dw" "do while" nil) |
(define-abbrev fortran-mode-abbrev-table ";dw" "do while" nil 0 t) |
494 |
(define-abbrev fortran-mode-abbrev-table ";e" "else" nil) |
(define-abbrev fortran-mode-abbrev-table ";e" "else" nil 0 t) |
495 |
(define-abbrev fortran-mode-abbrev-table ";ed" "enddo" nil) |
(define-abbrev fortran-mode-abbrev-table ";ed" "enddo" nil 0 t) |
496 |
(define-abbrev fortran-mode-abbrev-table ";el" "elseif" nil) |
(define-abbrev fortran-mode-abbrev-table ";el" "elseif" nil 0 t) |
497 |
(define-abbrev fortran-mode-abbrev-table ";en" "endif" nil) |
(define-abbrev fortran-mode-abbrev-table ";en" "endif" nil 0 t) |
498 |
(define-abbrev fortran-mode-abbrev-table ";eq" "equivalence" nil) |
(define-abbrev fortran-mode-abbrev-table ";eq" "equivalence" nil 0 t) |
499 |
(define-abbrev fortran-mode-abbrev-table ";ew" "endwhere" nil) |
(define-abbrev fortran-mode-abbrev-table ";ew" "endwhere" nil 0 t) |
500 |
(define-abbrev fortran-mode-abbrev-table ";ex" "external" nil) |
(define-abbrev fortran-mode-abbrev-table ";ex" "external" nil 0 t) |
501 |
(define-abbrev fortran-mode-abbrev-table ";ey" "entry" nil) |
(define-abbrev fortran-mode-abbrev-table ";ey" "entry" nil 0 t) |
502 |
(define-abbrev fortran-mode-abbrev-table ";f" "format" nil) |
(define-abbrev fortran-mode-abbrev-table ";f" "format" nil 0 t) |
503 |
(define-abbrev fortran-mode-abbrev-table ";fa" ".false." nil) |
(define-abbrev fortran-mode-abbrev-table ";fa" ".false." nil 0 t) |
504 |
(define-abbrev fortran-mode-abbrev-table ";fu" "function" nil) |
(define-abbrev fortran-mode-abbrev-table ";fu" "function" nil 0 t) |
505 |
(define-abbrev fortran-mode-abbrev-table ";g" "goto" nil) |
(define-abbrev fortran-mode-abbrev-table ";g" "goto" nil 0 t) |
506 |
(define-abbrev fortran-mode-abbrev-table ";im" "implicit" nil) |
(define-abbrev fortran-mode-abbrev-table ";im" "implicit" nil 0 t) |
507 |
(define-abbrev fortran-mode-abbrev-table ";ib" "implicit byte" nil) |
(define-abbrev fortran-mode-abbrev-table ";ib" "implicit byte" nil 0 t) |
508 |
(define-abbrev fortran-mode-abbrev-table ";ic" "implicit complex" nil) |
(define-abbrev fortran-mode-abbrev-table ";ic" "implicit complex" nil 0 t) |
509 |
(define-abbrev fortran-mode-abbrev-table ";ich" "implicit character" nil) |
(define-abbrev fortran-mode-abbrev-table ";ich" "implicit character" nil 0 t) |
510 |
(define-abbrev fortran-mode-abbrev-table ";ii" "implicit integer" nil) |
(define-abbrev fortran-mode-abbrev-table ";ii" "implicit integer" nil 0 t) |
511 |
(define-abbrev fortran-mode-abbrev-table ";il" "implicit logical" nil) |
(define-abbrev fortran-mode-abbrev-table ";il" "implicit logical" nil 0 t) |
512 |
(define-abbrev fortran-mode-abbrev-table ";ir" "implicit real" nil) |
(define-abbrev fortran-mode-abbrev-table ";ir" "implicit real" nil 0 t) |
513 |
(define-abbrev fortran-mode-abbrev-table ";inc" "include" nil) |
(define-abbrev fortran-mode-abbrev-table ";inc" "include" nil 0 t) |
514 |
(define-abbrev fortran-mode-abbrev-table ";in" "integer" nil) |
(define-abbrev fortran-mode-abbrev-table ";in" "integer" nil 0 t) |
515 |
(define-abbrev fortran-mode-abbrev-table ";intr" "intrinsic" nil) |
(define-abbrev fortran-mode-abbrev-table ";intr" "intrinsic" nil 0 t) |
516 |
(define-abbrev fortran-mode-abbrev-table ";l" "logical" nil) |
(define-abbrev fortran-mode-abbrev-table ";l" "logical" nil 0 t) |
517 |
(define-abbrev fortran-mode-abbrev-table ";n" "namelist" nil) |
(define-abbrev fortran-mode-abbrev-table ";n" "namelist" nil 0 t) |
518 |
(define-abbrev fortran-mode-abbrev-table ";o" "open" nil) ; was ;op |
(define-abbrev fortran-mode-abbrev-table ";o" "open" nil 0 t) ; was ;op |
519 |
(define-abbrev fortran-mode-abbrev-table ";pa" "parameter" nil) |
(define-abbrev fortran-mode-abbrev-table ";pa" "parameter" nil 0 t) |
520 |
(define-abbrev fortran-mode-abbrev-table ";pr" "program" nil) |
(define-abbrev fortran-mode-abbrev-table ";pr" "program" nil 0 t) |
521 |
(define-abbrev fortran-mode-abbrev-table ";ps" "pause" nil) |
(define-abbrev fortran-mode-abbrev-table ";ps" "pause" nil 0 t) |
522 |
(define-abbrev fortran-mode-abbrev-table ";p" "print" nil) |
(define-abbrev fortran-mode-abbrev-table ";p" "print" nil 0 t) |
523 |
(define-abbrev fortran-mode-abbrev-table ";rc" "record" nil) |
(define-abbrev fortran-mode-abbrev-table ";rc" "record" nil 0 t) |
524 |
(define-abbrev fortran-mode-abbrev-table ";re" "real" nil) |
(define-abbrev fortran-mode-abbrev-table ";re" "real" nil 0 t) |
525 |
(define-abbrev fortran-mode-abbrev-table ";r" "read" nil) |
(define-abbrev fortran-mode-abbrev-table ";r" "read" nil 0 t) |
526 |
(define-abbrev fortran-mode-abbrev-table ";rt" "return" nil) |
(define-abbrev fortran-mode-abbrev-table ";rt" "return" nil 0 t) |
527 |
(define-abbrev fortran-mode-abbrev-table ";rw" "rewind" nil) |
(define-abbrev fortran-mode-abbrev-table ";rw" "rewind" nil 0 t) |
528 |
(define-abbrev fortran-mode-abbrev-table ";s" "stop" nil) |
(define-abbrev fortran-mode-abbrev-table ";s" "stop" nil 0 t) |
529 |
(define-abbrev fortran-mode-abbrev-table ";sa" "save" nil) |
(define-abbrev fortran-mode-abbrev-table ";sa" "save" nil 0 t) |
530 |
(define-abbrev fortran-mode-abbrev-table ";st" "structure" nil) |
(define-abbrev fortran-mode-abbrev-table ";st" "structure" nil 0 t) |
531 |
(define-abbrev fortran-mode-abbrev-table ";sc" "static" nil) |
(define-abbrev fortran-mode-abbrev-table ";sc" "static" nil 0 t) |
532 |
(define-abbrev fortran-mode-abbrev-table ";su" "subroutine" nil) |
(define-abbrev fortran-mode-abbrev-table ";su" "subroutine" nil 0 t) |
533 |
(define-abbrev fortran-mode-abbrev-table ";tr" ".true." nil) |
(define-abbrev fortran-mode-abbrev-table ";tr" ".true." nil 0 t) |
534 |
(define-abbrev fortran-mode-abbrev-table ";ty" "type" nil) |
(define-abbrev fortran-mode-abbrev-table ";ty" "type" nil 0 t) |
535 |
(define-abbrev fortran-mode-abbrev-table ";vo" "volatile" nil) |
(define-abbrev fortran-mode-abbrev-table ";vo" "volatile" nil 0 t) |
536 |
(define-abbrev fortran-mode-abbrev-table ";w" "write" nil) |
(define-abbrev fortran-mode-abbrev-table ";w" "write" nil 0 t) |
537 |
(define-abbrev fortran-mode-abbrev-table ";wh" "where" nil) |
(define-abbrev fortran-mode-abbrev-table ";wh" "where" nil 0 t) |
538 |
(setq abbrevs-changed ac) |
(setq abbrevs-changed ac) |
539 |
fortran-mode-abbrev-table)) |
fortran-mode-abbrev-table)) |
540 |
|
|