lisp/progmodes/octave-mod.el

48   :link '(custom-group-link :tag "Font Lock Faces group" font-lock-faces)
105 (defvar octave-begin-keywords
107 (defvar octave-else-keywords
109 (defvar octave-end-keywords
114   (append octave-begin-keywords
115 	  octave-else-keywords
116 	  octave-end-keywords
171 (defvar octave-font-lock-keywords
173    ;; Fontify all builtin keywords.
178 	 'font-lock-keyword-face)
181 	 (if (boundp 'font-lock-builtin-face)
182 	     'font-lock-builtin-face
183 	   'font-lock-preprocessor-face))
188 	 'font-lock-variable-name-face)
191 	 '(1 font-lock-keyword-face)
192 	 '(3 font-lock-function-name-face nil t)))
330   "*Control the blinking of matching Octave block keywords.
342 	  (mapconcat 'identity octave-begin-keywords "\\|")
346 	  (mapconcat 'identity octave-else-keywords "\\|")
350 	  (mapconcat 'identity octave-end-keywords "\\|")
365   "Alist with Octave's matching block keywords.
366 Has Octave's begin keywords as keys and a list of the matching else or
367 end keywords as associated values.")
428 showing keywords, comments, strings, etc. in different faces (with
441 Type \\[list-abbrevs] to display the built-in abbrevs for Octave keywords.
499 To automatically turn on the abbrev, auto-fill and font-lock features,
507 		  (font-lock-mode 1))))
554   (make-local-variable 'font-lock-defaults)
555   (setq font-lock-defaults '(octave-font-lock-keywords nil nil))
992 Signal an error if the keywords are incompatible."
1033 	    (error "Block keywords `%s' and `%s' do not match"
1305 Maybe expand abbrevs and blink matching block open keywords.
1322 Maybe expand abbrevs and blink matching block open keywords.