From b7fea5aff1a8d01506644b1e4f71673af2fd2799 Mon Sep 17 00:00:00 2001 From: Yuta Taniguchi Date: Sun, 13 Oct 2013 02:49:18 +0900 Subject: [PATCH] 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'. --- elisp/ghc.el | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/elisp/ghc.el b/elisp/ghc.el index 87639bf..d951ca2 100644 --- a/elisp/ghc.el +++ b/elisp/ghc.el @@ -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")