Re: elisp question

[Kevin Rodgers]

Stefan Monnier wrote:
> (pop-to-buffer
>  (find-file-noselect (expand-file-name (number-to-string (random N))
>                                        "foo/bar/kaya")))
>
> This assumes the file names go from 0 to N-1.
>
> You could also do
>
>   (let ((files (directory-files "foo/bar/kaya" 'full "[^.]\\|...")))
>     (pop-to-buffer (find-file-noselect (nth (random (length files)) files))))
>
> and just select any random file in the directory, without any assumption on
> the file names used.

Since the original code already popped to the *Dharma* buffer, I think
(erase-buffer) (insert-file-contents ...) would be better than
(pop-to-buffer (find-file-noselect ...))

--
Kevin Rodgers