From 182db0e5849393f4360defc2c8b5de45603e5316 Mon Sep 17 00:00:00 2001 From: Kazu Yamamoto Date: Wed, 5 Oct 2011 10:40:31 +0900 Subject: [PATCH] keybinding for hoogle. --- elisp/ghc.el | 7 +++++++ 1 file changed, 7 insertions(+) diff --git a/elisp/ghc.el b/elisp/ghc.el index 3918ac8..8224c2f 100644 --- a/elisp/ghc.el +++ b/elisp/ghc.el @@ -33,6 +33,11 @@ ;;; Customize Variables ;;; +(defun ghc-find-C-h () + (if keyboard-translate-table + (aref keyboard-translate-table ?\C-h) + ?\C-h)) + (defvar ghc-completion-key "\e\t") (defvar ghc-document-key "\e\C-d") (defvar ghc-import-key "\e\C-m") @@ -45,6 +50,7 @@ (defvar ghc-info-key "\C-c\C-i") (defvar ghc-check-key "\C-x\C-s") (defvar ghc-toggle-key "\C-c\C-c") +(defvar ghc-hoogle-key (format "\C-c%c" (ghc-find-C-h))) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; @@ -68,6 +74,7 @@ (define-key haskell-mode-map ghc-sort-key 'ghc-sort-lines) (define-key haskell-mode-map ghc-check-key 'ghc-save-buffer) (define-key haskell-mode-map ghc-toggle-key 'ghc-flymake-toggle-command) + (define-key haskell-mode-map ghc-hoogle-key 'haskell-hoogle) (ghc-comp-init) (setq ghc-initialized t)))