/[emacs]/emacs/lisp/progmodes/octave-mod.el
ViewVC logotype

Diff of /emacs/lisp/progmodes/octave-mod.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.18 by pj, Thu Dec 20 18:16:17 2001 UTC revision 1.19 by pj, Sun Dec 30 22:20:58 2001 UTC
# Line 56  Line 56 
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 ?#

Legend:
Removed from v.1.18  
changed lines
  Added in v.1.19

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26