mouse-copy keyboard-based replacement

gistfile1.el

;; Somewhat similar to mouse-copy functionality, but no rat involved

(defun save-current-point ()
 (interactive)
 (point-to-register 'p)
 (message "Current point saved"))

(defun load-last-point ()
 (interactive)
 (jump-to-register 'p))

(defun yank-to-last-point-and-indent ()
  (interactive)
  (load-last-point)
  (yank)
  (paredit-backward)
  (indent-sexp))


;; Suggested bindings
(global-set-key (kbd "C-M-s") 'save-current-point)
(global-set-key (kbd "C-c p") 'load-last-point)
(global-set-key (kbd "C-M-y") 'yank-to-last-point-and-indent)