/[emacs]/emacs/lisp/progmodes/octave-inf.el
ViewVC logotype

Diff of /emacs/lisp/progmodes/octave-inf.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.15 by pj, Mon Jul 16 12:22:59 2001 UTC revision 1.15.8.1 by miles, Fri Apr 4 06:20:36 2003 UTC
# Line 116  the regular expression `comint-prompt-re Line 116  the regular expression `comint-prompt-re
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.")
# Line 138  Entry to this mode successively runs the Line 138  Entry to this mode successively runs the
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    
# Line 227  startup file, `~/.emacs-octave'." Line 227  startup file, `~/.emacs-octave'."
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))))

Legend:
Removed from v.1.15  
changed lines
  Added in v.1.15.8.1

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26