From af8d26daf768b1d2c67dbad7f5cbe173dfe66b77 Mon Sep 17 00:00:00 2001
From: Andreas Gerler <baron@bundesbrandschatzamt.de>
Date: Sat, 20 Feb 2016 13:03:08 +0100
Subject: [PATCH] update key-chord.

---
 bba.org                                             |  2 +-
 elpa/key-chord-20140929.2246/key-chord-pkg.el       |  1 -
 .../key-chord-autoloads.el                          | 13 ++-----------
 elpa/key-chord-20151209.104/key-chord-pkg.el        |  1 +
 .../key-chord.el                                    |  9 ++++++---
 5 files changed, 10 insertions(+), 16 deletions(-)
 delete mode 100644 elpa/key-chord-20140929.2246/key-chord-pkg.el
 rename elpa/{key-chord-20140929.2246 => key-chord-20151209.104}/key-chord-autoloads.el (87%)
 create mode 100644 elpa/key-chord-20151209.104/key-chord-pkg.el
 rename elpa/{key-chord-20140929.2246 => key-chord-20151209.104}/key-chord.el (98%)

diff --git a/bba.org b/bba.org
index 372e0aac..0dc427de 100644
--- a/bba.org
+++ b/bba.org
@@ -2107,7 +2107,7 @@ switch default browser between eww and default.
 combine key strokes to access commands even faster.
 
 #+BEGIN_SRC emacs-lisp
-  (add-to-list 'load-path "~/.emacs.d/elpa/key-chord-20140929.2246")
+  (add-to-list 'load-path "~/.emacs.d/elpa/key-chord-20151209.104")
 
   (require 'key-chord)
   (key-chord-mode 1)
diff --git a/elpa/key-chord-20140929.2246/key-chord-pkg.el b/elpa/key-chord-20140929.2246/key-chord-pkg.el
deleted file mode 100644
index be51ac5b..00000000
--- a/elpa/key-chord-20140929.2246/key-chord-pkg.el
+++ /dev/null
@@ -1 +0,0 @@
-(define-package "key-chord" "20140929.2246" "map pairs of simultaneously pressed keys to commands" (quote nil))
diff --git a/elpa/key-chord-20140929.2246/key-chord-autoloads.el b/elpa/key-chord-20151209.104/key-chord-autoloads.el
similarity index 87%
rename from elpa/key-chord-20140929.2246/key-chord-autoloads.el
rename to elpa/key-chord-20151209.104/key-chord-autoloads.el
index 68755f46..e01ffc1d 100644
--- a/elpa/key-chord-20140929.2246/key-chord-autoloads.el
+++ b/elpa/key-chord-20151209.104/key-chord-autoloads.el
@@ -1,11 +1,9 @@
 ;;; key-chord-autoloads.el --- automatically extracted autoloads
 ;;
 ;;; Code:
-
+(add-to-list 'load-path (or (file-name-directory #$) (car load-path)))
 
-;;;### (autoloads (key-chord-define key-chord-define-local key-chord-define-global
-;;;;;;  key-chord-mode) "key-chord" "key-chord.el" (21691 55638 0
-;;;;;;  0))
+;;;### (autoloads nil "key-chord" "key-chord.el" (22215 7909 0 0))
 ;;; Generated autoloads from key-chord.el
 
 (autoload 'key-chord-mode "key-chord" "\
@@ -60,16 +58,9 @@ If COMMAND is nil, the key-chord is removed.
 
 ;;;***
 
-;;;### (autoloads nil nil ("key-chord-pkg.el") (21691 55638 528056
-;;;;;;  0))
-
-;;;***
-
-(provide 'key-chord-autoloads)
 ;; Local Variables:
 ;; version-control: never
 ;; no-byte-compile: t
 ;; no-update-autoloads: t
-;; coding: utf-8
 ;; End:
 ;;; key-chord-autoloads.el ends here
diff --git a/elpa/key-chord-20151209.104/key-chord-pkg.el b/elpa/key-chord-20151209.104/key-chord-pkg.el
new file mode 100644
index 00000000..fd77858f
--- /dev/null
+++ b/elpa/key-chord-20151209.104/key-chord-pkg.el
@@ -0,0 +1 @@
+(define-package "key-chord" "20151209.104" "map pairs of simultaneously pressed keys to commands" 'nil :keywords '("keyboard" "chord" "input"))
diff --git a/elpa/key-chord-20140929.2246/key-chord.el b/elpa/key-chord-20151209.104/key-chord.el
similarity index 98%
rename from elpa/key-chord-20140929.2246/key-chord.el
rename to elpa/key-chord-20151209.104/key-chord.el
index b76531cb..a9da5c10 100644
--- a/elpa/key-chord-20140929.2246/key-chord.el
+++ b/elpa/key-chord-20151209.104/key-chord.el
@@ -24,8 +24,8 @@
 
 ;; Author: David Andersson <l.david.andersson(at)sverige.nu>
 ;; Created: 27 April 2003
-;; Version: 20140929.2246
-;; X-Original-Version: 0.6 (2012-10-23)
+;; Version: 0.6 (2012-10-23)
+;; Package-Version: 20151209.104
 ;; Keywords: keyboard chord input
 
 ;;; Commentary:
@@ -273,7 +273,7 @@ which in most cases is shared with all other buffers in the same major mode."
 (defun key-chord-unset-global (keys)
   "Remove global key-chord of the two keys in KEYS."
   (interactive "sUnset key chord globally (2 keys): ")
-  (key-chord-define (current-local-map) keys nil))
+  (key-chord-define (current-global-map) keys nil))
 
 (defun key-chord-unset-local (keys)
   "Remove local key-chord of the two keys in KEYS."
@@ -335,6 +335,9 @@ Please ignore that."
 		     key-chord-two-keys-delay)))
 	(if (if executing-kbd-macro
 		(not (memq first-char key-chord-in-last-kbd-macro))
+              (when (bound-and-true-p eldoc-mode)
+                (eldoc-pre-command-refresh-echo-area))
+
 	      (sit-for delay 0 'no-redisplay))
 	    (progn
 	      (setq key-chord-last-unmatched nil)
-- 
2.47.3