Mercurial > emacs
comparison lisp/progmodes/octave-mod.el @ 42445:3dbc8d04a492
(octave-abbrev-table): Mark all the predefined abbrevs as "system" abbrevs.
author | Pavel Janík <Pavel@Janik.cz> |
---|---|
date | Sun, 30 Dec 2001 22:20:58 +0000 |
parents | 7308bbc423d5 |
children | 5f47d61ffbdc |
comparison
equal
deleted
inserted
replaced
42444:732e0cda5c89 | 42445:3dbc8d04a492 |
---|---|
54 "Kurt Hornik <Kurt.Hornik@ci.tuwien.ac.at>, bug-gnu-emacs@gnu.org" | 54 "Kurt Hornik <Kurt.Hornik@ci.tuwien.ac.at>, bug-gnu-emacs@gnu.org" |
55 "Current maintainer of the Emacs Octave package.") | 55 "Current maintainer of the Emacs Octave package.") |
56 | 56 |
57 (defvar octave-abbrev-table nil | 57 (defvar octave-abbrev-table nil |
58 "Abbrev table for Octave's reserved words. | 58 "Abbrev table for Octave's reserved words. |
59 Used in octave-mode and inferior-octave-mode buffers. | 59 Used in `octave-mode' and inferior-octave-mode buffers. |
60 All Octave abbrevs start with a grave accent (`).") | 60 All Octave abbrevs start with a grave accent (`).") |
61 (if octave-abbrev-table | 61 (unless octave-abbrev-table |
62 () | |
63 (let ((ac abbrevs-changed)) | 62 (let ((ac abbrevs-changed)) |
64 (define-abbrev-table 'octave-abbrev-table ()) | 63 (define-abbrev-table 'octave-abbrev-table ()) |
65 (define-abbrev octave-abbrev-table "`a" "all_va_args" nil) | 64 (define-abbrev octave-abbrev-table "`a" "all_va_args" nil 0 t) |
66 (define-abbrev octave-abbrev-table "`b" "break" nil) | 65 (define-abbrev octave-abbrev-table "`b" "break" nil 0 t) |
67 (define-abbrev octave-abbrev-table "`cs" "case" nil) | 66 (define-abbrev octave-abbrev-table "`cs" "case" nil 0 t) |
68 (define-abbrev octave-abbrev-table "`ca" "catch" nil) | 67 (define-abbrev octave-abbrev-table "`ca" "catch" nil 0 t) |
69 (define-abbrev octave-abbrev-table "`c" "continue" nil) | 68 (define-abbrev octave-abbrev-table "`c" "continue" nil 0 t) |
70 (define-abbrev octave-abbrev-table "`el" "else" nil) | 69 (define-abbrev octave-abbrev-table "`el" "else" nil 0 t) |
71 (define-abbrev octave-abbrev-table "`eli" "elseif" nil) | 70 (define-abbrev octave-abbrev-table "`eli" "elseif" nil 0 t) |
72 (define-abbrev octave-abbrev-table "`et" "end_try_catch" nil) | 71 (define-abbrev octave-abbrev-table "`et" "end_try_catch" nil 0 t) |
73 (define-abbrev octave-abbrev-table "`eu" "end_unwind_protect" nil) | 72 (define-abbrev octave-abbrev-table "`eu" "end_unwind_protect" nil 0 t) |
74 (define-abbrev octave-abbrev-table "`ef" "endfor" nil) | 73 (define-abbrev octave-abbrev-table "`ef" "endfor" nil 0 t) |
75 (define-abbrev octave-abbrev-table "`efu" "endfunction" nil) | 74 (define-abbrev octave-abbrev-table "`efu" "endfunction" nil 0 t) |
76 (define-abbrev octave-abbrev-table "`ei" "endif" nil) | 75 (define-abbrev octave-abbrev-table "`ei" "endif" nil 0 t) |
77 (define-abbrev octave-abbrev-table "`es" "endswitch" nil) | 76 (define-abbrev octave-abbrev-table "`es" "endswitch" nil 0 t) |
78 (define-abbrev octave-abbrev-table "`ew" "endwhile" nil) | 77 (define-abbrev octave-abbrev-table "`ew" "endwhile" nil 0 t) |
79 (define-abbrev octave-abbrev-table "`f" "for" nil) | 78 (define-abbrev octave-abbrev-table "`f" "for" nil 0 t) |
80 (define-abbrev octave-abbrev-table "`fu" "function" nil) | 79 (define-abbrev octave-abbrev-table "`fu" "function" nil 0 t) |
81 (define-abbrev octave-abbrev-table "`gl" "global" nil) | 80 (define-abbrev octave-abbrev-table "`gl" "global" nil 0 t) |
82 (define-abbrev octave-abbrev-table "`gp" "gplot" nil) | 81 (define-abbrev octave-abbrev-table "`gp" "gplot" nil 0 t) |
83 (define-abbrev octave-abbrev-table "`gs" "gsplot" nil) | 82 (define-abbrev octave-abbrev-table "`gs" "gsplot" nil 0 t) |
84 (define-abbrev octave-abbrev-table "`if" "if ()" nil) | 83 (define-abbrev octave-abbrev-table "`if" "if ()" nil 0 t) |
85 (define-abbrev octave-abbrev-table "`o" "otherwise" nil) | 84 (define-abbrev octave-abbrev-table "`o" "otherwise" nil 0 t) |
86 (define-abbrev octave-abbrev-table "`rp" "replot" nil) | 85 (define-abbrev octave-abbrev-table "`rp" "replot" nil 0 t) |
87 (define-abbrev octave-abbrev-table "`r" "return" nil) | 86 (define-abbrev octave-abbrev-table "`r" "return" nil 0 t) |
88 (define-abbrev octave-abbrev-table "`s" "switch" nil) | 87 (define-abbrev octave-abbrev-table "`s" "switch" nil 0 t) |
89 (define-abbrev octave-abbrev-table "`t" "try" nil) | 88 (define-abbrev octave-abbrev-table "`t" "try" nil 0 t) |
90 (define-abbrev octave-abbrev-table "`up" "unwind_protect" nil) | 89 (define-abbrev octave-abbrev-table "`up" "unwind_protect" nil 0 t) |
91 (define-abbrev octave-abbrev-table "`upc" "unwind_protect_cleanup" nil) | 90 (define-abbrev octave-abbrev-table "`upc" "unwind_protect_cleanup" nil 0 t) |
92 (define-abbrev octave-abbrev-table "`w" "while ()" nil) | 91 (define-abbrev octave-abbrev-table "`w" "while ()" nil 0 t) |
93 (setq abbrevs-changed ac))) | 92 (setq abbrevs-changed ac))) |
94 | 93 |
95 (defvar octave-comment-char ?# | 94 (defvar octave-comment-char ?# |
96 "Character to start an Octave comment.") | 95 "Character to start an Octave comment.") |
97 (defvar octave-comment-start | 96 (defvar octave-comment-start |