# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1021761705 0
# Node ID d1b710ae9184d3148d1969a957db0349d9c04625
# Parent  3a4574d4d2013a548f81d1ffddf9a2bb83161111
(f90-mode-abbrev-table): Initialize in the defvar.

diff -r 3a4574d4d201 -r d1b710ae9184 lisp/progmodes/f90.el
--- a/lisp/progmodes/f90.el	Sat May 18 22:18:58 2002 +0000
+++ b/lisp/progmodes/f90.el	Sat May 18 22:41:45 2002 +0000
@@ -689,64 +689,64 @@
 
 
 ;; Abbrevs have generally two letters, except standard types `c, `i, `r, `t.
-(defvar f90-mode-abbrev-table nil "Abbrev table for F90 mode.")
-(if (not f90-mode-abbrev-table)
-    (let (abbrevs-changed)
-      (define-abbrev-table 'f90-mode-abbrev-table 
-        '(("`al"  "allocate"      nil 0 t)
-          ("`ab"  "allocatable"   nil 0 t)
-          ("`as"  "assignment"    nil 0 t)
-          ("`ba"  "backspace"     nil 0 t)
-          ("`bd"  "block data"    nil 0 t)
-          ("`c"   "character"     nil 0 t)
-          ("`cl"  "close"         nil 0 t)
-          ("`cm"  "common"        nil 0 t)
-          ("`cx"  "complex"       nil 0 t)
-          ("`cn"  "contains"      nil 0 t)
-          ("`cy"  "cycle"         nil 0 t)
-          ("`de"  "deallocate"    nil 0 t)
-          ("`df"  "define"        nil 0 t)
-          ("`di"  "dimension"     nil 0 t)
-          ("`dw"  "do while"      nil 0 t)
-          ("`el"  "else"          nil 0 t)
-          ("`eli" "else if"       nil 0 t)
-          ("`elw" "elsewhere"     nil 0 t)
-          ("`eq"  "equivalence"   nil 0 t)
-          ("`ex"  "external"      nil 0 t)
-          ("`ey"  "entry"         nil 0 t)
-          ("`fl"  "forall"        nil 0 t)
-          ("`fo"  "format"        nil 0 t)
-          ("`fu"  "function"      nil 0 t)
-          ("`fa"  ".false."       nil 0 t)
-          ("`im"  "implicit none" nil 0 t)
-          ("`in " "include"       nil 0 t)
-          ("`i"   "integer"       nil 0 t)
-          ("`it"  "intent"        nil 0 t)
-          ("`if"  "interface"     nil 0 t)
-          ("`lo"  "logical"       nil 0 t)
-          ("`mo"  "module"        nil 0 t)
-          ("`na"  "namelist"      nil 0 t)
-          ("`nu"  "nullify"       nil 0 t)
-          ("`op"  "optional"      nil 0 t)
-          ("`pa"  "parameter"     nil 0 t)
-          ("`po"  "pointer"       nil 0 t)
-          ("`pr"  "print"         nil 0 t)
-          ("`pi"  "private"       nil 0 t)
-          ("`pm"  "program"       nil 0 t)
-          ("`pu"  "public"        nil 0 t)
-          ("`r"   "real"          nil 0 t)
-          ("`rc"  "recursive"     nil 0 t)
-          ("`rt"  "return"        nil 0 t)
-          ("`rw"  "rewind"        nil 0 t)
-          ("`se"  "select"        nil 0 t)
-          ("`sq"  "sequence"      nil 0 t)
-          ("`su"  "subroutine"    nil 0 t)
-          ("`ta"  "target"        nil 0 t)
-          ("`tr"  ".true."        nil 0 t)
-          ("`t"   "type"          nil 0 t)
-          ("`wh"  "where"         nil 0 t)
-          ("`wr"  "write"         nil 0 t)))))
-
+(defvar f90-mode-abbrev-table
+  (let (abbrevs-changed)
+    (define-abbrev-table 'f90-mode-abbrev-table 
+      '(("`al"  "allocate"      nil 0 t)
+        ("`ab"  "allocatable"   nil 0 t)
+        ("`as"  "assignment"    nil 0 t)
+        ("`ba"  "backspace"     nil 0 t)
+        ("`bd"  "block data"    nil 0 t)
+        ("`c"   "character"     nil 0 t)
+        ("`cl"  "close"         nil 0 t)
+        ("`cm"  "common"        nil 0 t)
+        ("`cx"  "complex"       nil 0 t)
+        ("`cn"  "contains"      nil 0 t)
+        ("`cy"  "cycle"         nil 0 t)
+        ("`de"  "deallocate"    nil 0 t)
+        ("`df"  "define"        nil 0 t)
+        ("`di"  "dimension"     nil 0 t)
+        ("`dw"  "do while"      nil 0 t)
+        ("`el"  "else"          nil 0 t)
+        ("`eli" "else if"       nil 0 t)
+        ("`elw" "elsewhere"     nil 0 t)
+        ("`eq"  "equivalence"   nil 0 t)
+        ("`ex"  "external"      nil 0 t)
+        ("`ey"  "entry"         nil 0 t)
+        ("`fl"  "forall"        nil 0 t)
+        ("`fo"  "format"        nil 0 t)
+        ("`fu"  "function"      nil 0 t)
+        ("`fa"  ".false."       nil 0 t)
+        ("`im"  "implicit none" nil 0 t)
+        ("`in " "include"       nil 0 t)
+        ("`i"   "integer"       nil 0 t)
+        ("`it"  "intent"        nil 0 t)
+        ("`if"  "interface"     nil 0 t)
+        ("`lo"  "logical"       nil 0 t)
+        ("`mo"  "module"        nil 0 t)
+        ("`na"  "namelist"      nil 0 t)
+        ("`nu"  "nullify"       nil 0 t)
+        ("`op"  "optional"      nil 0 t)
+        ("`pa"  "parameter"     nil 0 t)
+        ("`po"  "pointer"       nil 0 t)
+        ("`pr"  "print"         nil 0 t)
+        ("`pi"  "private"       nil 0 t)
+        ("`pm"  "program"       nil 0 t)
+        ("`pu"  "public"        nil 0 t)
+        ("`r"   "real"          nil 0 t)
+        ("`rc"  "recursive"     nil 0 t)
+        ("`rt"  "return"        nil 0 t)
+        ("`rw"  "rewind"        nil 0 t)
+        ("`se"  "select"        nil 0 t)
+        ("`sq"  "sequence"      nil 0 t)
+        ("`su"  "subroutine"    nil 0 t)
+        ("`ta"  "target"        nil 0 t)
+        ("`tr"  ".true."        nil 0 t)
+        ("`t"   "type"          nil 0 t)
+        ("`wh"  "where"         nil 0 t)
+        ("`wr"  "write"         nil 0 t)))
+    f90-mode-abbrev-table)
+  "Abbrev table for F90 mode.")
 
 (defcustom f90-mode-hook nil
   "Hook run when entering F90 mode."