Re: A patch for `pwd' - copying the current directory to the kill ring

[Stefan Monnier]

> Except making it work with M-x (the above will grab the "output" of the
> M-x itself (i.e. no output), rather than the output of the command Emacs
> runs after running the commands bound to M-x, p, w, d, and RET).

The version below seems to work (tested with M-: and M-x)


        Stefan


(defvar copy-next-command-output--marker nil)
(defun copy-next-command-output ()
  "Prefix command to add the output of the next command to the `kill-ring`."
  (interactive)
  (let ((ml (minibuffer-depth)))
    (cl-labels ((pre ()
                     (add-hook 'post-command-hook #'post)
                     (setq copy-next-command-output--marker
                           (with-current-buffer "*Messages*"
                             (point-max-marker))))
                (post ()
                      (unless (> (minibuffer-depth) ml)
                        (remove-hook 'pre-command-hook #'pre)
                        (remove-hook 'post-command-hook #'post)
                        (when copy-next-command-output--marker
                          (with-current-buffer
                              (marker-buffer copy-next-command-output--marker)
                            (when (< copy-next-command-output--marker
                                     (point-max))
                              (kill-new (buffer-substring
                                         copy-next-command-output--marker
                                         (point-max)))))
                          (setq copy-next-command-output--marker nil)))))
      (add-hook 'pre-command-hook #'pre))))