From 38ac75bf972bc966b4ef47bf080a66d931402aa7 Mon Sep 17 00:00:00 2001
From: Phil Hagelberg <technomancy@gmail.com>
Date: Wed, 3 Dec 2008 14:26:40 -0800
Subject: [PATCH] Remove cheat binding, use coding-hook.

---
 starter-kit-bindings.el | 7 +++----
 starter-kit-lisp.el     | 2 ++
 starter-kit-ruby.el     | 2 ++
 3 files changed, 7 insertions(+), 4 deletions(-)

diff --git a/starter-kit-bindings.el b/starter-kit-bindings.el
index 4da466ba12..95179a996e 100644
--- a/starter-kit-bindings.el
+++ b/starter-kit-bindings.el
@@ -64,16 +64,15 @@
 ;; Fetch the contents at a URL, display it raw.
 (global-set-key (kbd "C-x h") 'view-url)
 
-;; Help
-
+;; Help should search more than just commands
 (global-set-key (kbd "C-h a") 'apropos)
-(global-set-key (kbd "C-h c") 'cheat)
 
 ;; Applications
 
 (global-set-key (kbd "C-c j") (lambda () (interactive) (switch-or-start 'jabber-connect "*-jabber-*")))
 (global-set-key (kbd "C-c g") (lambda () (interactive) (switch-or-start 'gnus "*Group*")))
-(global-set-key (kbd "C-c i") (lambda () (interactive) (switch-or-start (lambda () (rcirc-connect "irc.freenode.net"))
+(global-set-key (kbd "C-c i") (lambda () (interactive) (switch-or-start (lambda ()
+                                                                          (rcirc-connect "irc.freenode.net"))
                                                                    "*irc.freenode.net*")))
 (global-set-key (kbd "C-c J") 'jabber-send-presence)
 (global-set-key (kbd "C-c M-j") 'jabber-disconnect)
diff --git a/starter-kit-lisp.el b/starter-kit-lisp.el
index 828f66ea99..fe719129aa 100644
--- a/starter-kit-lisp.el
+++ b/starter-kit-lisp.el
@@ -3,6 +3,8 @@
 ;; Part of the Emacs Starter Kit
 
 (add-hook 'emacs-lisp-mode-hook 'eldoc-mode)
+(add-hook 'emacs-lisp-mode-hook 'my-coding-hook)
+(add-hook 'lisp-mode-hook 'my-coding-hook)
 
 (add-hook 'emacs-lisp-mode-hook 'emacs-lisp-remove-elc-on-save)
 
diff --git a/starter-kit-ruby.el b/starter-kit-ruby.el
index 55732f0283..b989ec68b2 100644
--- a/starter-kit-ruby.el
+++ b/starter-kit-ruby.el
@@ -30,6 +30,8 @@
              (delete-region (point-min) (point-max))))))
      (ad-activate 'ruby-do-run-w/compilation)))
 
+(add-hook 'ruby-mode-hook 'my-coding-hook)
+
 ;; TODO: set up ri
 ;; TODO: electric
 ;; TODO: flymake