Take account of the absence of a corresponding value to '?\C-h' in the table

The table 'keyboard-translate-table' doesn't necessarily have a value at
the position '?\C-h'.
This commit is contained in:
Yuta Taniguchi 2013-10-13 02:49:18 +09:00
parent 2c9b4227dd
commit b7fea5aff1

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")