Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Add message-point binding.

  • Loading branch information...
commit 7297c0a6d91d71634870561404a236e397573b51 1 parent 0386f01
@technomancy authored
Showing with 7 additions and 0 deletions.
  1. +3 −0  starter-kit-bindings.el
  2. +4 −0 starter-kit-defuns.el
View
3  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-*")))
View
4 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.
Please sign in to comment.
Something went wrong with that request. Please try again.