/[emacs]/emacs/lisp/progmodes/fortran.el
ViewVC logotype

Diff of /emacs/lisp/progmodes/fortran.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.87 by fx, Thu Nov 29 12:24:33 2001 UTC revision 1.88 by pj, Sun Dec 30 22:16:42 2001 UTC
# Line 477  These get fixed-format comments fontifie Line 477  These get fixed-format comments fontifie
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    

Legend:
Removed from v.1.87  
changed lines
  Added in v.1.88

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26