56 |
|
|
57 |
(defvar octave-abbrev-table nil |
(defvar octave-abbrev-table nil |
58 |
"Abbrev table for Octave's reserved words. |
"Abbrev table for Octave's reserved words. |
59 |
Used in octave-mode and inferior-octave-mode buffers. |
Used in `octave-mode' and inferior-octave-mode buffers. |
60 |
All Octave abbrevs start with a grave accent (`).") |
All Octave abbrevs start with a grave accent (`).") |
61 |
(if octave-abbrev-table |
(unless octave-abbrev-table |
|
() |
|
62 |
(let ((ac abbrevs-changed)) |
(let ((ac abbrevs-changed)) |
63 |
(define-abbrev-table 'octave-abbrev-table ()) |
(define-abbrev-table 'octave-abbrev-table ()) |
64 |
(define-abbrev octave-abbrev-table "`a" "all_va_args" nil) |
(define-abbrev octave-abbrev-table "`a" "all_va_args" nil 0 t) |
65 |
(define-abbrev octave-abbrev-table "`b" "break" nil) |
(define-abbrev octave-abbrev-table "`b" "break" nil 0 t) |
66 |
(define-abbrev octave-abbrev-table "`cs" "case" nil) |
(define-abbrev octave-abbrev-table "`cs" "case" nil 0 t) |
67 |
(define-abbrev octave-abbrev-table "`ca" "catch" nil) |
(define-abbrev octave-abbrev-table "`ca" "catch" nil 0 t) |
68 |
(define-abbrev octave-abbrev-table "`c" "continue" nil) |
(define-abbrev octave-abbrev-table "`c" "continue" nil 0 t) |
69 |
(define-abbrev octave-abbrev-table "`el" "else" nil) |
(define-abbrev octave-abbrev-table "`el" "else" nil 0 t) |
70 |
(define-abbrev octave-abbrev-table "`eli" "elseif" nil) |
(define-abbrev octave-abbrev-table "`eli" "elseif" nil 0 t) |
71 |
(define-abbrev octave-abbrev-table "`et" "end_try_catch" nil) |
(define-abbrev octave-abbrev-table "`et" "end_try_catch" nil 0 t) |
72 |
(define-abbrev octave-abbrev-table "`eu" "end_unwind_protect" nil) |
(define-abbrev octave-abbrev-table "`eu" "end_unwind_protect" nil 0 t) |
73 |
(define-abbrev octave-abbrev-table "`ef" "endfor" nil) |
(define-abbrev octave-abbrev-table "`ef" "endfor" nil 0 t) |
74 |
(define-abbrev octave-abbrev-table "`efu" "endfunction" nil) |
(define-abbrev octave-abbrev-table "`efu" "endfunction" nil 0 t) |
75 |
(define-abbrev octave-abbrev-table "`ei" "endif" nil) |
(define-abbrev octave-abbrev-table "`ei" "endif" nil 0 t) |
76 |
(define-abbrev octave-abbrev-table "`es" "endswitch" nil) |
(define-abbrev octave-abbrev-table "`es" "endswitch" nil 0 t) |
77 |
(define-abbrev octave-abbrev-table "`ew" "endwhile" nil) |
(define-abbrev octave-abbrev-table "`ew" "endwhile" nil 0 t) |
78 |
(define-abbrev octave-abbrev-table "`f" "for" nil) |
(define-abbrev octave-abbrev-table "`f" "for" nil 0 t) |
79 |
(define-abbrev octave-abbrev-table "`fu" "function" nil) |
(define-abbrev octave-abbrev-table "`fu" "function" nil 0 t) |
80 |
(define-abbrev octave-abbrev-table "`gl" "global" nil) |
(define-abbrev octave-abbrev-table "`gl" "global" nil 0 t) |
81 |
(define-abbrev octave-abbrev-table "`gp" "gplot" nil) |
(define-abbrev octave-abbrev-table "`gp" "gplot" nil 0 t) |
82 |
(define-abbrev octave-abbrev-table "`gs" "gsplot" nil) |
(define-abbrev octave-abbrev-table "`gs" "gsplot" nil 0 t) |
83 |
(define-abbrev octave-abbrev-table "`if" "if ()" nil) |
(define-abbrev octave-abbrev-table "`if" "if ()" nil 0 t) |
84 |
(define-abbrev octave-abbrev-table "`o" "otherwise" nil) |
(define-abbrev octave-abbrev-table "`o" "otherwise" nil 0 t) |
85 |
(define-abbrev octave-abbrev-table "`rp" "replot" nil) |
(define-abbrev octave-abbrev-table "`rp" "replot" nil 0 t) |
86 |
(define-abbrev octave-abbrev-table "`r" "return" nil) |
(define-abbrev octave-abbrev-table "`r" "return" nil 0 t) |
87 |
(define-abbrev octave-abbrev-table "`s" "switch" nil) |
(define-abbrev octave-abbrev-table "`s" "switch" nil 0 t) |
88 |
(define-abbrev octave-abbrev-table "`t" "try" nil) |
(define-abbrev octave-abbrev-table "`t" "try" nil 0 t) |
89 |
(define-abbrev octave-abbrev-table "`up" "unwind_protect" nil) |
(define-abbrev octave-abbrev-table "`up" "unwind_protect" nil 0 t) |
90 |
(define-abbrev octave-abbrev-table "`upc" "unwind_protect_cleanup" nil) |
(define-abbrev octave-abbrev-table "`upc" "unwind_protect_cleanup" nil 0 t) |
91 |
(define-abbrev octave-abbrev-table "`w" "while ()" nil) |
(define-abbrev octave-abbrev-table "`w" "while ()" nil 0 t) |
92 |
(setq abbrevs-changed ac))) |
(setq abbrevs-changed ac))) |
93 |
|
|
94 |
(defvar octave-comment-char ?# |
(defvar octave-comment-char ?# |