@@ -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-*"))) starter-kit-bindings.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. starter-kit-defuns.el 0386f01192e3cb1713eddc19c3e7a87dda0d0a39 Phil Hagelberg technomancy@gmail.com http://github.com/technomancy/emacs-starter-kit/commit/7297c0a6d91d71634870561404a236e397573b51 7297c0a6d91d71634870561404a236e397573b51 2009-10-09T12:26:29-07:00 2009-10-09T12:26:29-07:00 Add message-point binding. b0c6836f695f507aa25333166125a411a58c42fc Phil Hagelberg technomancy@gmail.com