Skip to content

Instantly share code, notes, and snippets.

@jewel12

jewel12/move-to-mark.el

Created September 9, 2012 10:19
Show Gist options
  • Save jewel12/3683654 to your computer and use it in GitHub Desktop.
Save jewel12/3683654 to your computer and use it in GitHub Desktop.
Download ZIP
move-to-mark
Raw
move-to-mark.el
(defun move-to-mark ()
(interactive)
(let ((pos (point)))
(if (mark)
(progn (goto-char
(if (boundp 'marked-pos) marked-pos (mark)))
(setq marked-pos pos))
(message "There is no marked point to move."))))
(global-set-key (kbd "M-q") 'move-to-mark)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment