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
8bf25718
Commit
8bf25718
authored
Dec 30, 2001
by
Pavel Janík
Browse files
(idlwave-mode-abbrev-table): Mark all the predefined abbrevs as "system"
abbrevs.
parent
e64c71e9
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
100 additions
and
100 deletions
+100
-100
lisp/progmodes/idlwave.el
lisp/progmodes/idlwave.el
+100
-100
No files found.
lisp/progmodes/idlwave.el
View file @
8bf25718
...
...
@@ -4,7 +4,7 @@
;; Author: Chris Chase <chase@att.com>
;; Maintainer: John-David Smith <jdsmith@astro.cornell.edu>
;; Version: 4.7
;; Date: $Date: 2001/12/
01 12:5
4:
2
9 $
;; Date: $Date: 2001/12/
20 18:1
4:
3
9 $
;; Keywords: languages
;; This file is part of GNU Emacs.
...
...
@@ -1595,113 +1595,113 @@ Capitalize system variables - action only
;;
;; Templates
;;
(define-abbrev tb (concat c "c") "" (idlwave-code-abbrev idlwave-case))
(define-abbrev tb (concat c "sw") "" (idlwave-code-abbrev idlwave-switch))
(define-abbrev tb (concat c "f") "" (idlwave-code-abbrev idlwave-for))
(define-abbrev tb (concat c "fu") "" (idlwave-code-abbrev idlwave-function))
(define-abbrev tb (concat c "pr") "" (idlwave-code-abbrev idlwave-procedure))
(define-abbrev tb (concat c "r") "" (idlwave-code-abbrev idlwave-repeat))
(define-abbrev tb (concat c "w") "" (idlwave-code-abbrev idlwave-while))
(define-abbrev tb (concat c "i") "" (idlwave-code-abbrev idlwave-if))
(define-abbrev tb (concat c "elif") "" (idlwave-code-abbrev idlwave-elif))
(define-abbrev tb (concat c "c") "" (idlwave-code-abbrev idlwave-case)
0 t
)
(define-abbrev tb (concat c "sw") "" (idlwave-code-abbrev idlwave-switch)
0 t
)
(define-abbrev tb (concat c "f") "" (idlwave-code-abbrev idlwave-for)
0 t
)
(define-abbrev tb (concat c "fu") "" (idlwave-code-abbrev idlwave-function)
0 t
)
(define-abbrev tb (concat c "pr") "" (idlwave-code-abbrev idlwave-procedure)
0 t
)
(define-abbrev tb (concat c "r") "" (idlwave-code-abbrev idlwave-repeat)
0 t
)
(define-abbrev tb (concat c "w") "" (idlwave-code-abbrev idlwave-while)
0 t
)
(define-abbrev tb (concat c "i") "" (idlwave-code-abbrev idlwave-if)
0 t
)
(define-abbrev tb (concat c "elif") "" (idlwave-code-abbrev idlwave-elif)
0 t
)
;;
;; Keywords, system functions, conversion routines
;;
(define-abbrev tb (concat c "b") "begin" (idlwave-keyword-abbrev 0 t))
(define-abbrev tb (concat c "co") "common" (idlwave-keyword-abbrev 0 t))
(define-abbrev tb (concat c "cb") "byte()" (idlwave-keyword-abbrev 1))
(define-abbrev tb (concat c "cx") "fix()" (idlwave-keyword-abbrev 1))
(define-abbrev tb (concat c "cl") "long()" (idlwave-keyword-abbrev 1))
(define-abbrev tb (concat c "cf") "float()" (idlwave-keyword-abbrev 1))
(define-abbrev tb (concat c "cs") "string()" (idlwave-keyword-abbrev 1))
(define-abbrev tb (concat c "cc") "complex()" (idlwave-keyword-abbrev 1))
(define-abbrev tb (concat c "cd") "double()" (idlwave-keyword-abbrev 1))
(define-abbrev tb (concat c "e") "else" (idlwave-keyword-abbrev 0 t))
(define-abbrev tb (concat c "ec") "endcase" 'idlwave-show-begin)
(define-abbrev tb (concat c "es") "endswitch" 'idlwave-show-begin)
(define-abbrev tb (concat c "ee") "endelse" 'idlwave-show-begin)
(define-abbrev tb (concat c "ef") "endfor" 'idlwave-show-begin)
(define-abbrev tb (concat c "ei") "endif else if" 'idlwave-show-begin)
(define-abbrev tb (concat c "el") "endif else" 'idlwave-show-begin)
(define-abbrev tb (concat c "en") "endif" 'idlwave-show-begin)
(define-abbrev tb (concat c "er") "endrep" 'idlwave-show-begin)
(define-abbrev tb (concat c "ew") "endwhile" 'idlwave-show-begin)
(define-abbrev tb (concat c "g") "goto," (idlwave-keyword-abbrev 0 t))
(define-abbrev tb (concat c "h") "help," (idlwave-keyword-abbrev 0))
(define-abbrev tb (concat c "k") "keyword_set()" (idlwave-keyword-abbrev 1))
(define-abbrev tb (concat c "n") "n_elements()" (idlwave-keyword-abbrev 1))
(define-abbrev tb (concat c "on") "on_error," (idlwave-keyword-abbrev 0))
(define-abbrev tb (concat c "oi") "on_ioerror," (idlwave-keyword-abbrev 0 1))
(define-abbrev tb (concat c "ow") "openw," (idlwave-keyword-abbrev 0))
(define-abbrev tb (concat c "or") "openr," (idlwave-keyword-abbrev 0))
(define-abbrev tb (concat c "ou") "openu," (idlwave-keyword-abbrev 0))
(define-abbrev tb (concat c "p") "print," (idlwave-keyword-abbrev 0))
(define-abbrev tb (concat c "pt") "plot," (idlwave-keyword-abbrev 0))
(define-abbrev tb (concat c "re") "read," (idlwave-keyword-abbrev 0))
(define-abbrev tb (concat c "rf") "readf," (idlwave-keyword-abbrev 0))
(define-abbrev tb (concat c "ru") "readu," (idlwave-keyword-abbrev 0))
(define-abbrev tb (concat c "rt") "return" (idlwave-keyword-abbrev 0))
(define-abbrev tb (concat c "sc") "strcompress()" (idlwave-keyword-abbrev 1))
(define-abbrev tb (concat c "sn") "strlen()" (idlwave-keyword-abbrev 1))
(define-abbrev tb (concat c "sl") "strlowcase()" (idlwave-keyword-abbrev 1))
(define-abbrev tb (concat c "su") "strupcase()" (idlwave-keyword-abbrev 1))
(define-abbrev tb (concat c "sm") "strmid()" (idlwave-keyword-abbrev 1))
(define-abbrev tb (concat c "sp") "strpos()" (idlwave-keyword-abbrev 1))
(define-abbrev tb (concat c "st") "strput()" (idlwave-keyword-abbrev 1))
(define-abbrev tb (concat c "sr") "strtrim()" (idlwave-keyword-abbrev 1))
(define-abbrev tb (concat c "t") "then" (idlwave-keyword-abbrev 0 t))
(define-abbrev tb (concat c "u") "until" (idlwave-keyword-abbrev 0 t))
(define-abbrev tb (concat c "wu") "writeu," (idlwave-keyword-abbrev 0))
(define-abbrev tb (concat c "b") "begin" (idlwave-keyword-abbrev 0 t)
0 t
)
(define-abbrev tb (concat c "co") "common" (idlwave-keyword-abbrev 0 t)
0 t
)
(define-abbrev tb (concat c "cb") "byte()" (idlwave-keyword-abbrev 1)
0 t
)
(define-abbrev tb (concat c "cx") "fix()" (idlwave-keyword-abbrev 1)
0 t
)
(define-abbrev tb (concat c "cl") "long()" (idlwave-keyword-abbrev 1)
0 t
)
(define-abbrev tb (concat c "cf") "float()" (idlwave-keyword-abbrev 1)
0 t
)
(define-abbrev tb (concat c "cs") "string()" (idlwave-keyword-abbrev 1)
0 t
)
(define-abbrev tb (concat c "cc") "complex()" (idlwave-keyword-abbrev 1)
0 t
)
(define-abbrev tb (concat c "cd") "double()" (idlwave-keyword-abbrev 1)
0 t
)
(define-abbrev tb (concat c "e") "else" (idlwave-keyword-abbrev 0 t)
0 t
)
(define-abbrev tb (concat c "ec") "endcase" 'idlwave-show-begin
0 t
)
(define-abbrev tb (concat c "es") "endswitch" 'idlwave-show-begin
0 t
)
(define-abbrev tb (concat c "ee") "endelse" 'idlwave-show-begin
0 t
)
(define-abbrev tb (concat c "ef") "endfor" 'idlwave-show-begin
0 t
)
(define-abbrev tb (concat c "ei") "endif else if" 'idlwave-show-begin
0 t
)
(define-abbrev tb (concat c "el") "endif else" 'idlwave-show-begin
0 t
)
(define-abbrev tb (concat c "en") "endif" 'idlwave-show-begin
0 t
)
(define-abbrev tb (concat c "er") "endrep" 'idlwave-show-begin
0 t
)
(define-abbrev tb (concat c "ew") "endwhile" 'idlwave-show-begin
0 t
)
(define-abbrev tb (concat c "g") "goto," (idlwave-keyword-abbrev 0 t)
0 t
)
(define-abbrev tb (concat c "h") "help," (idlwave-keyword-abbrev 0)
0 t
)
(define-abbrev tb (concat c "k") "keyword_set()" (idlwave-keyword-abbrev 1)
0 t
)
(define-abbrev tb (concat c "n") "n_elements()" (idlwave-keyword-abbrev 1)
0 t
)
(define-abbrev tb (concat c "on") "on_error," (idlwave-keyword-abbrev 0)
0 t
)
(define-abbrev tb (concat c "oi") "on_ioerror," (idlwave-keyword-abbrev 0 1)
0 t
)
(define-abbrev tb (concat c "ow") "openw," (idlwave-keyword-abbrev 0)
0 t
)
(define-abbrev tb (concat c "or") "openr," (idlwave-keyword-abbrev 0)
0 t
)
(define-abbrev tb (concat c "ou") "openu," (idlwave-keyword-abbrev 0)
0 t
)
(define-abbrev tb (concat c "p") "print," (idlwave-keyword-abbrev 0)
0 t
)
(define-abbrev tb (concat c "pt") "plot," (idlwave-keyword-abbrev 0)
0 t
)
(define-abbrev tb (concat c "re") "read," (idlwave-keyword-abbrev 0)
0 t
)
(define-abbrev tb (concat c "rf") "readf," (idlwave-keyword-abbrev 0)
0 t
)
(define-abbrev tb (concat c "ru") "readu," (idlwave-keyword-abbrev 0)
0 t
)
(define-abbrev tb (concat c "rt") "return" (idlwave-keyword-abbrev 0)
0 t
)
(define-abbrev tb (concat c "sc") "strcompress()" (idlwave-keyword-abbrev 1)
0 t
)
(define-abbrev tb (concat c "sn") "strlen()" (idlwave-keyword-abbrev 1)
0 t
)
(define-abbrev tb (concat c "sl") "strlowcase()" (idlwave-keyword-abbrev 1)
0 t
)
(define-abbrev tb (concat c "su") "strupcase()" (idlwave-keyword-abbrev 1)
0 t
)
(define-abbrev tb (concat c "sm") "strmid()" (idlwave-keyword-abbrev 1)
0 t
)
(define-abbrev tb (concat c "sp") "strpos()" (idlwave-keyword-abbrev 1)
0 t
)
(define-abbrev tb (concat c "st") "strput()" (idlwave-keyword-abbrev 1)
0 t
)
(define-abbrev tb (concat c "sr") "strtrim()" (idlwave-keyword-abbrev 1)
0 t
)
(define-abbrev tb (concat c "t") "then" (idlwave-keyword-abbrev 0 t)
0 t
)
(define-abbrev tb (concat c "u") "until" (idlwave-keyword-abbrev 0 t)
0 t
)
(define-abbrev tb (concat c "wu") "writeu," (idlwave-keyword-abbrev 0)
0 t
)
(define-abbrev tb (concat c "ine") "if n_elements() eq 0 then"
(idlwave-keyword-abbrev 11))
(idlwave-keyword-abbrev 11)
0 t
)
(define-abbrev tb (concat c "inn") "if n_elements() ne 0 then"
(idlwave-keyword-abbrev 11))
(define-abbrev tb (concat c "np") "n_params()" (idlwave-keyword-abbrev 0))
(define-abbrev tb (concat c "s") "size()" (idlwave-keyword-abbrev 1))
(define-abbrev tb (concat c "wi") "widget_info()" (idlwave-keyword-abbrev 1))
(define-abbrev tb (concat c "wc") "widget_control," (idlwave-keyword-abbrev 0))
(idlwave-keyword-abbrev 11)
0 t
)
(define-abbrev tb (concat c "np") "n_params()" (idlwave-keyword-abbrev 0)
0 t
)
(define-abbrev tb (concat c "s") "size()" (idlwave-keyword-abbrev 1)
0 t
)
(define-abbrev tb (concat c "wi") "widget_info()" (idlwave-keyword-abbrev 1)
0 t
)
(define-abbrev tb (concat c "wc") "widget_control," (idlwave-keyword-abbrev 0)
0 t
)
;; This section is reserved words only. (From IDL user manual)
;;
(define-abbrev tb "and" "and" (idlwave-keyword-abbrev 0 t))
(define-abbrev tb "begin" "begin" (idlwave-keyword-abbrev 0 t))
(define-abbrev tb "break" "break" (idlwave-keyword-abbrev 0 t))
(define-abbrev tb "case" "case" (idlwave-keyword-abbrev 0 t))
(define-abbrev tb "common" "common" (idlwave-keyword-abbrev 0 t))
(define-abbrev tb "continue" "continue" (idlwave-keyword-abbrev 0 t))
(define-abbrev tb "do" "do" (idlwave-keyword-abbrev 0 t))
(define-abbrev tb "else" "else" (idlwave-keyword-abbrev 0 t))
(define-abbrev tb "end" "end" 'idlwave-show-begin-check)
(define-abbrev tb "endcase" "endcase" 'idlwave-show-begin-check)
(define-abbrev tb "endelse" "endelse" 'idlwave-show-begin-check)
(define-abbrev tb "endfor" "endfor" 'idlwave-show-begin-check)
(define-abbrev tb "endif" "endif" 'idlwave-show-begin-check)
(define-abbrev tb "endrep" "endrep" 'idlwave-show-begin-check)
(define-abbrev tb "endswitch" "endswitch" 'idlwave-show-begin-check)
(define-abbrev tb "endwhi" "endwhi" 'idlwave-show-begin-check)
(define-abbrev tb "endwhile" "endwhile" 'idlwave-show-begin-check)
(define-abbrev tb "eq" "eq" (idlwave-keyword-abbrev 0 t))
(define-abbrev tb "for" "for" (idlwave-keyword-abbrev 0 t))
(define-abbrev tb "function" "function" (idlwave-keyword-abbrev 0 t))
(define-abbrev tb "ge" "ge" (idlwave-keyword-abbrev 0 t))
(define-abbrev tb "goto" "goto" (idlwave-keyword-abbrev 0 t))
(define-abbrev tb "gt" "gt" (idlwave-keyword-abbrev 0 t))
(define-abbrev tb "if" "if" (idlwave-keyword-abbrev 0 t))
(define-abbrev tb "le" "le" (idlwave-keyword-abbrev 0 t))
(define-abbrev tb "lt" "lt" (idlwave-keyword-abbrev 0 t))
(define-abbrev tb "mod" "mod" (idlwave-keyword-abbrev 0 t))
(define-abbrev tb "ne" "ne" (idlwave-keyword-abbrev 0 t))
(define-abbrev tb "not" "not" (idlwave-keyword-abbrev 0 t))
(define-abbrev tb "of" "of" (idlwave-keyword-abbrev 0 t))
(define-abbrev tb "on_ioerror" "on_ioerror" (idlwave-keyword-abbrev 0 t))
(define-abbrev tb "or" "or" (idlwave-keyword-abbrev 0 t))
(define-abbrev tb "pro" "pro" (idlwave-keyword-abbrev 0 t))
(define-abbrev tb "repeat" "repeat" (idlwave-keyword-abbrev 0 t))
(define-abbrev tb "switch" "switch" (idlwave-keyword-abbrev 0 t))
(define-abbrev tb "then" "then" (idlwave-keyword-abbrev 0 t))
(define-abbrev tb "until" "until" (idlwave-keyword-abbrev 0 t))
(define-abbrev tb "while" "while" (idlwave-keyword-abbrev 0 t))
(define-abbrev tb "xor" "xor" (idlwave-keyword-abbrev 0 t)))
(define-abbrev tb "and" "and" (idlwave-keyword-abbrev 0 t)
0 t
)
(define-abbrev tb "begin" "begin" (idlwave-keyword-abbrev 0 t)
0 t
)
(define-abbrev tb "break" "break" (idlwave-keyword-abbrev 0 t)
0 t
)
(define-abbrev tb "case" "case" (idlwave-keyword-abbrev 0 t)
0 t
)
(define-abbrev tb "common" "common" (idlwave-keyword-abbrev 0 t)
0 t
)
(define-abbrev tb "continue" "continue" (idlwave-keyword-abbrev 0 t)
0 t
)
(define-abbrev tb "do" "do" (idlwave-keyword-abbrev 0 t)
0 t
)
(define-abbrev tb "else" "else" (idlwave-keyword-abbrev 0 t)
0 t
)
(define-abbrev tb "end" "end" 'idlwave-show-begin-check
0 t
)
(define-abbrev tb "endcase" "endcase" 'idlwave-show-begin-check
0 t
)
(define-abbrev tb "endelse" "endelse" 'idlwave-show-begin-check
0 t
)
(define-abbrev tb "endfor" "endfor" 'idlwave-show-begin-check
0 t
)
(define-abbrev tb "endif" "endif" 'idlwave-show-begin-check
0 t
)
(define-abbrev tb "endrep" "endrep" 'idlwave-show-begin-check
0 t
)
(define-abbrev tb "endswitch" "endswitch" 'idlwave-show-begin-check
0 t
)
(define-abbrev tb "endwhi" "endwhi" 'idlwave-show-begin-check
0 t
)
(define-abbrev tb "endwhile" "endwhile" 'idlwave-show-begin-check
0 t
)
(define-abbrev tb "eq" "eq" (idlwave-keyword-abbrev 0 t)
0 t
)
(define-abbrev tb "for" "for" (idlwave-keyword-abbrev 0 t)
0 t
)
(define-abbrev tb "function" "function" (idlwave-keyword-abbrev 0 t)
0 t
)
(define-abbrev tb "ge" "ge" (idlwave-keyword-abbrev 0 t)
0 t
)
(define-abbrev tb "goto" "goto" (idlwave-keyword-abbrev 0 t)
0 t
)
(define-abbrev tb "gt" "gt" (idlwave-keyword-abbrev 0 t)
0 t
)
(define-abbrev tb "if" "if" (idlwave-keyword-abbrev 0 t)
0 t
)
(define-abbrev tb "le" "le" (idlwave-keyword-abbrev 0 t)
0 t
)
(define-abbrev tb "lt" "lt" (idlwave-keyword-abbrev 0 t)
0 t
)
(define-abbrev tb "mod" "mod" (idlwave-keyword-abbrev 0 t)
0 t
)
(define-abbrev tb "ne" "ne" (idlwave-keyword-abbrev 0 t)
0 t
)
(define-abbrev tb "not" "not" (idlwave-keyword-abbrev 0
t 0
t))
(define-abbrev tb "of" "of" (idlwave-keyword-abbrev 0 t)
0 t
)
(define-abbrev tb "on_ioerror" "on_ioerror" (idlwave-keyword-abbrev 0 t)
0 t
)
(define-abbrev tb "or" "or" (idlwave-keyword-abbrev 0 t)
0 t
)
(define-abbrev tb "pro" "pro" (idlwave-keyword-abbrev 0 t)
0 t
)
(define-abbrev tb "repeat" "repeat" (idlwave-keyword-abbrev 0 t)
0 t
)
(define-abbrev tb "switch" "switch" (idlwave-keyword-abbrev 0
t 0
t))
(define-abbrev tb "then" "then" (idlwave-keyword-abbrev 0 t)
0 t
)
(define-abbrev tb "until" "until" (idlwave-keyword-abbrev 0 t)
0 t
)
(define-abbrev tb "while" "while" (idlwave-keyword-abbrev 0 t)
0 t
)
(define-abbrev tb "xor" "xor" (idlwave-keyword-abbrev 0 t)
0 t
))
(defvar imenu-create-index-function)
(defvar extract-index-name-function)
...
...
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