[Emacs-diffs] Changes to emacs/lisp/progmodes/octave-mod.el

[Pavel Janík]

Index: emacs/lisp/progmodes/octave-mod.el
diff -c emacs/lisp/progmodes/octave-mod.el:1.18 
emacs/lisp/progmodes/octave-mod.el:1.19
*** emacs/lisp/progmodes/octave-mod.el:1.18     Thu Dec 20 13:16:17 2001
--- emacs/lisp/progmodes/octave-mod.el  Sun Dec 30 17:20:58 2001
***************
*** 56,95 ****
  
  (defvar octave-abbrev-table nil
    "Abbrev table for Octave's reserved words.
! Used in octave-mode and inferior-octave-mode buffers.
  All Octave abbrevs start with a grave accent (`).")
! (if octave-abbrev-table
!     ()
    (let ((ac abbrevs-changed))
      (define-abbrev-table 'octave-abbrev-table ())
!     (define-abbrev octave-abbrev-table "`a" "all_va_args" nil)
!     (define-abbrev octave-abbrev-table "`b" "break" nil)
!     (define-abbrev octave-abbrev-table "`cs" "case" nil)
!     (define-abbrev octave-abbrev-table "`ca" "catch" nil)
!     (define-abbrev octave-abbrev-table "`c" "continue" nil)
!     (define-abbrev octave-abbrev-table "`el" "else" nil)
!     (define-abbrev octave-abbrev-table "`eli" "elseif" nil)
!     (define-abbrev octave-abbrev-table "`et" "end_try_catch" nil)
!     (define-abbrev octave-abbrev-table "`eu" "end_unwind_protect" nil)
!     (define-abbrev octave-abbrev-table "`ef" "endfor" nil)
!     (define-abbrev octave-abbrev-table "`efu" "endfunction" nil)
!     (define-abbrev octave-abbrev-table "`ei" "endif" nil)
!     (define-abbrev octave-abbrev-table "`es" "endswitch" nil)
!     (define-abbrev octave-abbrev-table "`ew" "endwhile" nil)
!     (define-abbrev octave-abbrev-table "`f" "for" nil)
!     (define-abbrev octave-abbrev-table "`fu" "function" nil)
!     (define-abbrev octave-abbrev-table "`gl" "global" nil)
!     (define-abbrev octave-abbrev-table "`gp" "gplot" nil)
!     (define-abbrev octave-abbrev-table "`gs" "gsplot" nil)
!     (define-abbrev octave-abbrev-table "`if" "if ()" nil)
!     (define-abbrev octave-abbrev-table "`o" "otherwise" nil)
!     (define-abbrev octave-abbrev-table "`rp" "replot" nil)
!     (define-abbrev octave-abbrev-table "`r" "return" nil)
!     (define-abbrev octave-abbrev-table "`s" "switch" nil)
!     (define-abbrev octave-abbrev-table "`t" "try" nil)
!     (define-abbrev octave-abbrev-table "`up" "unwind_protect" nil)
!     (define-abbrev octave-abbrev-table "`upc" "unwind_protect_cleanup" nil)
!     (define-abbrev octave-abbrev-table "`w" "while ()" nil)
      (setq abbrevs-changed ac)))
  
  (defvar octave-comment-char ?#
--- 56,94 ----
  
  (defvar octave-abbrev-table nil
    "Abbrev table for Octave's reserved words.
! Used in `octave-mode' and inferior-octave-mode buffers.
  All Octave abbrevs start with a grave accent (`).")
! (unless octave-abbrev-table
    (let ((ac abbrevs-changed))
      (define-abbrev-table 'octave-abbrev-table ())
!     (define-abbrev octave-abbrev-table "`a" "all_va_args" nil 0 t)
!     (define-abbrev octave-abbrev-table "`b" "break" nil 0 t)
!     (define-abbrev octave-abbrev-table "`cs" "case" nil 0 t)
!     (define-abbrev octave-abbrev-table "`ca" "catch" nil 0 t)
!     (define-abbrev octave-abbrev-table "`c" "continue" nil 0 t)
!     (define-abbrev octave-abbrev-table "`el" "else" nil 0 t)
!     (define-abbrev octave-abbrev-table "`eli" "elseif" nil 0 t)
!     (define-abbrev octave-abbrev-table "`et" "end_try_catch" nil 0 t)
!     (define-abbrev octave-abbrev-table "`eu" "end_unwind_protect" nil 0 t)
!     (define-abbrev octave-abbrev-table "`ef" "endfor" nil 0 t)
!     (define-abbrev octave-abbrev-table "`efu" "endfunction" nil 0 t)
!     (define-abbrev octave-abbrev-table "`ei" "endif" nil 0 t)
!     (define-abbrev octave-abbrev-table "`es" "endswitch" nil 0 t)
!     (define-abbrev octave-abbrev-table "`ew" "endwhile" nil 0 t)
!     (define-abbrev octave-abbrev-table "`f" "for" nil 0 t)
!     (define-abbrev octave-abbrev-table "`fu" "function" nil 0 t)
!     (define-abbrev octave-abbrev-table "`gl" "global" nil 0 t)
!     (define-abbrev octave-abbrev-table "`gp" "gplot" nil 0 t)
!     (define-abbrev octave-abbrev-table "`gs" "gsplot" nil 0 t)
!     (define-abbrev octave-abbrev-table "`if" "if ()" nil 0 t)
!     (define-abbrev octave-abbrev-table "`o" "otherwise" nil 0 t)
!     (define-abbrev octave-abbrev-table "`rp" "replot" nil 0 t)
!     (define-abbrev octave-abbrev-table "`r" "return" nil 0 t)
!     (define-abbrev octave-abbrev-table "`s" "switch" nil 0 t)
!     (define-abbrev octave-abbrev-table "`t" "try" nil 0 t)
!     (define-abbrev octave-abbrev-table "`up" "unwind_protect" nil 0 t)
!     (define-abbrev octave-abbrev-table "`upc" "unwind_protect_cleanup" nil 0 
t)
!     (define-abbrev octave-abbrev-table "`w" "while ()" nil 0 t)
      (setq abbrevs-changed ac)))
  
  (defvar octave-comment-char ?#