changeset 42444:732e0cda5c89

(idlwave-mode-abbrev-table): Mark all the predefined abbrevs as "system" abbrevs.
author Pavel Janík <Pavel@Janik.cz>
date Sun, 30 Dec 2001 22:18:30 +0000
parents 6f5de421ceca
children 3dbc8d04a492
files lisp/progmodes/idlwave.el
diffstat 1 files changed, 100 insertions(+), 100 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/progmodes/idlwave.el	Sun Dec 30 22:16:42 2001 +0000
+++ b/lisp/progmodes/idlwave.el	Sun Dec 30 22:18:30 2001 +0000
@@ -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:54:29 $
+;; Date: $Date: 2001/12/20 18:14:39 $
 ;; Keywords: languages
 
 ;; This file is part of GNU Emacs.
@@ -1595,113 +1595,113 @@
   ;;
   ;; 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)