Merge pull request #155 from yuttie/fix-lookup-of-keyboard-translate-table

Take account of the absence of a corresponding value to '?\C-h' in keyboard-translate-table
This commit is contained in:
Kazu Yamamoto 2013-10-14 22:07:35 -07:00
commit 4db2f7ac9b

View File

@ -33,9 +33,10 @@
;;;
(defun ghc-find-C-h ()
(if keyboard-translate-table
(aref keyboard-translate-table ?\C-h)
?\C-h))
(or
(when keyboard-translate-table
(aref keyboard-translate-table ?\C-h))
?\C-h))
(defvar ghc-completion-key "\e\t")
(defvar ghc-document-key "\e\C-d")