Mercurial > emacs

changeset 42442:b9132fbd2327

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(f90-mode-abbrev-table): Mark all the predefined abbrevs as "system" abbrevs.
author Pavel Janík <Pavel@Janik.cz>
date Sun, 30 Dec 2001 22:15:49 +0000
parents 3bd37559f5f7
children 6f5de421ceca
files lisp/progmodes/f90.el
diffstat 1 files changed, 53 insertions(+), 53 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/progmodes/f90.el	Sun Dec 30 22:14:41 2001 +0000
+++ b/lisp/progmodes/f90.el	Sun Dec 30 22:15:49 2001 +0000
@@ -715,59 +715,59 @@
     ()
   (let ((ac abbrevs-changed))
     (define-abbrev-table 'f90-mode-abbrev-table ())
-    (define-abbrev f90-mode-abbrev-table  "`al"  "allocate" nil)
-    (define-abbrev f90-mode-abbrev-table  "`ab"  "allocatable" nil)
-    (define-abbrev f90-mode-abbrev-table  "`as"  "assignment" nil)
-    (define-abbrev f90-mode-abbrev-table  "`ba"  "backspace" nil)
-    (define-abbrev f90-mode-abbrev-table  "`bd"  "block data" nil)
-    (define-abbrev f90-mode-abbrev-table  "`c"   "character" nil)
-    (define-abbrev f90-mode-abbrev-table  "`cl"  "close" nil)
-    (define-abbrev f90-mode-abbrev-table  "`cm"  "common" nil)
-    (define-abbrev f90-mode-abbrev-table  "`cx"  "complex" nil)
-    (define-abbrev f90-mode-abbrev-table  "`cn"  "contains" nil)
-    (define-abbrev f90-mode-abbrev-table  "`cy"  "cycle" nil)
-    (define-abbrev f90-mode-abbrev-table  "`de"  "deallocate" nil)
-    (define-abbrev f90-mode-abbrev-table  "`df"  "define" nil)
-    (define-abbrev f90-mode-abbrev-table  "`di"  "dimension" nil)
-    (define-abbrev f90-mode-abbrev-table  "`dw"  "do while" nil)
-    (define-abbrev f90-mode-abbrev-table  "`el"  "else" nil)
-    (define-abbrev f90-mode-abbrev-table  "`eli" "else if" nil)
-    (define-abbrev f90-mode-abbrev-table  "`elw" "elsewhere" nil)
-    (define-abbrev f90-mode-abbrev-table  "`eq"  "equivalence" nil)
-    (define-abbrev f90-mode-abbrev-table  "`ex"  "external" nil)
-    (define-abbrev f90-mode-abbrev-table  "`ey"  "entry" nil)
-    (define-abbrev f90-mode-abbrev-table  "`fl"  "forall" nil)
-    (define-abbrev f90-mode-abbrev-table  "`fo"  "format" nil)
-    (define-abbrev f90-mode-abbrev-table  "`fu"  "function" nil)
-    (define-abbrev f90-mode-abbrev-table  "`fa"  ".false." nil)
-    (define-abbrev f90-mode-abbrev-table  "`im"  "implicit none" nil)
-    (define-abbrev f90-mode-abbrev-table  "`in " "include" nil)
-    (define-abbrev f90-mode-abbrev-table  "`i"   "integer" nil)
-    (define-abbrev f90-mode-abbrev-table  "`it"  "intent" nil)
-    (define-abbrev f90-mode-abbrev-table  "`if"  "interface" nil)
-    (define-abbrev f90-mode-abbrev-table  "`lo"  "logical" nil)
-    (define-abbrev f90-mode-abbrev-table  "`mo"  "module" nil)
-    (define-abbrev f90-mode-abbrev-table  "`na"  "namelist" nil)
-    (define-abbrev f90-mode-abbrev-table  "`nu"  "nullify" nil)
-    (define-abbrev f90-mode-abbrev-table  "`op"  "optional" nil)
-    (define-abbrev f90-mode-abbrev-table  "`pa"  "parameter" nil)
-    (define-abbrev f90-mode-abbrev-table  "`po"  "pointer" nil)
-    (define-abbrev f90-mode-abbrev-table  "`pr"  "print" nil)
-    (define-abbrev f90-mode-abbrev-table  "`pi"  "private" nil)
-    (define-abbrev f90-mode-abbrev-table  "`pm"  "program" nil)
-    (define-abbrev f90-mode-abbrev-table  "`pu"  "public" nil)
-    (define-abbrev f90-mode-abbrev-table  "`r"   "real" nil)
-    (define-abbrev f90-mode-abbrev-table  "`rc"  "recursive" nil)
-    (define-abbrev f90-mode-abbrev-table  "`rt"  "return" nil)
-    (define-abbrev f90-mode-abbrev-table  "`rw"  "rewind" nil)
-    (define-abbrev f90-mode-abbrev-table  "`se"  "select" nil)
-    (define-abbrev f90-mode-abbrev-table  "`sq"  "sequence" nil)
-    (define-abbrev f90-mode-abbrev-table  "`su"  "subroutine" nil)
-    (define-abbrev f90-mode-abbrev-table  "`ta"  "target" nil)
-    (define-abbrev f90-mode-abbrev-table  "`tr"  ".true." nil)
-    (define-abbrev f90-mode-abbrev-table  "`t"   "type" nil)
-    (define-abbrev f90-mode-abbrev-table  "`wh"  "where" nil)
-    (define-abbrev f90-mode-abbrev-table  "`wr"  "write" nil)
+    (define-abbrev f90-mode-abbrev-table  "`al"  "allocate" nil 0 t)
+    (define-abbrev f90-mode-abbrev-table  "`ab"  "allocatable" nil 0 t)
+    (define-abbrev f90-mode-abbrev-table  "`as"  "assignment" nil 0 t)
+    (define-abbrev f90-mode-abbrev-table  "`ba"  "backspace" nil 0 t)
+    (define-abbrev f90-mode-abbrev-table  "`bd"  "block data" nil 0 t)
+    (define-abbrev f90-mode-abbrev-table  "`c"   "character" nil 0 t)
+    (define-abbrev f90-mode-abbrev-table  "`cl"  "close" nil 0 t)
+    (define-abbrev f90-mode-abbrev-table  "`cm"  "common" nil 0 t)
+    (define-abbrev f90-mode-abbrev-table  "`cx"  "complex" nil 0 t)
+    (define-abbrev f90-mode-abbrev-table  "`cn"  "contains" nil 0 t)
+    (define-abbrev f90-mode-abbrev-table  "`cy"  "cycle" nil 0 t)
+    (define-abbrev f90-mode-abbrev-table  "`de"  "deallocate" nil 0 t)
+    (define-abbrev f90-mode-abbrev-table  "`df"  "define" nil 0 t)
+    (define-abbrev f90-mode-abbrev-table  "`di"  "dimension" nil 0 t)
+    (define-abbrev f90-mode-abbrev-table  "`dw"  "do while" nil 0 t)
+    (define-abbrev f90-mode-abbrev-table  "`el"  "else" nil 0 t)
+    (define-abbrev f90-mode-abbrev-table  "`eli" "else if" nil 0 t)
+    (define-abbrev f90-mode-abbrev-table  "`elw" "elsewhere" nil 0 t)
+    (define-abbrev f90-mode-abbrev-table  "`eq"  "equivalence" nil 0 t)
+    (define-abbrev f90-mode-abbrev-table  "`ex"  "external" nil 0 t)
+    (define-abbrev f90-mode-abbrev-table  "`ey"  "entry" nil 0 t)
+    (define-abbrev f90-mode-abbrev-table  "`fl"  "forall" nil 0 t)
+    (define-abbrev f90-mode-abbrev-table  "`fo"  "format" nil 0 t)
+    (define-abbrev f90-mode-abbrev-table  "`fu"  "function" nil 0 t)
+    (define-abbrev f90-mode-abbrev-table  "`fa"  ".false." nil 0 t)
+    (define-abbrev f90-mode-abbrev-table  "`im"  "implicit none" nil 0 t)
+    (define-abbrev f90-mode-abbrev-table  "`in " "include" nil 0 t)
+    (define-abbrev f90-mode-abbrev-table  "`i"   "integer" nil 0 t)
+    (define-abbrev f90-mode-abbrev-table  "`it"  "intent" nil 0 t)
+    (define-abbrev f90-mode-abbrev-table  "`if"  "interface" nil 0 t)
+    (define-abbrev f90-mode-abbrev-table  "`lo"  "logical" nil 0 t)
+    (define-abbrev f90-mode-abbrev-table  "`mo"  "module" nil 0 t)
+    (define-abbrev f90-mode-abbrev-table  "`na"  "namelist" nil 0 t)
+    (define-abbrev f90-mode-abbrev-table  "`nu"  "nullify" nil 0 t)
+    (define-abbrev f90-mode-abbrev-table  "`op"  "optional" nil 0 t)
+    (define-abbrev f90-mode-abbrev-table  "`pa"  "parameter" nil 0 t)
+    (define-abbrev f90-mode-abbrev-table  "`po"  "pointer" nil 0 t)
+    (define-abbrev f90-mode-abbrev-table  "`pr"  "print" nil 0 t)
+    (define-abbrev f90-mode-abbrev-table  "`pi"  "private" nil 0 t)
+    (define-abbrev f90-mode-abbrev-table  "`pm"  "program" nil 0 t)
+    (define-abbrev f90-mode-abbrev-table  "`pu"  "public" nil 0 t)
+    (define-abbrev f90-mode-abbrev-table  "`r"   "real" nil 0 t)
+    (define-abbrev f90-mode-abbrev-table  "`rc"  "recursive" nil 0 t)
+    (define-abbrev f90-mode-abbrev-table  "`rt"  "return" nil 0 t)
+    (define-abbrev f90-mode-abbrev-table  "`rw"  "rewind" nil 0 t)
+    (define-abbrev f90-mode-abbrev-table  "`se"  "select" nil 0 t)
+    (define-abbrev f90-mode-abbrev-table  "`sq"  "sequence" nil 0 t)
+    (define-abbrev f90-mode-abbrev-table  "`su"  "subroutine" nil 0 t)
+    (define-abbrev f90-mode-abbrev-table  "`ta"  "target" nil 0 t)
+    (define-abbrev f90-mode-abbrev-table  "`tr"  ".true." nil 0 t)
+    (define-abbrev f90-mode-abbrev-table  "`t"   "type" nil 0 t)
+    (define-abbrev f90-mode-abbrev-table  "`wh"  "where" nil 0 t)
+    (define-abbrev f90-mode-abbrev-table  "`wr"  "write" nil 0 t)
     (setq abbrevs-changed ac)))
 
 (defcustom f90-mode-hook nil