> (defun test-kill-buffer (fname exp-function) > (let ((buf (find-file fname))) > (funcall exp-function) > (kill-buffer buf))) > > (test-kill-buffer "/tmp/abc.txt" 'some-function-to-call) > > will do the trick. > > Regards, Olaf
Olaf -- Beauteous, thank you, that did indeed do the trick. -- Herb