Mercurial > emacs
changeset 45355:d1b710ae9184
(f90-mode-abbrev-table): Initialize in the defvar.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Sat, 18 May 2002 22:41:45 +0000 |
| parents | 3a4574d4d201 |
| children | 5abb0a0fed81 |
| files | lisp/progmodes/f90.el |
| diffstat | 1 files changed, 58 insertions(+), 58 deletions(-) [+] |
line wrap: on
line diff
--- 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."