Add message-point binding.

daviddavis · Oct 9, 2009 · 7297c0a · 7297c0a
1 parent 0386f01
commit 7297c0a
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 0 deletions.
diff --git a/starter-kit-bindings.el b/starter-kit-bindings.el
@@ -68,6 +68,9 @@
 ;; Should be able to eval-and-replace anywhere.
 (global-set-key (kbd "C-c e") 'eval-and-replace)
 
+;; For debugging Emacs modes
+(global-set-key (kbd "C-c p") 'message-point)
+
 ;; Applications
 
 (global-set-key (kbd "C-c j") (lambda () (interactive) (switch-or-start 'jabber-connect "*-jabber-*")))

diff --git a/starter-kit-defuns.el b/starter-kit-defuns.el
@@ -206,6 +206,10 @@ Symbols matching the text at point are put first in the completion list."
        (list ?\"))
   (paredit-mode 1))
 
+(defun message-point ()
+  (interactive)
+  (message "%s" (point)))
+
 (defun toggle-fullscreen ()
   (interactive)
   ;; TODO: this only works for X. patches welcome for other OSes.