Input stream problem with CENTAUR 1.2

[Guido.Bosch@loria.fr (Guido Bosch)]

I have an interface problem with CENTAUR 1.2: 

Usually I run CENTAUR as an Emacs subprocess in order to take
advantage of the the generic inferior Lisp programming environment
ILISP, from Christopher McConnell <ccm@cs.cmu.edu>. 

This used to work well with CENTAUR 1.1, but with version 1.2 I
got a serious problem:

(Follow this procedure to see the bug)

(1) call emacs
(2) type  `M-x shell'  in Emacs to get an inferior shell buffer
(3) start centaur in this shell by typing  `centaur <return>'
(4) get an editor window by clicking on "Editor" in CENTAUR's main menu
(5) Select "Read" in the editor window's  "File" menu

Now you will notice that the input is locked and no dialog window
appeares. Typing `<return>' in the shell buffer makes it appear, but
you still can't type any text in the dialog box. It seems that
CENTAUR's input stream remains in the shell buffer.


Could this be fixed easily?


I discovered two minor bugs in centaur.el while compiling it with the
Emacs 19 byte compiler. Here is a patch:

*** centaur.el~ Thu Jul 16 16:56:05 1992
--- centaur.el  Thu Jul 16 17:06:22 1992
***************
*** 93,99 ****
                 (setq string (concat input-buffer string))
                 (setq input-buffer nil))       ; free the input-buffer
           (while (and string
!                      (setq first (string-match "(""!@#$%^&()_""" string)))
                  (process-matched-string string first)
                  (setq string input-buffer))
           (setq input-buffer string))
--- 93,99 ----
                 (setq string (concat input-buffer string))
                 (setq input-buffer nil))       ; free the input-buffer
           (while (and string
!                      (setq first (string-match "(\"!@#$%^&()_\"" string)))
                  (process-matched-string string first)
                  (setq string input-buffer))
           (setq input-buffer string))
***************
*** 143,149 ****
                )
            (when first-data
                  (setq first-data nil)
!                 (interactive)
                  (delete-region (point-min) (point-max))
                  )
            (end-of-buffer)
--- 143,149 ----
                )
            (when first-data
                  (setq first-data nil)
!                 ;; (interactive)
                  (delete-region (point-min) (point-max))
                  )
            (end-of-buffer)