andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(fortran-mode-abbrev-table): Define abbrevs even if abbrev-table is

Browse source 
non-nil (saved user abbrevs may have been restored).
This commit is contained in:
Glenn Morris 2006-12-05 05:24:48 +00:00
parent 0761b294e1
commit 9ab66fc758
1 changed files with 73 additions and 71 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

144
lisp/progmodes/fortran.el
View file

@ -604,80 +604,82 @@ Used in the Fortran entry in `hs-special-modes-alist'.")
(defvar fortran-mode-abbrev-table
(let (abbrevs-changed)
(progn
(define-abbrev-table 'fortran-mode-abbrev-table nil)
;; Use the 6th arg (SYSTEM-FLAG) of define-abbrev if possible.
;; Only use `apply' to quieten the byte-compiler.
(mapcar
(function (lambda (element)
(condition-case nil
(apply 'define-abbrev fortran-mode-abbrev-table
(append element '(nil 0 t)))
(wrong-number-of-arguments
(apply 'define-abbrev fortran-mode-abbrev-table
(append element '(nil 0)))))))
'((";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" )))
fortran-mode-abbrev-table))
fortran-mode-abbrev-table)
"Abbrev table for Fortran mode.")
(let (abbrevs-changed)
;; Use the 6th arg (SYSTEM-FLAG) of define-abbrev if possible.
;; Only use `apply' to quieten the byte-compiler.
(mapcar
(function (lambda (element)
(condition-case nil
(apply 'define-abbrev fortran-mode-abbrev-table
(append element '(nil 0 t)))
(wrong-number-of-arguments
(apply 'define-abbrev fortran-mode-abbrev-table
(append element '(nil 0)))))))
'((";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" ))))
;;;###autoload
(defun fortran-mode ()
"Major mode for editing Fortran code in fixed format.