[BK-2020-03.git] / unitproc / elisp / my-reverse-region.el

;; 2020-11-17T02:13Z; bktei> Function to reverse region of text
(defun my-reverse-region (beg end)
  "Reverse characters between BEG and END."
  (interactive "r")
  (let ((region (buffer-substring beg end)))
    (delete-region beg end)
    (insert (nreverse region))))
Commit	Line	Data
2d5bc059 SBS	1	;; 2020-11-17T02:13Z; bktei> Function to reverse region of text
	2	(defun my-reverse-region (beg end)
	3	"Reverse characters between BEG and END."
	4	(interactive "r")
	5	(let ((region (buffer-substring beg end)))
	6	(delete-region beg end)
	7	(insert (nreverse region))))