Variable: fortran-mode-abbrev-table

fortran-mode-abbrev-table is a variable defined in fortran.el.gz.

Value

[## 0 0 0 \;dc 0 \;sa \;df \;sc \;vo \;di 0 \;rw \;inc 0 0 \;do \;pa \;wh \;ich \;b \;ed 0 \;e \;ib \;st \;su 0 0 \;el \;l \;ii \;n \;o \;p \;ps \;r \;s 0 \;tr \;ir \;w \;ey 0 0 0 \;ty 0 0 0 0 \;rc \;ch \;re \;fu 0 \;cl \;cm 0]

Documentation

Abbrev table for Fortran mode.

Source Code

;; Defined in /usr/src/emacs/lisp/progmodes/fortran.el.gz
(define-abbrev-table 'fortran-mode-abbrev-table
  (mapcar (lambda (e) (list (car e) (cdr e) nil :system t))
          '((";au"   . "automatic"         )
            (";b"    . "byte"              )
            (";bd"   . "block data"        )
            (";ch"   . "character"         )
            (";cl"   . "close"             )
            (";c"    . "continue"          )
            (";cm"   . "common"            )
            (";cx"   . "complex"           )
            (";df"   . "define"            )
            (";di"   . "dimension"         )
            (";do"   . "double"            )
            (";dc"   . "double complex"    )
            (";dp"   . "double precision"  )
            (";dw"   . "do while"          )
            (";e"    . "else"              )
            (";ed"   . "enddo"             )
            (";el"   . "elseif"            )
            (";en"   . "endif"             )
            (";eq"   . "equivalence"       )
            (";ew"   . "endwhere"          )
            (";ex"   . "external"          )
            (";ey"   . "entry"             )
            (";f"    . "format"            )
            (";fa"   . ".false."           )
            (";fu"   . "function"          )
            (";g"    . "goto"              )
            (";im"   . "implicit"          )
            (";ib"   . "implicit byte"     )
            (";ic"   . "implicit complex"  )
            (";ich"  . "implicit character")
            (";ii"   . "implicit integer"  )
            (";il"   . "implicit logical"  )
            (";ir"   . "implicit real"     )
            (";inc"  . "include"           )
            (";in"   . "integer"           )
            (";intr" . "intrinsic"         )
            (";l"    . "logical"           )
            (";n"    . "namelist"          )
            (";o"    . "open"              ) ; was ;op
            (";pa"   . "parameter"         )
            (";pr"   . "program"           )
            (";ps"   . "pause"             )
            (";p"    . "print"             )
            (";rc"   . "record"            )
            (";re"   . "real"              )
            (";r"    . "read"              )
            (";rt"   . "return"            )
            (";rw"   . "rewind"            )
            (";s"    . "stop"              )
            (";sa"   . "save"              )
            (";st"   . "structure"         )
            (";sc"   . "static"            )
            (";su"   . "subroutine"        )
            (";tr"   . ".true."            )
            (";ty"   . "type"              )
            (";vo"   . "volatile"          )
            (";w"    . "write"             )
            (";wh"   . "where"             )))
  "Abbrev table for Fortran mode."
  ;; Accept ; as the first char of an abbrev.  Also allow _ in abbrevs.
  :regexp "\\(?:[^[:word:]_;]\\|^\\)\\(;?[[:word:]_]+\\)[^[:word:]_]*")