mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-02-07 20:54:32 +00:00
Code Issues Releases Activity

(fortran-mode-abbrev-table): Use newer form of define-abbrev, where

Browse Source 
supported.  No need to bind abbrevs-changed for system abbrevs.
This commit is contained in:
Glenn Morris 2008-03-13 03:26:47 +00:00
parent 071e627782
commit 34d11b923e
1 changed files with 66 additions and 69 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

135
lisp/progmodes/fortran.el
View File

@ -676,75 +676,72 @@ Used in the Fortran entry in `hs-special-modes-alist'.")
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.
(mapc
(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" ))))
;; Not in defvar because user abbrevs may be restored before this file loads.
(mapc
(lambda (e)
(condition-case nil
(define-abbrev fortran-mode-abbrev-table (car e) (cdr e) nil :count 0
:system t)
(wrong-number-of-arguments ; Emacs 22
(define-abbrev fortran-mode-abbrev-table (car e) (cdr e) nil 0 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" )))
;;;###autoload