;ELC ;;; Compiled by rms@psilocin.gnu.org on Mon Apr 20 00:06:20 1998 ;;; from file /gd/gnu/emacs/lisp/progmodes/octave-mod.el ;;; in Emacs version 20.2.91.4 ;;; with bytecomp version 2.40 ;;; with all optimizations. ;;; This file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`octave-mod.el' was compiled for Emacs 19.29 or later")) (byte-code "\305\306\307\310\311%\210\312\301!\204\307\301\nB\312\303!\204\307\303\nB\312\304!\204(\307\304\nB\307\207" [:group inferior-octave-output-list current-load-list inferior-octave-output-string inferior-octave-receive-in-progress custom-declare-group octave nil "Major mode for editing Octave source files." languages boundp] 6) #@49 Current maintainer of the Emacs Octave package. (defconst octave-maintainer-address "Kurt Hornik , bug-gnu-emacs@prep.ai.mit.edu" (#$ . 896)) #@147 Abbrev table for Octave's reserved words. Used in octave-mode and inferior-octave-mode buffers. All Octave abbrevs start with a grave accent (`). (defvar octave-abbrev-table nil (#$ . 1074)) (byte-code "\204\322 \303\300\304\"\210\305\306\307\304$\210\305\310\311\304$\210\305\312\313\304$\210\305\314\315\304$\210\305\316\317\304$\210\305\320\321\304$\210\305\322\323\304$\210\305\324\325\304$\210\305\326\327\304$\210\305\330\331\304$\210\305\332\333\304$\210\305\334\335\304$\210\305\336\337\304$\210\305\340\341\304$\210\305\342\343\304$\210\305\344\345\304$\210\305\346\347\304$\210\305\350\351\304$\210\305\352\353\304$\210\305\354\355\304$\210\305\356\357\304$\210\305\360\361\304$\210\305\362\363\304$\210\305\364\365\304$\210\305\366\367\304$\210\305\370\371\304$\210\305\372\373\304$\210\305\374\375\304$\210\n)\304\207" [octave-abbrev-table abbrevs-changed ac define-abbrev-table nil define-abbrev "`a" "all_va_args" "`b" "break" "`cs" "case" "`ca" "catch" "`c" "continue" "`el" "else" "`eli" "elseif" "`et" "end_try_catch" "`eu" "end_unwind_protect" "`ef" "endfor" "`efu" "endfunction" "`ei" "endif" "`es" "endswitch" "`ew" "endwhile" "`f" "for" "`fu" "function" "`gl" "global" "`gp" "gplot" "`gs" "gsplot" "`if" "if ()" "`o" "otherwise" "`rp" "replot" "`r" "return" "`s" "switch" "`t" "try" "`up" "unwind_protect" "`upc" "unwind_protect_cleanup" "`w" "while ()"] 5) #@39 Character to start an Octave comment. (defvar octave-comment-char 35 (#$ . 2491)) #@57 String to insert to start a new Octave in-line comment. (defvar octave-comment-start (byte-code "\301\302\"\303P\207" [octave-comment-char make-string 1 " "] 3) (#$ . 2579)) #@64 Regexp to match the start of an Octave comment up to its body. (defvar octave-comment-start-skip "\\s<+\\s-*" (#$ . 2760)) (byte-code "\304\300!\204\305\300 B\304\302!\204\306\302 B\304\303!\204 \307\303 B\304\207" [octave-begin-keywords current-load-list octave-else-keywords octave-end-keywords boundp ("for" "function" "if" "switch" "try" "unwind_protect" "while") ("case" "catch" "else" "elseif" "otherwise" "unwind_protect_cleanup") ("end" "endfor" "endfunction" "endif" "endswitch" "end_try_catch" "end_unwind_protect" "endwhile")] 2) #@27 Reserved words in Octave. (defvar octave-reserved-words (append octave-begin-keywords octave-else-keywords octave-end-keywords '("all_va_args" "break" "continue" "global" "gplot" "gsplot" "replot" "return")) (#$ . 3318)) #@59 Text functions in Octave (these names are also reserved). (defvar octave-text-functions '("casesen" "cd" "chdir" "clear" "diary" "dir" "document" "echo" "edit_history" "format" "gset" "gshow" "help" "history" "hold" "load" "ls" "more" "run_history" "save" "set" "show" "type" "which" "who" "whos") (#$ . 3545)) #@30 Builtin variables in Octave. (defvar octave-variables '("EDITOR" "EXEC_PATH" "F_DUPFD" "F_GETFD" "F_GETFL" "F_SETFD" "F_SETFL" "I" "IMAGEPATH" "INFO_FILE" "INFO_PROGRAM" "Inf" "J" "LOADPATH" "NaN" "OCTAVE_VERSION" "O_APPEND" "O_CREAT" "O_EXCL" "O_NONBLOCK" "O_RDONLY" "O_RDWR" "O_TRUNC" "O_WRONLY" "PAGER" "PS1" "PS2" "PS4" "PWD" "SEEK_CUR" "SEEK_END" "SEEK_SET" "__F_DUPFD__" "__F_GETFD__" "__F_GETFL__" "__F_SETFD__" "__F_SETFL__" "__I__" "__Inf__" "__J__" "__NaN__" "__OCTAVE_VERSION__" "__O_APPEND__" "__O_CREAT__" "__O_EXCL__" "__O_NONBLOCK__" "__O_RDONLY__" "__O_RDWR__" "__O_TRUNC__" "__O_WRONLY__" "__PWD__" "__SEEK_CUR__" "__SEEK_END__" "__SEEK_SET__" "__argv__" "__e__" "__eps__" "__error_text__" "__i__" "__inf__" "__j__" "__nan__" "__pi__" "__program_invocation_name__" "__program_name__" "__realmax__" "__realmin__" "__stderr__" "__stdin__" "__stdout__" "ans" "argv" "automatic_replot" "beep_on_error" "completion_append_char" "default_return_value" "default_save_format" "define_all_return_values" "do_fortran_indexing" "e" "echo_executing_commands" "empty_list_elements_ok" "eps" "error_text" "gnuplot_binary" "gnuplot_has_multiplot" "history_file" "history_size" "ignore_function_time_stamp" "implicit_str_to_num_ok" "inf" "nan" "nargin" "ok_to_lose_imaginary_part" "output_max_field_width" "output_precision" "page_output_immediately" "page_screen_output" "pi" "prefer_column_vectors" "prefer_zero_one_indexing" "print_answer_id_name" "print_empty_dimensions" "program_invocation_name" "program_name" "propagate_empty_matrices" "realmax" "realmin" "resize_on_range_error" "return_last_computed_value" "save_precision" "saving_history" "silent_functions" "split_long_rows" "stderr" "stdin" "stdout" "string_fill_char" "struct_levels_to_print" "suppress_verbose_help_message" "treat_neg_dim_as_zero" "warn_assign_as_truth_value" "warn_comma_in_global_decl" "warn_divide_by_zero" "warn_function_name_clash" "warn_missing_semicolon" "whitespace_in_literal_matrix") (#$ . 3862)) #@136 Regexp to match an Octave function header. The string `function' and its name are given by the first and third parenthetical grouping. (defvar octave-function-header-regexp "^\\s-*\\<\\(function\\)\\>\\([^=;\n]*=[ ]*\\|[ ]*\\)\\(\\w+\\)\\>" (#$ . 5860)) #@45 Additional Octave expressions to highlight. (defvar octave-font-lock-keywords (byte-code "\304\305\306\307#\305\306 \307#\310R\311B\312\313B\304\305\306\n\307#\310Q\314B \315\316EF\207" [octave-reserved-words octave-text-functions octave-variables octave-function-header-regexp "\\<\\(" mapconcat identity "\\|" "\\)\\>" font-lock-keyword-face "\\(&\\||\\|<=\\|>=\\|==\\|<\\|>\\|!=\\|!\\)" font-lock-builtin-face font-lock-variable-name-face (1 font-lock-keyword-face) (3 font-lock-function-name-face nil t)] 7) (#$ . 6122)) #@57 *Name of buffer for running an inferior Octave process. (custom-declare-variable 'inferior-octave-buffer '"*Inferior Octave*" '(#$ . -6654) :type 'string :group 'octave-inferior) (byte-code "\302\300!\204\303\300 B\303\207" [inferior-octave-process current-load-list boundp nil] 2) #@29 Keymap used in Octave mode. (defvar octave-mode-map nil (#$ . 6946)) (byte-code "\204\346\302 \303 \304\305#\210\303 \306\307#\210\303 \310\311#\210\303 \312\313#\210\303 \314\315#\210\303 \316\317#\210\303 \320\321#\210\303 \322\323#\210\303 \324\325#\210\303 \326\327#\210\303 \330\331#\210\303 \332\333#\210\303 \334\335#\210\303 \336\337#\210\303 \340\341#\210\303 \342\343#\210\303 \344\345#\210\303 \346\347#\210\303 \350\351#\210\303 \352\353#\210\303 \354\355#\210\303 \356\357#\210\303 \360\361#\210\303 \362\363#\210\303 \364\365#\210\303 \366\367#\210\303 \370\371#\210\303 \372\373#\210\303 \374\375#\210\303 \376\377#\210\303 \201@\201A#\210\303 \201B\201C#\210\303 \201D\201E#\210\303 \201F\201G#\210 )\302\207" [octave-mode-map map make-sparse-keymap define-key "`" octave-abbrev-start ";" octave-electric-semi " " octave-electric-space "\n" octave-reindent-then-newline-and-indent " " indent-according-to-mode ";" octave-indent-for-comment "\n" octave-indent-new-comment-line " " octave-complete-symbol "\201" octave-beginning-of-defun "\205" octave-end-of-defun "\210" octave-mark-defun "\221" octave-indent-defun ";" octave-comment-region ":" octave-uncomment-region "" octave-submit-bug-report "" octave-previous-code-line "" octave-next-code-line "" octave-beginning-of-line "" octave-end-of-line "\216" octave-forward-block "\220" octave-backward-block "\225" octave-backward-up-block "\204" octave-down-block "\210" octave-mark-block "]" octave-close-block "f" octave-insert-defun "" octave-help "il" octave-send-line "ib" octave-send-block "if" octave-send-defun "ir" octave-send-region "is" octave-show-process-buffer "ih" octave-hide-process-buffer "ik" octave-kill-process] 4) #@23 Menu for Octave mode. (defvar octave-mode-menu (byte-code "\300\301\302\303\304\305\306\257\307\310\311\312\313\314\315\257\316\317\320\321\322\323\257\324\325\326\327\330\331\332\333\334\257\324\335\336\324\337\340\324\341\324\342\343\257\207" ["Octave" "Lines" ["Previous Code Line" octave-previous-code-line t] ["Next Code Line" octave-next-code-line t] ["Begin of Continuation" octave-beginning-of-line t] ["End of Continuation" octave-end-of-line t] ["Split Line at Point" octave-indent-new-comment-line t] "Blocks" ["Next Block" octave-forward-block t] ["Previous Block" octave-backward-block t] ["Down Block" octave-down-block t] ["Up Block" octave-backward-up-block t] ["Mark Block" octave-mark-block t] ["Close Block" octave-close-block t] "Functions" ["Begin of Function" octave-beginning-of-defun t] ["End of Function" octave-end-of-defun t] ["Mark Function" octave-mark-defun t] ["Indent Function" octave-indent-defun t] ["Insert Function" octave-insert-defun t] "-" "Debug" ["Send Current Line" octave-send-line t] ["Send Current Block" octave-send-block t] ["Send Current Function" octave-send-defun t] ["Send Region" octave-send-region t] ["Show Process Buffer" octave-show-process-buffer t] ["Hide Process Buffer" octave-hide-process-buffer t] ["Kill Process" octave-kill-process t] ["Indent Line" indent-according-to-mode t] ["Complete Symbol" octave-complete-symbol t] ["Toggle Abbrev Mode" abbrev-mode t] ["Toggle Auto-Fill Mode" auto-fill-mode t] ["Submit Bug Report" octave-submit-bug-report t] ["Describe Octave Mode" octave-describe-major-mode t] ["Lookup Octave Index" octave-help t]] 17) (#$ . 8698)) #@45 Syntax table in use in octave-mode buffers. (defvar octave-mode-syntax-table nil (#$ . 10335)) (byte-code "\204\202\302 \303\304\305 #\210\303\306\307 #\210\303\310\307 #\210\303\311\307 #\210\303\312\307 #\210\303\313\307 #\210\303\314\307 #\210\303\315\307 #\210\303\316\307 #\210\303\317\307 #\210\303\320\307 #\210\303\321\322 #\210\303\323\307 #\210\303\324\325 #\210\303\326\327 #\210\303\330\325 #\210\303\331\325 #\210\303\332\307 #\210\303\333\334 #\210\303\335\336 #\210 )\302\207" [octave-mode-syntax-table table make-syntax-table modify-syntax-entry 13 " " 43 "." 45 61 42 47 62 60 38 124 33 92 "\\" 39 96 "w" 34 "\"" 46 95 37 35 "<" 10 ">"] 4) #@71 *Non-nil means indent line after a semicolon or space in Octave mode. (custom-declare-variable 'octave-auto-indent 'nil '(#$ . -11002) :type 'boolean :group 'octave :version "20.3") #@72 *Non-nil means automatically newline after a semicolon in Octave mode. (custom-declare-variable 'octave-auto-newline 'nil '(#$ . -11190) :type 'boolean :group 'octave) #@176 *Control the blinking of matching Octave block keywords. Non-nil means show matching begin of block when inserting a space, newline or semicolon after an else or end keyword. (custom-declare-variable 'octave-blink-matching-block 't '(#$ . -11365) :type 'boolean :group 'octave) #@70 *Extra indentation applied to statements in Octave block structures. (custom-declare-variable 'octave-block-offset '2 '(#$ . -11649) :type 'integer :group 'octave) (byte-code "\306\301!\204\307\310\311\312#\313Q\301\nB\306\304!\204\"\307\310\311 \312#\313Q\304\nB\306\314!\2046\307\310\311 \312#\313Q\f\314\nB\306\315!\204G \312\fQ \315\nB\306\316!\204X\f\312\fQ\316\nB\306\207" [octave-begin-keywords octave-block-begin-regexp current-load-list octave-else-keywords octave-block-else-regexp octave-end-keywords boundp "\\<\\(" mapconcat identity "\\|" "\\)\\>" octave-block-end-regexp octave-block-begin-or-end-regexp octave-block-else-or-end-regexp] 5) #@152 Alist with Octave's matching block keywords. Has Octave's begin keywords as keys and a list of the matching else or end keywords as associated values. (defvar octave-block-match-alist '(("for" "end" "endfor") ("function" "end" "endfunction") ("if" "else" "elseif" "end" "endif") ("switch" "case" "otherwise" "end" "endswitch") ("try" "catch" "end" "end_try_catch") ("unwind_protect" "unwind_protect_cleanup" "end" "end_unwind_protect") ("while" "end" "endwhile")) (#$ . 12331)) #@66 String to insert to start a new Octave comment on an empty line. (defvar octave-block-comment-start (byte-code "\301\302\"\303P\207" [octave-comment-char make-string 2 " "] 3) (#$ . 12815)) #@58 *Extra indentation applied to Octave continuation lines. (custom-declare-variable 'octave-continuation-offset '4 '(#$ . -13012) :type 'integer :group 'octave) (byte-code "\302\300!\204\303\300 B\302\207" [octave-continuation-regexp current-load-list boundp "[^#%\n]*\\(\\\\\\|\\.\\.\\.\\)\\s-*\\(\\s<.*\\)?$"] 2) #@68 *Character string used for Octave continuation lines. Normally \. (custom-declare-variable 'octave-continuation-string '"\\" '(#$ . -13335) :type 'string :group 'octave) #@225 Alist of Octave symbols for completion in Octave mode. Each element looks like (VAR . VAR), where the car and cdr are the same symbol (an Octave command or variable name). Currently, only builtin variables can be completed. (defvar octave-completion-alist nil (#$ . 13513)) #@68 Imenu expression for Octave mode. See `imenu-generic-expression'. (defvar octave-mode-imenu-generic-expression (byte-code "\301\302EC\207" [octave-function-header-regexp nil 3] 3) (#$ . 13793)) #@60 *Nil means do not display the Octave mode startup message. (custom-declare-variable 'octave-mode-startup-message 't '(#$ . -13995) :type 'boolean :group 'octave) #@46 *Hook to be run when Octave mode is started. (custom-declare-variable 'octave-mode-hook 'nil '(#$ . -14163) :type 'hook :group 'octave) #@70 *Non-nil means display `inferior-octave-buffer' after sending to it. (custom-declare-variable 'octave-send-show-buffer 't '(#$ . -14305) :type 'boolean :group 'octave) #@137 *Control auto-forward after sending to the inferior Octave process. Non-nil means always go to the next Octave code line after sending. (custom-declare-variable 'octave-send-line-auto-forward 't '(#$ . -14480) :type 'boolean :group 'octave) #@64 *Non-nil means echo input sent to the inferior Octave process. (custom-declare-variable 'octave-send-echo-input 't '(#$ . -14727) :type 'boolean :group 'octave) #@3033 Major mode for editing Octave code. This mode makes it easier to write Octave code by helping with indentation, doing some of the typing for you (with Abbrev mode) and by showing keywords, comments, strings, etc. in different faces (with Font Lock mode on terminals that support it). Octave itself is a high-level language, primarily intended for numerical computations. It provides a convenient command line interface for solving linear and nonlinear problems numerically. Function definitions can also be stored in files, and it can be used in a batch mode (which is why you need this mode!). The latest released version of Octave is always available via anonymous ftp from bevo.che.wisc.edu in the directory `/pub/octave'. Complete source and binaries for several popular systems are available. Type \[list-abbrevs] to display the built-in abbrevs for Octave keywords. Keybindings =========== \{octave-mode-map} Variables you can use to customize Octave mode ============================================== octave-auto-indent Non-nil means indent current line after a semicolon or space. Default is nil. octave-auto-newline Non-nil means auto-insert a newline and indent after a semicolon. Default is nil. octave-blink-matching-block Non-nil means show matching begin of block when inserting a space, newline or semicolon after an else or end keyword. Default is t. octave-block-offset Extra indentation applied to statements in block structures. Default is 2. octave-continuation-offset Extra indentation applied to Octave continuation lines. Default is 4. octave-continuation-string String used for Octave continuation lines. Default is a backslash. octave-mode-startup-message Nil means do not display the Octave mode startup message. Default is t. octave-send-echo-input Non-nil means always display `inferior-octave-buffer' after sending a command to the inferior Octave process. octave-send-line-auto-forward Non-nil means always go to the next unsent line of Octave code after sending a line to the inferior Octave process. octave-send-echo-input Non-nil means echo input sent to the inferior Octave process. Turning on Octave mode runs the hook `octave-mode-hook'. To begin using this mode for all `.m' files that you edit, add the following lines to your `.emacs' file: (autoload 'octave-mode "octave-mod" nil t) (setq auto-mode-alist (cons '("\\.m$" . octave-mode) auto-mode-alist)) To automatically turn on the abbrev, auto-fill and font-lock features, add the following lines to your `.emacs' file as well: (add-hook 'octave-mode-hook (lambda () (abbrev-mode 1) (auto-fill-mode 1) (if (eq window-system 'x) (font-lock-mode 1)))) To submit a problem report, enter \[octave-submit-bug-report] from an Octave mode buffer. This automatically sets up a mail buffer with version information already added. You just need to add a description of the problem, including a reproducible test case and send the message. (defalias 'octave-mode #[nil "\306 \210\307!\210\310\311 \312 !\210\313\314!\210\315\f\313\316!\210,\313\317!\210\320\313\321!\210\322\313\323!\210\324\313\325!\210\326\313\327!\210\330\313\331!\210\332-P\313\333!\210\313\334!\210\330\313\335!\210\336\313\337!\210\340\313\341!\210\342!\313\343!\210\344#\313\345!\210\346%\313\347!\210.'\340/\350 \210\351 \210\352\353!\207" [octave-mode-map major-mode mode-name octave-abbrev-table local-abbrev-table octave-mode-syntax-table kill-all-local-variables use-local-map octave-mode "Octave" set-syntax-table make-local-variable indent-line-function octave-indent-line comment-start comment-end "" comment-column 32 comment-start-skip "\\s<+\\s-*" comment-indent-function octave-comment-indent parse-sexp-ignore-comments t paragraph-start "\\s-*$\\|" paragraph-separate paragraph-ignore-fill-prefix fill-paragraph-function octave-fill-paragraph adaptive-fill-regexp nil fill-column 72 normal-auto-fill-function octave-auto-fill font-lock-defaults (octave-font-lock-keywords nil nil) imenu-generic-expression octave-add-octave-menu octave-initialize-completions run-hooks octave-mode-hook octave-comment-start page-delimiter octave-mode-imenu-generic-expression imenu-case-fold-search] 2 (#$ . 14896) nil]) #@34 Describe the current major mode. (defalias 'octave-describe-major-mode #[nil "\301!\207" [major-mode describe-function] 2 (#$ . 19222) nil]) #@50 Returns the value of point at certain positions. (defalias 'octave-point #[(position) "\212\301=\203 \302y\210\202B\303=\203\304\210\202B\305=\203%\306 \210\202B\307=\2031\310y\210\202B\311=\203=\312y\210\202B\313\314\"\210`)\207" [position bol 0 eol nil boi back-to-indentation bonl 1 bopl -1 error "unknown buffer position requested: %s"] 3 (#$ . 19370)]) #@64 Returns t if point is inside an Octave comment, nil otherwise. (defalias 'octave-in-comment-p #[nil "\212\300\301\302\303!`\"8)\207" [4 parse-partial-sexp octave-point bol] 4 (#$ . 19752) nil]) (put 'octave-in-comment-p 'byte-optimizer 'byte-compile-inline-expand) #@63 Returns t if point is inside an Octave string, nil otherwise. (defalias 'octave-in-string-p #[nil "\212\300\301\302\303!`\"8)\207" [3 parse-partial-sexp octave-point bol] 4 (#$ . 20023) nil]) (put 'octave-in-string-p 'byte-optimizer 'byte-compile-inline-expand) #@64 Returns t iff point is not inside an Octave string or comment. (defalias 'octave-not-in-string-or-comment-p #[nil "\301\302\303!`\"\3048\206\3058)?\207" [pps parse-partial-sexp octave-point bol 3 4] 3 (#$ . 20291)]) (put 'octave-not-in-string-or-comment-p 'byte-optimizer 'byte-compile-inline-expand) #@165 Returns t if point is inside an Octave block, nil otherwise. The block is taken to start at the first letter of the begin keyword and to end after the end keyword. (defalias 'octave-in-block-p #[nil "`\212\301\302\303\217\210`W*\207" [pos nil (byte-code "\300\301!\210\302\303!\210\304 \207" [skip-syntax-forward "w" octave-up-block -1 octave-forward-block] 2) ((error))] 3 (#$ . 20604)]) #@153 Returns t iff point is inside an Octave function declaration. The function is taken to start at the `f' of `function' and to end after the end keyword. (defalias 'octave-in-defun-p #[nil "`\212\302\303!\203\304\305\306!`\"\307 8\206\310 8)?\206-\311 \205-\312\313\314\217\205-`W*\207" [pos pps looking-at "\\" parse-partial-sexp octave-point bol 3 4 octave-beginning-of-defun nil (byte-code "\300 \210\301\207" [octave-forward-block t] 1) ((error))] 3 (#$ . 21002)]) (defalias 'octave-maybe-insert-continuation-string #[nil "\212\302\303\304\305!`\"8)\206\212\306y\210\307!)?\205 \310 \210\311 Pc\207" [octave-continuation-regexp octave-continuation-string 4 parse-partial-sexp octave-point bol 0 looking-at delete-horizontal-space " "] 4]) #@84 Comment or uncomment each line in the region as Octave code. See `comment-region'. (defalias 'octave-comment-region #[(beg end &optional arg) "\305!\306\n \f#)\207" [octave-comment-char comment-start beg end arg char-to-string comment-region] 4 (#$ . 21775) "r\nP"]) #@51 Uncomment each line in the region as Octave code. (defalias 'octave-uncomment-region #[(beg end &optional arg) "\204\303\304 \n[#\207" [arg beg end 1 octave-comment-region] 4 (#$ . 22050) "r\nP"]) #@284 Return appropriate indentation for current line as Octave code. Returns an integer (the column to indent to) unless the line is a comment line with fixed goal golumn. In that case, returns a list whose car is the column to indent to, and whose cdr is the current indentation level. (defalias 'calculate-octave-indent #[nil "\212\306 \307U\205 \310!)\307\212\307y\210\311\312\313\217\203 iT\202\247\306 \307U\203\247\314 \210\315 \210i`\316\303!` W\203\235\317\316\320!`\"\321 8\206K\322 8)\204\227\310\323!\203a \211\\\307\\\\\202\227\310!\203p \\\202\227\310!\203\205\f`U\203\227 \\\202\227\310!\203\227\f`U\204\227 \324 Z\311u\210\2025*\n\203\247 \\)\212\315 \210\310!\203\317\317\316\320!`\"\321 8\206\303\322 8)\204\317 Z\202\310!\203\362\317\316\320!`\"\321 8\206\346\322 8)\204\362 \324 Z\202\310\325!\204\375\326 \203\307 D\202\310\327!\203 D) *\207" [octave-continuation-regexp icol is-continuation-line eol bot pps octave-previous-code-line 0 looking-at nil (byte-code "\300\301!\210\302\207" [up-list -1 t] 2) ((error)) octave-beginning-of-line back-to-indentation octave-point parse-partial-sexp bol 3 4 "\\" octave-block-end-offset "\\s<\\s<\\s<\\S<" octave-before-magic-comment-p "\\s<\\S<" octave-block-offset octave-block-begin-regexp octave-block-else-regexp octave-block-end-regexp octave-continuation-offset comment-column] 3 (#$ . 22259)]) (defalias 'octave-block-end-offset #[nil "\212\301\302!\210\303\304\305!\306\"\203\307\202\302_)\207" [octave-block-offset octave-backward-up-block 1 string-match match-string 0 "switch" 2] 4]) (defalias 'octave-before-magic-comment-p #[nil "\212\300y\210o\205 \301\302!)\207" [0 looking-at "\\s-*#!"] 2]) (defalias 'octave-comment-indent #[nil "\301\302!\204 \303 \203 \304\207\301\305!\203\306 \207\307\310!\210n\203\"\304\202$iT]\207" [comment-column looking-at "\\s<\\s<\\s<" octave-before-magic-comment-p 0 "\\s<\\s<" calculate-octave-indent skip-syntax-backward " "] 2]) #@316 Maybe insert and indent an Octave comment. If there is no comment already on this line, create a code-level comment (started by two comment characters) if the line is empty, or an in-line comment (started by one comment character) otherwise. Point is left after the start of the comment which is properly aligned. (defalias 'octave-indent-for-comment #[nil "\300 \210\301 \207" [indent-for-comment indent-according-to-mode] 1 (#$ . 24302) nil]) #@129 Indent current line as Octave code. With optional ARG, use this as offset unless this line is a comment with fixed goal column. (defalias 'octave-indent-line #[(&optional arg) "\204\303\304 i\305 Z\211<\203\n@\202\n\\\n\303W\203)\306\307!\2028\310\n!\210 \303V\2058\311\n \\!*\207" [arg relpos icol 0 calculate-octave-indent current-indentation error "Unmatched end keyword" indent-line-to move-to-column] 4 (#$ . 24755) nil]) #@217 Break Octave line at point, continuing comment if within one. If within code, insert `octave-continuation-string' before breaking the line. If within a string, signal an error. The new line is properly indented. (defalias 'octave-indent-new-comment-line #[nil "\301 \210\212\302\303\304\305!`\"8)\203\306 \207\212\307\303\304\305!`\"8)\203$\310\311!\207\312Pc\210\313 \207" [octave-continuation-string delete-horizontal-space 4 parse-partial-sexp octave-point bol indent-new-comment-line 3 error "Cannot split a code line inside a string" " " octave-reindent-then-newline-and-indent] 4 (#$ . 25205) nil]) #@60 Properly indents the Octave function which contains point. (defalias 'octave-indent-defun #[nil "\212\300 \210\301\302!\210\303`\304 \305#\210)\301\306!\207" [octave-mark-defun message "Indenting function..." indent-region mark nil "Indenting function...done."] 4 (#$ . 25824) nil]) #@205 Move ARG lines of Octave code forward (backward if ARG is negative). Skips past all empty and comment lines. Default for ARG is 1. On success, return 0. Otherwise, go as far as possible and return -1. (defalias 'octave-next-code-line #[(&optional arg) "\204\303\304y\210\304\304V\203\303\202\305\304U\204A\n\304U\203A y\211\304U\2039\306\307!\2039 y\211\202' Z\211\202\n*\207" [arg inc n 1 0 -1 looking-at "\\s-*\\($\\|\\s<\\)"] 4 (#$ . 26114) "p"]) #@205 Move ARG lines of Octave code backward (forward if ARG is negative). Skips past all empty and comment lines. Default for ARG is 1. On success, return 0. Otherwise, go as far as possible and return -1. (defalias 'octave-previous-code-line #[(&optional arg) "\204\301\302[!\207" [arg 1 octave-next-code-line] 2 (#$ . 26597) "p"]) #@336 Move point to beginning of current Octave line. If on an empty or comment line, go to the beginning of that line. Otherwise, move backward to the beginning of the first Octave code line which is not inside a continuation statement, i.e., which does not follow a code line ending in `...' or `\', or is inside an open parenthesis list. (defalias 'octave-beginning-of-line #[nil "\301y\210\302\303!?\2050\304\305\306\217\204\n\302\303!\204&\212\307 \301U\205\"\302!)\2050\310y\301U\2050\202\n\207" [octave-continuation-regexp 0 looking-at "\\s-*\\($\\|\\s<\\)" nil (byte-code "\300\301!\210\302y\210\303\207" [up-list -1 0 t] 2) ((error)) octave-previous-code-line -1] 3 (#$ . 26940) nil]) #@242 Move point to end of current Octave line. If on an empty or comment line, go to the end of that line. Otherwise, move forward to the end of the first Octave code line which does not end in `...' or `\' or is inside an open parenthesis list. (defalias 'octave-end-of-line #[nil "\301\210\212\302y\210\303\304!)?\2050\301\305\306\217\204\212\302y\210\303\304!\206#\303!)\203.\307y\302U\204\301\207" [octave-continuation-regexp nil 0 looking-at "\\s-*\\($\\|\\s<\\)" (byte-code "\300\301!\210\302\210\303\207" [up-list 1 nil t] 2) ((error)) 1] 3 (#$ . 27643) nil]) #@398 Scan from character number FROM by COUNT Octave begin-end blocks. Returns the character number of the position thus found. If DEPTH is nonzero, block depth begins counting from that value. Only places where the depth in blocks becomes zero are candidates for stopping; COUNT such places are counted. If the beginning or end of the buffer is reached and the depth is wrong, an error is signaled. (defalias 'octave-scan-blocks #[(from count depth) "\304V\203\n\304\202  \304V\203\305\202\306\212 \304U\204+\307\310\215\210 \nZ\211\202`+\207" [depth count inc min-depth 0 1 -1 foo (byte-code "\305\306\307 $\204\n\310U\204V\311\312!\203V\313\314\315!`\"\316 8\206%\317 8)\204\320\225\2035\n \\\202>\321\225\203>\n Z\n\fW\203H\311\322!\210\n\310U\203\323\324\306\"\210\202\306\207" [octave-block-begin-or-end-regexp inc depth pps min-depth re-search-forward nil move 0 error "Unbalanced block" parse-partial-sexp octave-point bol 3 4 1 2 "Containing expression ends prematurely" throw foo] 5)] 4 (#$ . 28223)]) #@149 Move forward across one balanced Octave begin-end block. With argument, do it that many times. Negative arg -N means move backward across N blocks. (defalias 'octave-forward-block #[(&optional arg) "\204\301\302`\303#\206\304!b\207" [arg 1 octave-scan-blocks 0 buffer-end] 4 (#$ . 29272) "p"]) #@149 Move backward across one balanced Octave begin-end block. With argument, do it that many times. Negative arg -N means move forward across N blocks. (defalias 'octave-backward-block #[(&optional arg) "\204\301\302[!\207" [arg 1 octave-forward-block] 2 (#$ . 29581) "p"]) #@211 Move forward down one begin-end block level of Octave code. With argument, do this that many times. A negative argument means move backward but still go down a level. In Lisp programs, an argument is required. (defalias 'octave-down-block #[(arg) "\302V\203\n\303\202 \304\302U?\205(\305` \304#\206\306!b\210 Z\211\202 )\207" [arg inc 0 1 -1 octave-scan-blocks buffer-end] 5 (#$ . 29863) "p"]) #@217 Move backward out of one begin-end block level of Octave code. With argument, do this that many times. A negative argument means move forward but still to a less deep spot. In Lisp programs, an argument is required. (defalias 'octave-backward-up-block #[(arg) "\301[!\207" [arg octave-up-block] 2 (#$ . 30276) "p"]) #@217 Move forward out of one begin-end block level of Octave code. With argument, do this that many times. A negative argument means move backward but still to a less deep spot. In Lisp programs, an argument is required. (defalias 'octave-up-block #[(arg) "\302V\203\n\303\202 \304\302U?\205(\305` \303#\206\306!b\210 Z\211\202 )\207" [arg inc 0 1 -1 octave-scan-blocks buffer-end] 5 (#$ . 30600) "p"]) #@133 Put point at the beginning of this Octave block, mark at the end. The block marked is the one that contains point or follows point. (defalias 'octave-mark-block #[nil "`\301 \203 \302\303!\204\304\305\306\217\203$\307\310!\210\311`!\210\312 \210\313 \202*b\210\314\315!)\207" [pos octave-in-block-p skip-syntax-forward "w" nil (byte-code "\300\301!\210\302 \207" [octave-down-block 1 octave-in-block-p] 2) ((error)) octave-up-block -1 push-mark octave-forward-block exchange-point-and-mark message "No block to mark found"] 3 (#$ . 31017) nil]) #@104 Close the current Octave block on a separate line. An error is signaled if no block to close is found. (defalias 'octave-close-block #[nil "\301\301\302\303\217)\207" [bb-keyword nil (byte-code "\212\302\303!\210\304\303\224\303\225\")\212\305y\210\306\307!)\203\310 \210\202!\311 \210\312\313 \"!@c\210\311 \210\314\207" [bb-keyword octave-block-match-alist octave-backward-up-block 1 buffer-substring-no-properties 0 looking-at "^\\s-*$" indent-according-to-mode octave-reindent-then-newline-and-indent reverse assoc t] 4) ((error (message "No block to close found")))] 3 (#$ . 31576) nil]) #@224 Blink the matching Octave begin block keyword. If point is right after an Octave else or end type block keyword, move cursor momentarily to the corresponding begin keyword. Signal an error if the keywords are incompatible. (defalias 'octave-blink-matching-block-open #[nil "\306\211\211\211\211\307\310\311!`\"\312 8\206\313 8)?\205\260\314\315!\205\260\212\316\317!\210\314 !)\205\260\212\320\225\203F\321\320\224\320\225\"\322\320!\210\202U\323\225\203U\321\323\224\323\225\"\324 \210\325\225\321\325\224 \" T\310\300!\212\214 b\210\326\327\"\203\203\212\312\307\310\311!`\"8)\203\203\320u\203j\316\330!\210\321 `\"*\n\331\f!\"A\235\203\252\332\333\f #\210\334 \205\257\335\"!\202\257\336\337\f\n#)-\207" [eol pos eb-keyword bb-arg bb-keyword pps nil parse-partial-sexp octave-point bol 3 4 looking-at "\\>" skip-syntax-backward "w" 1 buffer-substring-no-properties octave-backward-up-block 2 octave-backward-block 0 skip-syntax-forward "^<" " " assoc message "Matches `%s %s'" pos-visible-in-window-p sit-for error "Block keywords `%s' and `%s' do not match" octave-block-else-or-end-regexp octave-block-match-alist blink-matching-delay] 5 (#$ . 32182) nil]) #@249 Move backward to the beginning of an Octave function. With positive ARG, do it that many times. Negative argument -N means move forward to Nth following beginning of a function. Returns t unless search stops at the beginning or end of the buffer. (defalias 'octave-beginning-of-defun #[(&optional arg) "\206\304\211\305V\203\304\202\306\307m\204(\305V\203$\310\311!\204(\312\313!\210\305U\204U\314\311\307\315 $\211\203U\316\317\320!`\"\321 8\206I\322 8)\204( Z\211\202)\n\205d \305W\203c\305\224b\210\323+\207" [arg inc found pps 1 0 -1 nil looking-at "\\" skip-syntax-forward "w" re-search-backward move parse-partial-sexp octave-point bol 3 4 t] 6 (#$ . 33382) "p"]) #@279 Move forward to the end of an Octave function. With positive ARG, do it that many times. Negative argument -N means move back to Nth preceding end of a function. An end of a function occurs right after the end keyword matching the `function' keyword that starts the function. (defalias 'octave-end-of-defun #[(&optional arg) "\204\301\302W\203\303\304!\210\302V\203\305\304!\210\306 \203\"S\302U\203*\307\310[!\2053\311 \207" [arg 1 0 skip-syntax-backward "w" skip-syntax-forward octave-in-defun-p -1 octave-beginning-of-defun octave-forward-block] 2 (#$ . 34098) "p"]) #@138 Put point at the beginning of this Octave function, mark at its end. The function marked is the one containing point or following point. (defalias 'octave-mark-defun #[nil "`\301 \204\302\303!\203%\301 \203%\304\305!\210\302 \210\306`!\210\307 \210\310 \202+b\210\311\312!)\207" [pos octave-in-defun-p octave-beginning-of-defun -1 skip-syntax-forward "w" push-mark octave-end-of-defun exchange-point-and-mark message "No function to mark found"] 2 (#$ . 34695) nil]) #@119 Perform auto-fill in Octave mode. Returns nil if no feasible place to break the line could be found, and t otherwise. (defalias 'octave-auto-fill #[nil "\306\211\307 \211?\206\212\310y\210\n\205\311\n!)?\205\320\212\312\313\314\315!`\"8)\2045i V\2035 GTZ\204\316i V\203\316`\212\316 T!\210\317\306x\210n\203U\320\321\f\322#\210\212\323\324!\210n)\203g\320\321\314\325!\326#\210\212\312\313\314\315!`\"8)\204\202\311\327\330 !\331Q!\203\202\306\210\332\306x\210`)\212 b\210n\206\222l)\204\310i\212\332\306x\210` U)\203\257\333 \210\334\322!\210\202\273\212 b\210\333 \210\334\322!\210)iY\203\304\322)\202\312\322*\2025?*\207" [give-up fc auto-fill-inhibit-regexp octave-continuation-string opoint fpoint nil current-fill-column 0 looking-at 4 parse-partial-sexp octave-point bol move-to-column "^ \n" re-search-forward "[ ]" t skip-syntax-backward " <" eol move "\\s-*" regexp-quote "\\s-*$" " " octave-maybe-insert-continuation-string indent-new-comment-line prev-column] 4 (#$ . 35176)]) #@58 Fill paragraph of Octave code, handling Octave comments. (defalias 'octave-fill-paragraph #[(&optional arg) "\212\305 \210`\305\306!\210\307\310w\210\311y\210`\312 \313 \310\214 b\210 \f}\210 <\203, A@m\204\353\310\314\315\217\210 \311V\203H\212\311y\210\316\317!)\204H\311\320\n!\210i\nW\203\274\212\321\322\323\324!`\"8)\203\274\212\311y\210\316\325!)\204\274\212\311y\210\326\327!\203\201\212\321\322\323\324!`\"8)\203n\330\311!)i\nW\203\274\212\331y\210\316\332\333Q!\205\240\316\332\334Q!?)\203\274\335\331!\210\326!\210\311\224\311\225|\210\336 \210\320\n!\210\202\206\337\310w\210\340 \210i\nW\204\323i\nU\203\331l\203\331\331y\210\202,l\204\340\341c\210\342 \204,\331y\210\202,.\343\207" [comment-prefix ind cfc beg end forward-paragraph -1 " \n" nil 0 current-fill-column calculate-octave-indent (octave-indent-line ind) ((error)) looking-at "^\\s-*\\($\\|\\s<+\\)" move-to-column 4 parse-partial-sexp octave-point bol "^\\s-*\\s<+\\s-*$" re-search-forward "\\s<+" match-string 1 "^\\s-*" "\\S<" "\\s-*$" delete-char fixup-whitespace "^ \n" delete-horizontal-space " " octave-auto-fill t] 5 (#$ . 36210) "P"]) #@41 Create an alist for Octave completions. (defalias 'octave-initialize-completions #[nil "?\205\304\305\306 \n #\"\211\207" [octave-completion-alist octave-reserved-words octave-text-functions octave-variables mapcar #[(var) "\211B\207" [var] 2] append] 6 (#$ . 37369)]) #@129 Perform completion on Octave symbol preceding point. Compare that symbol against Octave's reserved words and builtin variables. (defalias 'octave-complete-symbol #[nil "`\212\306\307!\210`)\310 \"\311\n \"\211\312=\206\267\f\204(\313\314\n\"\210\315 \202\267\n\f\230\2047 |\210\fc\202\267\316\n \"\317 \313\320!\210\321\220\322!\221\210\313\323!\210\324\211 \212\325\321!q\210\326\324!\211 \327H\211:\205\223\211!A@):\205\223\330\211!A@)\211\"@)!\325\321!=\205\223\331 !\332=)\203\242\332!\210\333 !\202\266\334=\203\257\333 !\202\266\335 !\211#,,\207" [end beg string octave-completion-alist completion conf backward-sexp 1 buffer-substring-no-properties try-completion t message "Can't find completion for \"%s\"" ding all-completions current-window-configuration "Making completion list..." "*Completions*" display-completion-list "Hit space to flush" nil get-buffer read-key-sequence 0 window-buffer key-binding mouse-choose-completion set-window-configuration 32 listify-key-sequence list first key event position unread-command-events] 4 (#$ . 37650) nil]) #@116 Reindent current Octave line, insert newline, and indent the new line. If Abbrev mode is on, expand abbrevs first. (defalias 'octave-reindent-then-newline-and-indent #[nil "\203\302 \210 \203\303 \210\212`\304\305x\210`|\210\306 \210)\307c\210\306 \207" [abbrev-mode octave-blink-matching-block expand-abbrev octave-blink-matching-block-open " " nil indent-according-to-mode "\n"] 3 (#$ . 38763) nil]) #@205 Insert a semicolon in Octave mode. Maybe expand abbrevs and blink matching block open keywords. Reindent the line of `octave-auto-indent' is non-nil. Insert a newline if `octave-auto-newline' is non-nil. (defalias 'octave-electric-semi #[nil "\305\306\307!`\"\3108\206\3118)\203\312c\207 \203\313 \210\n\203%\314 \210 \203,\315 \210\312c\210\f\2055\316 \207" [pps abbrev-mode octave-blink-matching-block octave-auto-indent octave-auto-newline parse-partial-sexp octave-point bol 3 4 ";" expand-abbrev octave-blink-matching-block-open indent-according-to-mode newline-and-indent] 3 (#$ . 39178) nil]) #@147 Insert a space in Octave mode. Maybe expand abbrevs and blink matching block open keywords. Reindent the line of `octave-auto-indent' is non-nil. (defalias 'octave-electric-space #[nil "\305\306\307\310!`\"\311 8\206\312 8)\203\313 \210\314\315!\207\n\203$\316 \210 \203+\317 \210\f\203<\212\320\321!\210n)\204<\313 \210\314\315!\207" [last-command-char pps abbrev-mode octave-blink-matching-block octave-auto-indent 32 parse-partial-sexp octave-point bol 3 4 indent-according-to-mode self-insert-command 1 expand-abbrev octave-blink-matching-block-open skip-syntax-backward " "] 3 (#$ . 39797) nil]) #@262 Start entering an Octave abbreviation. If Abbrev mode is turned on, typing ` (grave accent) followed by ? or \[help-command] lists all Octave abbrevs. Any other key combination is executed normally. Note that all Octave mode abbrevs start with a grave accent. (defalias 'octave-abbrev-start #[nil "\204\306\307!\207\310\nc\210\311 \211\312=\204 =\203$\313\314 )\202( C\211)\207" [abbrev-mode c last-command-char help-char abbrev-table-name-list unread-command-events self-insert-command 1 nil read-event 63 (octave-mode-abbrev-table) list-abbrevs] 2 (#$ . 40415) nil]) #@129 Insert an Octave function skeleton. Prompt for the function's name, arguments and return values (to be entered without parens). (defalias 'octave-insert-defun #[(name args vals) "\306\307\310\230\203\f\202\311\312\"\203\313\314Q\202\315\316Q \n$ o\204+\317 \210\320 \261\210\321 \210\317\322!\210\f\323 \261\210\324 \210\fc\210\324 \210\fc\210\321 \210\212\317\322!\210\325c\210\321 +\207" [vals name args octave-block-comment-start prefix string format "%s %s (%s)" "" string-match "[ ,]" " [" "] =" " " " =" newline "function" indent-according-to-mode 2 "usage: " reindent-then-newline-and-indent "endfunction"] 5 (#$ . 41004) (list (read-from-minibuffer "Function name: " (substring (buffer-name) 0 -2)) (read-from-minibuffer "Arguments: ") (read-from-minibuffer "Return values: "))]) #@56 Adds the `Octave' menu to the menu bar in Octave mode. (defalias 'octave-add-octave-menu #[nil "\304\305!\210\306\300!\204\f\307\300 B\310\300\311\312#\210\313\300\n\312 $\210\314\n\"\207" [octave-mode-menu-map current-load-list octave-mode-map octave-mode-menu require easymenu boundp nil put variable-documentation "Menu keymap for Octave mode." easy-menu-do-define easy-menu-add] 5 (#$ . 41815)]) #@46 Kill inferior Octave process and its buffer. (defalias 'octave-kill-process #[nil "\203 \302\303\"\210\304!\210 \205\305 !\207" [inferior-octave-process inferior-octave-buffer process-send-string "quit;\n" accept-process-output kill-buffer] 3 (#$ . 42225) nil]) #@55 Make sure that `inferior-octave-buffer' is displayed. (defalias 'octave-show-process-buffer #[nil "\301!\203\n\302!\207\303\304\"\207" [inferior-octave-buffer get-buffer display-buffer message "No buffer named %s"] 3 (#$ . 42499) nil]) #@59 Delete all windows that display `inferior-octave-buffer'. (defalias 'octave-hide-process-buffer #[nil "\301!\203\n\302!\207\303\304\"\207" [inferior-octave-buffer get-buffer delete-windows-on message "No buffer named %s"] 3 (#$ . 42745) nil]) #@53 Send current region to the inferior Octave process. (defalias 'octave-send-region #[(beg end) "\306\307!\210\310 \n\"\311\212q\210\311\f\312\230\204k\313\314\f\"\2031\f\315\211\224O\f\315\225\311O\2025\f\312\307\316 \314PC!\210\203K\317 !\210\202?\320\321\322\323\203Y C\202[\312C\324\325\"C#\314#!\210\202,\205u\326!\207" [inferior-octave-process beg end line string proc inferior-octave t buffer-substring-no-properties nil "" string-match "\n" 0 inferior-octave-send-list-and-digest accept-process-output insert-before-markers mapconcat identity append mapcar inferior-octave-strip-ctrl-g display-buffer inferior-octave-buffer inferior-octave-output-list inferior-octave-receive-in-progress octave-send-echo-input inferior-octave-output-string octave-send-show-buffer] 8 (#$ . 42998) "r"]) #@59 Send current Octave block to the inferior Octave process. (defalias 'octave-send-block #[nil "\212\300 \210\301`\302 \")\207" [octave-mark-block octave-send-region mark] 3 (#$ . 43833) nil]) #@62 Send current Octave function to the inferior Octave process. (defalias 'octave-send-defun #[nil "\212\300 \210\301`\302 \")\207" [octave-mark-defun octave-send-region mark] 3 (#$ . 44030) nil]) #@191 Send current Octave code line to the inferior Octave process. With positive prefix ARG, send that many lines. If `octave-send-line-auto-forward' is non-nil, go to the next unsent code line. (defalias 'octave-send-line #[(&optional arg) "\204\304\305V\205,\306\211\305y\210`\307S!\210\306\210` \203'\307\304!\210\310\n \"*\207" [arg end beg octave-send-line-auto-forward 1 0 nil octave-next-code-line octave-send-region] 3 (#$ . 44231) "P"]) #@72 Evaluate Octave sexp before point and print value into current buffer. (defalias 'octave-eval-print-last-sexp #[nil "\304\305!\210p\306`\307 \210\310\212\311\312!\210\313\314`\"\315PC!\210\316\317 \315#)!\210\307 +\207" [opoint print-escape-newlines standard-output inferior-octave-output-list inferior-octave t nil terpri prin1 forward-sexp -1 inferior-octave-send-list-and-digest buffer-substring-no-properties "\n" mapconcat identity] 5 (#$ . 44691) nil]) #@59 Submit a bug report on the Emacs Octave package via mail. (defalias 'octave-submit-bug-report #[nil "\302\303!\210\304\305!\205\306\307 P\310\311\312\313\314\315\316\317\320\321\322\323\257\f#\207" [octave-maintainer-address emacs-version require reporter y-or-n-p "Do you want to submit a bug report? " reporter-submit-bug-report "Emacs version " octave-auto-indent octave-auto-newline octave-blink-matching-block octave-block-offset octave-comment-char octave-continuation-offset octave-continuation-string octave-help-files octave-mode-startup-message octave-send-echo-input octave-send-line-auto-forward octave-send-show-buffer] 15 (#$ . 45160) nil]) (provide 'octave-mod)