Commit 4f9fc702 authored by Glenn Morris's avatar Glenn Morris
Browse files

(f90-mode-abbrev-table): Initialize in the defvar.

parent ba69d9fa
......@@ -7,7 +7,8 @@
(f90-font-lock-4): Move the doc strings.
(f90-menu-bar-menu): New internal variable to hold the top-level menu.
(f90-change-case-menu, f90-font-lock-menu): Minor code changes.
(f90-mode-abbrev-table): Initialize with define-abbrev-table.
(f90-mode-abbrev-table): Initialize in the defvar, with
define-abbrev-table.
2002-05-18 Eli Zaretskii <eliz@is.elta.co.il>
......
......@@ -689,64 +689,64 @@ do\\([ \t]*while\\)?\\|select[ \t]*case\\|where\\|forall\\)\\)\\>"
;; 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."
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment