[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: hardcopy of all text in a dynamic lisp listener




Other folks have posted about the "Copy Output History" CP command.

You may also find dw::output-displayed-strings-as-text for achieving
this functionality from a LISP function.  For example, the following
function grabs the output history of a window and stuffs it into a
ZMACS buffer for viewing.

(defun write-window-contents-to-zmacs-buffer (window 
					      &optional (buffer-name (send window :name)))
  (zwei:with-editor-stream (stream :buffer-name buffer-name
 				   :create-p t :kill t)
    (dw::output-displayed-strings-as-text stream window))
)
(responsible-p ADS message)
NIL
(si:halt)