🚀 go-pugleaf

GNU Emacs 18.55.121 on NeXT 2.0

If you run shell-command-on-region on a buffer produced by another
shell-command-on-region command, it sends the empty string to the
shell command (i.e. it clears the buffer before sending it).  Here's
code to fix the bug:

  (if (or flag (equal (buffer-name) "*Shell Command Output*"))
      ;; Replace specified region with output from command.
      (let ((swap (and interactive (< (point) (mark)))))
	(if flag
	    nil
	  (delete-region (point-min) (min (point) (mark)))
	  (delete-region (point-max) (max (point) (mark)))
	  (setq start (point-min)
		end (point-max)))

Current (18.55) code for reference:

  (if flag
      ;; Replace specified region with output from command.
      (let ((swap (and interactive (< (point) (mark)))))