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:
parent
2c9b4227dd
commit
b7fea5aff1
@ -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")
|
||||
|
Loading…
Reference in New Issue
Block a user