Faster pop-to-mark
authorJoerg Jaspert <joerg.jaspert@dlh.de>
Tue, 22 Dec 2015 13:58:33 +0000 (14:58 +0100)
committerJoerg Jaspert <joerg.jaspert@dlh.de>
Tue, 22 Dec 2015 13:58:33 +0000 (14:58 +0100)
.emacs.d/config/emacs.org

index 7d625f2..9f89e08 100644 (file)
@@ -486,6 +486,19 @@ whether there is text selection.
 #+BEGIN_SRC emacs-lisp :tangle yes
 (bind-key "M-c" 'toggle-letter-case)
 #+END_SRC
+**** Faster pop-to-mark command
+[2015-12-22 Di 14:56]
+From [[http://endlessparentheses.com/faster-pop-to-mark-command.html?source=rss][Endless Parentheses]], a nice way to pop back in the marks.
+#+BEGIN_SRC emacs-lisp :tangle yes
+;; When popping the mark, continue popping until the cursor
+;; actually moves
+(defadvice pop-to-mark-command (around ensure-new-position activate)
+  (let ((p (point)))
+    (dotimes (i 10)
+      (when (= p (point)) ad-do-it))))
+(setq set-mark-command-repeat-pop t)
+#+END_SRC
+
 ** Miscellaneous stuff
 Searches and matches should ignore case.
 #+BEGIN_SRC emacs-lisp