Re: Empty buffer

[Kevin Rodgers]

BRUCE INGALLS wrote:
> What I am trying to do, is grab the first IP address, which is not a
> netmask, nor 127.0.0.1.
> Here is my first attempt:
>
>   (require 'net-utils)
>   (save-excursion
>     (ipconfig)
>     (set-buffer "*Ipconfig*")
>     (goto-char (point-min))
>     (search-forward-regexp "[0-9]" nil t)
>     (match-beginning 1)))
>
> Unfortunately, I cannot capture the output of ipconfig():
>
>   (save-excursion
>     (ipconfig)
>     (set-buffer "*Ipconfig*")
>     (buffer-string)))

That's because ipconfig uses start-process (via net-utils-run-program)
to run netstat-program as a subprocess, and its complete output is not
immediately available.  But since net-utils-run-program returns the
buffer:

(save-excursion
  (let* ((ipconfig-buffer (ipconfig))
         (ipconfig-process (get-buffer-process ipconfig-buffer)))
    (while (eq (process-status ipconfig-process) 'run)
      (sit-for 0 10 t))
    (set-buffer ipconfig-buffer)
    (buffer-string)))

--
Kevin Rodgers