[Emacs-diffs] Changes to emacs/lisp/progmodes/fortran.el

[Pavel Janík]

Index: emacs/lisp/progmodes/fortran.el
diff -c emacs/lisp/progmodes/fortran.el:1.87 
emacs/lisp/progmodes/fortran.el:1.88
*** emacs/lisp/progmodes/fortran.el:1.87        Thu Nov 29 07:24:33 2001
--- emacs/lisp/progmodes/fortran.el     Sun Dec 30 17:16:42 2001
***************
*** 477,540 ****
  (defvar fortran-mode-abbrev-table
    (let ((ac abbrevs-changed))
      (define-abbrev-table 'fortran-mode-abbrev-table ())
!     (define-abbrev fortran-mode-abbrev-table  ";au"  "automatic" nil)
!     (define-abbrev fortran-mode-abbrev-table  ";b"   "byte" nil)
!     (define-abbrev fortran-mode-abbrev-table  ";bd"  "block data" nil)
!     (define-abbrev fortran-mode-abbrev-table  ";ch"  "character" nil)
!     (define-abbrev fortran-mode-abbrev-table  ";cl"  "close" nil)
!     (define-abbrev fortran-mode-abbrev-table  ";c"   "continue" nil)
!     (define-abbrev fortran-mode-abbrev-table  ";cm"  "common" nil)
!     (define-abbrev fortran-mode-abbrev-table  ";cx"  "complex" nil)
!     (define-abbrev fortran-mode-abbrev-table  ";df"  "define" nil)
!     (define-abbrev fortran-mode-abbrev-table  ";di"  "dimension" nil)
!     (define-abbrev fortran-mode-abbrev-table  ";do"  "double" nil)
!     (define-abbrev fortran-mode-abbrev-table  ";dc"  "double complex" nil)
!     (define-abbrev fortran-mode-abbrev-table  ";dp"  "double precision" nil)
!     (define-abbrev fortran-mode-abbrev-table  ";dw"  "do while" nil)
!     (define-abbrev fortran-mode-abbrev-table  ";e"   "else" nil)
!     (define-abbrev fortran-mode-abbrev-table  ";ed"  "enddo" nil)
!     (define-abbrev fortran-mode-abbrev-table  ";el"  "elseif" nil)
!     (define-abbrev fortran-mode-abbrev-table  ";en"  "endif" nil)
!     (define-abbrev fortran-mode-abbrev-table  ";eq"  "equivalence" nil)
!     (define-abbrev fortran-mode-abbrev-table  ";ew"  "endwhere" nil)
!     (define-abbrev fortran-mode-abbrev-table  ";ex"  "external" nil)
!     (define-abbrev fortran-mode-abbrev-table  ";ey"  "entry" nil)
!     (define-abbrev fortran-mode-abbrev-table  ";f"   "format" nil)
!     (define-abbrev fortran-mode-abbrev-table  ";fa"  ".false." nil)
!     (define-abbrev fortran-mode-abbrev-table  ";fu"  "function" nil)
!     (define-abbrev fortran-mode-abbrev-table  ";g"   "goto" nil)
!     (define-abbrev fortran-mode-abbrev-table  ";im"  "implicit" nil)
!     (define-abbrev fortran-mode-abbrev-table  ";ib"  "implicit byte" nil)
!     (define-abbrev fortran-mode-abbrev-table  ";ic"  "implicit complex" nil)
!     (define-abbrev fortran-mode-abbrev-table  ";ich" "implicit character" nil)
!     (define-abbrev fortran-mode-abbrev-table  ";ii"  "implicit integer" nil)
!     (define-abbrev fortran-mode-abbrev-table  ";il"  "implicit logical" nil)
!     (define-abbrev fortran-mode-abbrev-table  ";ir"  "implicit real" nil)
!     (define-abbrev fortran-mode-abbrev-table  ";inc" "include" nil)
!     (define-abbrev fortran-mode-abbrev-table  ";in"  "integer" nil)
!     (define-abbrev fortran-mode-abbrev-table  ";intr" "intrinsic" nil)
!     (define-abbrev fortran-mode-abbrev-table  ";l"   "logical" nil)
!     (define-abbrev fortran-mode-abbrev-table  ";n"   "namelist" nil)
!     (define-abbrev fortran-mode-abbrev-table  ";o"   "open" nil) ; was ;op
!     (define-abbrev fortran-mode-abbrev-table  ";pa"  "parameter" nil)
!     (define-abbrev fortran-mode-abbrev-table  ";pr"  "program" nil)
!     (define-abbrev fortran-mode-abbrev-table  ";ps"  "pause" nil)
!     (define-abbrev fortran-mode-abbrev-table  ";p"   "print" nil)
!     (define-abbrev fortran-mode-abbrev-table  ";rc"  "record" nil)
!     (define-abbrev fortran-mode-abbrev-table  ";re"  "real" nil)
!     (define-abbrev fortran-mode-abbrev-table  ";r"   "read" nil)
!     (define-abbrev fortran-mode-abbrev-table  ";rt"  "return" nil)
!     (define-abbrev fortran-mode-abbrev-table  ";rw"  "rewind" nil)
!     (define-abbrev fortran-mode-abbrev-table  ";s"   "stop" nil)
!     (define-abbrev fortran-mode-abbrev-table  ";sa"  "save" nil)
!     (define-abbrev fortran-mode-abbrev-table  ";st"  "structure" nil)
!     (define-abbrev fortran-mode-abbrev-table  ";sc"  "static" nil)
!     (define-abbrev fortran-mode-abbrev-table  ";su"  "subroutine" nil)
!     (define-abbrev fortran-mode-abbrev-table  ";tr"  ".true." nil)
!     (define-abbrev fortran-mode-abbrev-table  ";ty"  "type" nil)
!     (define-abbrev fortran-mode-abbrev-table  ";vo"  "volatile" nil)
!     (define-abbrev fortran-mode-abbrev-table  ";w"   "write" nil)
!     (define-abbrev fortran-mode-abbrev-table  ";wh"  "where" nil)
      (setq abbrevs-changed ac)
      fortran-mode-abbrev-table))
  
--- 477,540 ----
  (defvar fortran-mode-abbrev-table
    (let ((ac abbrevs-changed))
      (define-abbrev-table 'fortran-mode-abbrev-table ())
!     (define-abbrev fortran-mode-abbrev-table  ";au"  "automatic" nil 0 t)
!     (define-abbrev fortran-mode-abbrev-table  ";b"   "byte" nil 0 t)
!     (define-abbrev fortran-mode-abbrev-table  ";bd"  "block data" nil 0 t)
!     (define-abbrev fortran-mode-abbrev-table  ";ch"  "character" nil 0 t)
!     (define-abbrev fortran-mode-abbrev-table  ";cl"  "close" nil 0 t)
!     (define-abbrev fortran-mode-abbrev-table  ";c"   "continue" nil 0 t)
!     (define-abbrev fortran-mode-abbrev-table  ";cm"  "common" nil 0 t)
!     (define-abbrev fortran-mode-abbrev-table  ";cx"  "complex" nil 0 t)
!     (define-abbrev fortran-mode-abbrev-table  ";df"  "define" nil 0 t)
!     (define-abbrev fortran-mode-abbrev-table  ";di"  "dimension" nil 0 t)
!     (define-abbrev fortran-mode-abbrev-table  ";do"  "double" nil 0 t)
!     (define-abbrev fortran-mode-abbrev-table  ";dc"  "double complex" nil 0 t)
!     (define-abbrev fortran-mode-abbrev-table  ";dp"  "double precision" nil 0 
t)
!     (define-abbrev fortran-mode-abbrev-table  ";dw"  "do while" nil 0 t)
!     (define-abbrev fortran-mode-abbrev-table  ";e"   "else" nil 0 t)
!     (define-abbrev fortran-mode-abbrev-table  ";ed"  "enddo" nil 0 t)
!     (define-abbrev fortran-mode-abbrev-table  ";el"  "elseif" nil 0 t)
!     (define-abbrev fortran-mode-abbrev-table  ";en"  "endif" nil 0 t)
!     (define-abbrev fortran-mode-abbrev-table  ";eq"  "equivalence" nil 0 t)
!     (define-abbrev fortran-mode-abbrev-table  ";ew"  "endwhere" nil 0 t)
!     (define-abbrev fortran-mode-abbrev-table  ";ex"  "external" nil 0 t)
!     (define-abbrev fortran-mode-abbrev-table  ";ey"  "entry" nil 0 t)
!     (define-abbrev fortran-mode-abbrev-table  ";f"   "format" nil 0 t)
!     (define-abbrev fortran-mode-abbrev-table  ";fa"  ".false." nil 0 t)
!     (define-abbrev fortran-mode-abbrev-table  ";fu"  "function" nil 0 t)
!     (define-abbrev fortran-mode-abbrev-table  ";g"   "goto" nil 0 t)
!     (define-abbrev fortran-mode-abbrev-table  ";im"  "implicit" nil 0 t)
!     (define-abbrev fortran-mode-abbrev-table  ";ib"  "implicit byte" nil 0 t)
!     (define-abbrev fortran-mode-abbrev-table  ";ic"  "implicit complex" nil 0 
t)
!     (define-abbrev fortran-mode-abbrev-table  ";ich" "implicit character" nil 
0 t)
!     (define-abbrev fortran-mode-abbrev-table  ";ii"  "implicit integer" nil 0 
t)
!     (define-abbrev fortran-mode-abbrev-table  ";il"  "implicit logical" nil 0 
t)
!     (define-abbrev fortran-mode-abbrev-table  ";ir"  "implicit real" nil 0 t)
!     (define-abbrev fortran-mode-abbrev-table  ";inc" "include" nil 0 t)
!     (define-abbrev fortran-mode-abbrev-table  ";in"  "integer" nil 0 t)
!     (define-abbrev fortran-mode-abbrev-table  ";intr" "intrinsic" nil 0 t)
!     (define-abbrev fortran-mode-abbrev-table  ";l"   "logical" nil 0 t)
!     (define-abbrev fortran-mode-abbrev-table  ";n"   "namelist" nil 0 t)
!     (define-abbrev fortran-mode-abbrev-table  ";o"   "open" nil 0 t) ; was ;op
!     (define-abbrev fortran-mode-abbrev-table  ";pa"  "parameter" nil 0 t)
!     (define-abbrev fortran-mode-abbrev-table  ";pr"  "program" nil 0 t)
!     (define-abbrev fortran-mode-abbrev-table  ";ps"  "pause" nil 0 t)
!     (define-abbrev fortran-mode-abbrev-table  ";p"   "print" nil 0 t)
!     (define-abbrev fortran-mode-abbrev-table  ";rc"  "record" nil 0 t)
!     (define-abbrev fortran-mode-abbrev-table  ";re"  "real" nil 0 t)
!     (define-abbrev fortran-mode-abbrev-table  ";r"   "read" nil 0 t)
!     (define-abbrev fortran-mode-abbrev-table  ";rt"  "return" nil 0 t)
!     (define-abbrev fortran-mode-abbrev-table  ";rw"  "rewind" nil 0 t)
!     (define-abbrev fortran-mode-abbrev-table  ";s"   "stop" nil 0 t)
!     (define-abbrev fortran-mode-abbrev-table  ";sa"  "save" nil 0 t)
!     (define-abbrev fortran-mode-abbrev-table  ";st"  "structure" nil 0 t)
!     (define-abbrev fortran-mode-abbrev-table  ";sc"  "static" nil 0 t)
!     (define-abbrev fortran-mode-abbrev-table  ";su"  "subroutine" nil 0 t)
!     (define-abbrev fortran-mode-abbrev-table  ";tr"  ".true." nil 0 t)
!     (define-abbrev fortran-mode-abbrev-table  ";ty"  "type" nil 0 t)
!     (define-abbrev fortran-mode-abbrev-table  ";vo"  "volatile" nil 0 t)
!     (define-abbrev fortran-mode-abbrev-table  ";w"   "write" nil 0 t)
!     (define-abbrev fortran-mode-abbrev-table  ";wh"  "where" nil 0 t)
      (setq abbrevs-changed ac)
      fortran-mode-abbrev-table))