|
From: | Johan Andersson |
Subject: | Re: Selected region not visible |
Date: | Sat, 13 Mar 2010 21:46:52 +0000 |
On Sat, Mar 13, 2010 at 9:06 PM, Johan Andersson <johan.rejeep@gmail.com> wrote:You need to add
> (defun test ()
> (interactive)
> (let ((region (buffer-substring-no-properties (point) (mark))))
> (delete-region (point) (mark))
> (forward-char 1)
> (insert region)
> (set-mark 2)
> (goto-char 20)))
(setq deactivate-mark nil)
[Prev in Thread] | Current Thread | [Next in Thread] |