Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
e64c71e9
Commit
e64c71e9
authored
Dec 30, 2001
by
Pavel Janík
Browse files
(fortran-mode-abbrev-table): Mark all the predefined abbrevs as "system"
abbrevs.
parent
5cc39d76
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
58 additions
and
58 deletions
+58
-58
lisp/progmodes/fortran.el
lisp/progmodes/fortran.el
+58
-58
No files found.
lisp/progmodes/fortran.el
View file @
e64c71e9
...
...
@@ -477,64 +477,64 @@ These get fixed-format comments fontified.")
(defvar fortran-mode-abbrev-table
(let ((ac abbrevs-changed))
(define-abbrev-table 'fortran-mode-abbrev-table ())
(define-abbrev fortran-mode-abbrev-table ";au" "automatic" nil)
(define-abbrev fortran-mode-abbrev-table ";b" "byte" nil)
(define-abbrev fortran-mode-abbrev-table ";bd" "block data" nil)
(define-abbrev fortran-mode-abbrev-table ";ch" "character" nil)
(define-abbrev fortran-mode-abbrev-table ";cl" "close" nil)
(define-abbrev fortran-mode-abbrev-table ";c" "continue" nil)
(define-abbrev fortran-mode-abbrev-table ";cm" "common" nil)
(define-abbrev fortran-mode-abbrev-table ";cx" "complex" nil)
(define-abbrev fortran-mode-abbrev-table ";df" "define" nil)
(define-abbrev fortran-mode-abbrev-table ";di" "dimension" nil)
(define-abbrev fortran-mode-abbrev-table ";do" "double" nil)
(define-abbrev fortran-mode-abbrev-table ";dc" "double complex" nil)
(define-abbrev fortran-mode-abbrev-table ";dp" "double precision" nil)
(define-abbrev fortran-mode-abbrev-table ";dw" "do while" nil)
(define-abbrev fortran-mode-abbrev-table ";e" "else" nil)
(define-abbrev fortran-mode-abbrev-table ";ed" "enddo" nil)
(define-abbrev fortran-mode-abbrev-table ";el" "elseif" nil)
(define-abbrev fortran-mode-abbrev-table ";en" "endif" nil)
(define-abbrev fortran-mode-abbrev-table ";eq" "equivalence" nil)
(define-abbrev fortran-mode-abbrev-table ";ew" "endwhere" nil)
(define-abbrev fortran-mode-abbrev-table ";ex" "external" nil)
(define-abbrev fortran-mode-abbrev-table ";ey" "entry" nil)
(define-abbrev fortran-mode-abbrev-table ";f" "format" nil)
(define-abbrev fortran-mode-abbrev-table ";fa" ".false." nil)
(define-abbrev fortran-mode-abbrev-table ";fu" "function" nil)
(define-abbrev fortran-mode-abbrev-table ";g" "goto" nil)
(define-abbrev fortran-mode-abbrev-table ";im" "implicit" nil)
(define-abbrev fortran-mode-abbrev-table ";ib" "implicit byte" nil)
(define-abbrev fortran-mode-abbrev-table ";ic" "implicit complex" nil)
(define-abbrev fortran-mode-abbrev-table ";ich" "implicit character" nil)
(define-abbrev fortran-mode-abbrev-table ";ii" "implicit integer" nil)
(define-abbrev fortran-mode-abbrev-table ";il" "implicit logical" nil)
(define-abbrev fortran-mode-abbrev-table ";ir" "implicit real" nil)
(define-abbrev fortran-mode-abbrev-table ";inc" "include" nil)
(define-abbrev fortran-mode-abbrev-table ";in" "integer" nil)
(define-abbrev fortran-mode-abbrev-table ";intr" "intrinsic" nil)
(define-abbrev fortran-mode-abbrev-table ";l" "logical" nil)
(define-abbrev fortran-mode-abbrev-table ";n" "namelist" nil)
(define-abbrev fortran-mode-abbrev-table ";o" "open" nil) ; was ;op
(define-abbrev fortran-mode-abbrev-table ";pa" "parameter" nil)
(define-abbrev fortran-mode-abbrev-table ";pr" "program" nil)
(define-abbrev fortran-mode-abbrev-table ";ps" "pause" nil)
(define-abbrev fortran-mode-abbrev-table ";p" "print" nil)
(define-abbrev fortran-mode-abbrev-table ";rc" "record" nil)
(define-abbrev fortran-mode-abbrev-table ";re" "real" nil)
(define-abbrev fortran-mode-abbrev-table ";r" "read" nil)
(define-abbrev fortran-mode-abbrev-table ";rt" "return" nil)
(define-abbrev fortran-mode-abbrev-table ";rw" "rewind" nil)
(define-abbrev fortran-mode-abbrev-table ";s" "stop" nil)
(define-abbrev fortran-mode-abbrev-table ";sa" "save" nil)
(define-abbrev fortran-mode-abbrev-table ";st" "structure" nil)
(define-abbrev fortran-mode-abbrev-table ";sc" "static" nil)
(define-abbrev fortran-mode-abbrev-table ";su" "subroutine" nil)
(define-abbrev fortran-mode-abbrev-table ";tr" ".true." nil)
(define-abbrev fortran-mode-abbrev-table ";ty" "type" nil)
(define-abbrev fortran-mode-abbrev-table ";vo" "volatile" nil)
(define-abbrev fortran-mode-abbrev-table ";w" "write" nil)
(define-abbrev fortran-mode-abbrev-table ";wh" "where" nil)
(define-abbrev fortran-mode-abbrev-table ";au" "automatic" nil
0 t
)
(define-abbrev fortran-mode-abbrev-table ";b" "byte" nil
0 t
)
(define-abbrev fortran-mode-abbrev-table ";bd" "block data" nil
0 t
)
(define-abbrev fortran-mode-abbrev-table ";ch" "character" nil
0 t
)
(define-abbrev fortran-mode-abbrev-table ";cl" "close" nil
0 t
)
(define-abbrev fortran-mode-abbrev-table ";c" "continue" nil
0 t
)
(define-abbrev fortran-mode-abbrev-table ";cm" "common" nil
0 t
)
(define-abbrev fortran-mode-abbrev-table ";cx" "complex" nil
0 t
)
(define-abbrev fortran-mode-abbrev-table ";df" "define" nil
0 t
)
(define-abbrev fortran-mode-abbrev-table ";di" "dimension" nil
0 t
)
(define-abbrev fortran-mode-abbrev-table ";do" "double" nil
0 t
)
(define-abbrev fortran-mode-abbrev-table ";dc" "double complex" nil
0 t
)
(define-abbrev fortran-mode-abbrev-table ";dp" "double precision" nil
0 t
)
(define-abbrev fortran-mode-abbrev-table ";dw" "do while" nil
0 t
)
(define-abbrev fortran-mode-abbrev-table ";e" "else" nil
0 t
)
(define-abbrev fortran-mode-abbrev-table ";ed" "enddo" nil
0 t
)
(define-abbrev fortran-mode-abbrev-table ";el" "elseif" nil
0 t
)
(define-abbrev fortran-mode-abbrev-table ";en" "endif" nil
0 t
)
(define-abbrev fortran-mode-abbrev-table ";eq" "equivalence" nil
0 t
)
(define-abbrev fortran-mode-abbrev-table ";ew" "endwhere" nil
0 t
)
(define-abbrev fortran-mode-abbrev-table ";ex" "external" nil
0 t
)
(define-abbrev fortran-mode-abbrev-table ";ey" "entry" nil
0 t
)
(define-abbrev fortran-mode-abbrev-table ";f" "format" nil
0 t
)
(define-abbrev fortran-mode-abbrev-table ";fa" ".false." nil
0 t
)
(define-abbrev fortran-mode-abbrev-table ";fu" "function" nil
0 t
)
(define-abbrev fortran-mode-abbrev-table ";g" "goto" nil
0 t
)
(define-abbrev fortran-mode-abbrev-table ";im" "implicit" nil
0 t
)
(define-abbrev fortran-mode-abbrev-table ";ib" "implicit byte" nil
0 t
)
(define-abbrev fortran-mode-abbrev-table ";ic" "implicit complex" nil
0 t
)
(define-abbrev fortran-mode-abbrev-table ";ich" "implicit character" nil
0 t
)
(define-abbrev fortran-mode-abbrev-table ";ii" "implicit integer" nil
0 t
)
(define-abbrev fortran-mode-abbrev-table ";il" "implicit logical" nil
0 t
)
(define-abbrev fortran-mode-abbrev-table ";ir" "implicit real" nil
0 t
)
(define-abbrev fortran-mode-abbrev-table ";inc" "include" nil
0 t
)
(define-abbrev fortran-mode-abbrev-table ";in" "integer" nil
0 t
)
(define-abbrev fortran-mode-abbrev-table ";intr" "intrinsic" nil
0 t
)
(define-abbrev fortran-mode-abbrev-table ";l" "logical" nil
0 t
)
(define-abbrev fortran-mode-abbrev-table ";n" "namelist" nil
0 t
)
(define-abbrev fortran-mode-abbrev-table ";o" "open" nil
0 t
) ; was ;op
(define-abbrev fortran-mode-abbrev-table ";pa" "parameter" nil
0 t
)
(define-abbrev fortran-mode-abbrev-table ";pr" "program" nil
0 t
)
(define-abbrev fortran-mode-abbrev-table ";ps" "pause" nil
0 t
)
(define-abbrev fortran-mode-abbrev-table ";p" "print" nil
0 t
)
(define-abbrev fortran-mode-abbrev-table ";rc" "record" nil
0 t
)
(define-abbrev fortran-mode-abbrev-table ";re" "real" nil
0 t
)
(define-abbrev fortran-mode-abbrev-table ";r" "read" nil
0 t
)
(define-abbrev fortran-mode-abbrev-table ";rt" "return" nil
0 t
)
(define-abbrev fortran-mode-abbrev-table ";rw" "rewind" nil
0 t
)
(define-abbrev fortran-mode-abbrev-table ";s" "stop" nil
0 t
)
(define-abbrev fortran-mode-abbrev-table ";sa" "save" nil
0 t
)
(define-abbrev fortran-mode-abbrev-table ";st" "structure" nil
0 t
)
(define-abbrev fortran-mode-abbrev-table ";sc" "static" nil
0 t
)
(define-abbrev fortran-mode-abbrev-table ";su" "subroutine" nil
0 t
)
(define-abbrev fortran-mode-abbrev-table ";tr" ".true." nil
0 t
)
(define-abbrev fortran-mode-abbrev-table ";ty" "type" nil
0 t
)
(define-abbrev fortran-mode-abbrev-table ";vo" "volatile" nil
0 t
)
(define-abbrev fortran-mode-abbrev-table ";w" "write" nil
0 t
)
(define-abbrev fortran-mode-abbrev-table ";wh" "where" nil
0 t
)
(setq abbrevs-changed ac)
fortran-mode-abbrev-table))
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment
