Re: Elisp: can't read buffer content with with-current-buffer

[Tassilo Horn <tsdh@gnu.org>]

Alessandro Bertulli <alessandro.bertulli96@gmail.com> writes:

Hi Alessandro,

> In this function I wrote, however, it seems I can't do that:
>
> (defun get-main-method-list ()
>   "Scan the project for main methods to run."
>   (interactive)
>   (let* ((project-root (projectile-acquire-root))
> 	 (output-buffer (get-buffer-create "*java-grep*")))
>     (async-shell-command (format "grep --include=\\*.java -rnwl \'%s\' -e \'%s\'"
> 				 project-root
> 				 "public[[:space:]]\\+static[[:space:]]\\+void[[:space:]]\\+main")
> 			 output-buffer
> 			 output-buffer)
>     (with-current-buffer output-buffer
>       (let ((buffer-content (buffer-string)))
> 	(print buffer-content) ;; debug
> 	(set-text-properties 0 (length buffer-content) nil buffer-content)
> 	(split-string buffer-content "\n")))))
>
> See where I put a debug (print): it prints nothing or newlines, and
> the function seems to return '(""). Is this a problem in using
> with-current-buffer?

No.  You call `async-shell-command' which just starts the command and
immediately returns (without waiting for it to finish) and then your
output-buffer hasn't received the grep output yet.  So use
`shell-command' instead.

And instead of using set-text-properties to remove properties, use

  (buffer-substring-no-properties (point-min) (point-max))

Bye,
Tassilo