Re: comint or start-process

[Kevin Rodgers <kevin.d.rodgers@gmail.com>]

Xavier Maillard wrote:
> Ok. I have tried to get something but failed:
> 
>  (defun sqlite-connect (db)
>    (let ((sql-database db))
>      (sql-connect-sqlite)))
> 
>  (sqlite-connect "/tmp/foo.db")
>  (with-current-buffer (process-buffer (get-process "SQL")))
>    (sql-send-string "select * from foo;"))
> 
> =>
> 
> No SQL process started.
> 
> M-x list-process:
> 
> Proc	  Status   Buffer	 Tty	    Command
> ----	  ------   ------	 ---	    -------
> SQL	  run	   *SQL*	 /dev/pts/2 sqlite /tmp/foot.db
> 
> What is the problem ?

Use the source: "No SQL process started" is reported by sql-send-string
when (buffer-live-p sql-buffer) returns nil.  Usually, sql-buffer is
set by sql-product-interactive, which you have circumvented by calling
sql-connect-sqlite directly.

Perhaps all you need to do is:

(let ((sql-buffer (process-buffer (get-process "SQL"))))
   (with-current-buffer sql-buffer
     (sql-send-string "select * from foo;")))

-- 
Kevin Rodgers
Denver, Colorado, USA