[Emacs-diffs] Changes to emacs/lisp/progmodes/octave-inf.el

[Juanma Barranquero]

Index: emacs/lisp/progmodes/octave-inf.el
diff -c emacs/lisp/progmodes/octave-inf.el:1.15 
emacs/lisp/progmodes/octave-inf.el:1.16
*** emacs/lisp/progmodes/octave-inf.el:1.15     Mon Jul 16 08:22:59 2001
--- emacs/lisp/progmodes/octave-inf.el  Tue Feb  4 08:24:35 2003
***************
*** 116,122 ****
    "Non-nil means that `inferior-octave-complete' is impossible.")
  
  (defvar inferior-octave-dynamic-complete-functions
!   '(inferior-octave-complete comint-dynamic-complete-filename)  
    "List of functions called to perform completion for inferior Octave.
  This variable is used to initialize `comint-dynamic-complete-functions'
  in the Inferior Octave buffer.")
--- 116,122 ----
    "Non-nil means that `inferior-octave-complete' is impossible.")
  
  (defvar inferior-octave-dynamic-complete-functions
!   '(inferior-octave-complete comint-dynamic-complete-filename)
    "List of functions called to perform completion for inferior Octave.
  This variable is used to initialize `comint-dynamic-complete-functions'
  in the Inferior Octave buffer.")
***************
*** 138,149 ****
    (use-local-map inferior-octave-mode-map)
    (set-syntax-table inferior-octave-mode-syntax-table)
  
!   (make-local-variable 'comment-start)  
    (setq comment-start octave-comment-start)
    (make-local-variable 'comment-end)
    (setq comment-end "")
    (make-local-variable 'comment-column)
!   (setq comment-column 32)    
    (make-local-variable 'comment-start-skip)
    (setq comment-start-skip octave-comment-start-skip)
  
--- 138,149 ----
    (use-local-map inferior-octave-mode-map)
    (set-syntax-table inferior-octave-mode-syntax-table)
  
!   (make-local-variable 'comment-start)
    (setq comment-start octave-comment-start)
    (make-local-variable 'comment-end)
    (setq comment-end "")
    (make-local-variable 'comment-column)
!   (setq comment-column 32)
    (make-local-variable 'comment-start-skip)
    (setq comment-start-skip octave-comment-start-skip)
  
***************
*** 227,233 ****
        (setq commands
            (list "page_screen_output = 0;\n"
                  (if (not (string-equal
!                           inferior-octave-output-string ">> ")) 
                      "PS1=\"\\\\s> \";\n")
                  (if (file-exists-p file)
                      (format "source (\"%s\");\n" file))))
--- 227,233 ----
        (setq commands
            (list "page_screen_output = 0;\n"
                  (if (not (string-equal
!                           inferior-octave-output-string ">> "))
                      "PS1=\"\\\\s> \";\n")
                  (if (file-exists-p file)
                      (format "source (\"%s\");\n" file))))