base64-encode-region

探し方が悪いのか見つからなかった
仕方が無いので作った

;;;
;;; base64-encode-region
;;;
(defun text-encode-region (decode from to)
  (or (< from to)
      (rotatef from to))
  (insert (with-output-to-string (s)
	    (with-input-from-buffer ((selected-buffer) from to)
	      (funcall decode nil s))
	    (delete-region from to))))
(defun base64-encode-region (from to)
  (interactive "*r")
  (text-encode-region #'si:base64-encode from to))