(fortran-mode-abbrev-table): Mark all the predefined abbrevs as "system"

abbrevs.

diff --git a/lisp/progmodes/fortran.el b/lisp/progmodes/fortran.el
index 99d91a087ec0e16f95a2d2271c869841cf970582..18e8c49e6e5edaa7593057876bbeec2fa61910e1 100644 (file)
--- a/lisp/progmodes/fortran.el
+++ b/lisp/progmodes/fortran.el
@@ -477,64 +477,64 @@ These get fixed-format comments fontified.")
 (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)
+    (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))
 \f