Mercurial > emacs

comparison lisp/progmodes/octave-mod.el @ 42445:3dbc8d04a492

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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