116 |
"Non-nil means that `inferior-octave-complete' is impossible.") |
"Non-nil means that `inferior-octave-complete' is impossible.") |
117 |
|
|
118 |
(defvar inferior-octave-dynamic-complete-functions |
(defvar inferior-octave-dynamic-complete-functions |
119 |
'(inferior-octave-complete comint-dynamic-complete-filename) |
'(inferior-octave-complete comint-dynamic-complete-filename) |
120 |
"List of functions called to perform completion for inferior Octave. |
"List of functions called to perform completion for inferior Octave. |
121 |
This variable is used to initialize `comint-dynamic-complete-functions' |
This variable is used to initialize `comint-dynamic-complete-functions' |
122 |
in the Inferior Octave buffer.") |
in the Inferior Octave buffer.") |
138 |
(use-local-map inferior-octave-mode-map) |
(use-local-map inferior-octave-mode-map) |
139 |
(set-syntax-table inferior-octave-mode-syntax-table) |
(set-syntax-table inferior-octave-mode-syntax-table) |
140 |
|
|
141 |
(make-local-variable 'comment-start) |
(make-local-variable 'comment-start) |
142 |
(setq comment-start octave-comment-start) |
(setq comment-start octave-comment-start) |
143 |
(make-local-variable 'comment-end) |
(make-local-variable 'comment-end) |
144 |
(setq comment-end "") |
(setq comment-end "") |
145 |
(make-local-variable 'comment-column) |
(make-local-variable 'comment-column) |
146 |
(setq comment-column 32) |
(setq comment-column 32) |
147 |
(make-local-variable 'comment-start-skip) |
(make-local-variable 'comment-start-skip) |
148 |
(setq comment-start-skip octave-comment-start-skip) |
(setq comment-start-skip octave-comment-start-skip) |
149 |
|
|
227 |
(setq commands |
(setq commands |
228 |
(list "page_screen_output = 0;\n" |
(list "page_screen_output = 0;\n" |
229 |
(if (not (string-equal |
(if (not (string-equal |
230 |
inferior-octave-output-string ">> ")) |
inferior-octave-output-string ">> ")) |
231 |
"PS1=\"\\\\s> \";\n") |
"PS1=\"\\\\s> \";\n") |
232 |
(if (file-exists-p file) |
(if (file-exists-p file) |
233 |
(format "source (\"%s\");\n" file)))) |
(format "source (\"%s\");\n" file)))) |