[elpa] 01/03: packages/names: Fix edebug error with C-x

[Artur Malabarba]

malabarba pushed a commit to branch master
in repository elpa.

commit 142f9e6238fed36258d193f2f6ee2f0e105fde64
Author: Artur Malabarba <address@hidden>
Date:   Tue Nov 18 22:53:47 2014 +0000

    packages/names: Fix edebug error with C-x
    
    Edebug tries to bind under C-x, which errors if the user has bound C-x
    to something else.
---
 names.el |    9 +++++++++
 1 files changed, 9 insertions(+), 0 deletions(-)

diff --git a/names.el b/names.el
index 1acc3a1..f414f49 100644
--- a/names.el
+++ b/names.el
@@ -40,6 +40,15 @@
 
 
 (require 'cl-lib)
+;;; This is a patch because edebug binds under `C-x'.
+;; If `C-x' is not a prefix.
+(unless (consp (key-binding "\C-x"))
+  ;; Disable the `C-xC-a' binds.
+  (setq edebug-inhibit-emacs-lisp-mode-bindings t)
+  ;; And the `C-xX' binds.
+  (when (or (null (boundp 'global-edebug-prefix))
+            (eq 24 (elt global-edebug-prefix 0)))
+    (setq global-edebug-prefix "")))
 (require 'edebug)
 (require 'bytecomp)
 (require 'advice)