mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +00:00
Code Issues Releases Activity

(octave-abbrev-table): Mark all the predefined abbrevs as "system" abbrevs.

Browse Source
This commit is contained in:
Pavel Janík 2001-12-30 22:23:27 +00:00
parent 8bf2571864
commit 99158127ba
2 changed files with 40 additions and 31 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lisp/ChangeLog
View File

@ -1,3 +1,13 @@
2001-12-30 Pavel Jan,Bm(Bk <Pavel@Janik.cz>
* progmodes/octave-mod.el (octave-abbrev-table):
* progmodes/idlwave.el (idlwave-mode-abbrev-table):
* progmodes/fortran.el (fortran-mode-abbrev-table):
* progmodes/f90.el (f90-mode-abbrev-table):
* progmodes/vhdl-mode.el (vhdl-mode-abbrev-table-init):
* progmodes/sql.el (sql-mode-abbrev-table): Mark all the
predefined abbrevs as "system" abbrevs.
2001-12-30 Richard M. Stallman <rms@gnu.org>
* info.el (Info-fontify-node): For a **** underline line, put the

61
lisp/progmodes/octave-mod.el
View File

@ -56,40 +56,39 @@
(defvar octave-abbrev-table nil
"Abbrev table for Octave's reserved words.
Used in octave-mode and inferior-octave-mode buffers.
Used in `octave-mode' and inferior-octave-mode buffers.
All Octave abbrevs start with a grave accent (`).")
(if octave-abbrev-table
()
(unless 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)
(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 ?#