[Conkeror] [PATCH] Implement describe-key-briefly (C-h c)

[Nelson Elhage]

commit be3f1bf831612552e1afbc6800867ea46833465d
Author: Nelson Elhage <nelhage at mit.edu>
Date:   Thu Mar 13 14:09:17 2008 -0400

    Implement describe-key-briefly (C-h c)

diff --git a/modules/bindings/default/global.js b/modules/bindings/default/global.js
index f502549..9f6f548 100644
--- a/modules/bindings/default/global.js
+++ b/modules/bindings/default/global.js
@@ -25,6 +25,7 @@ define_key(default_help_keymap, "b", "describe-bindings");
 define_key(default_help_keymap, "f", "describe-command");
 define_key(default_help_keymap, "v", "describe-variable");
 define_key(default_help_keymap, "k", "describe-key");
+define_key(default_help_keymap, "c", "describe-key-briefly");
 define_key(default_help_keymap, "i", "help-page");
 define_key(default_help_keymap, "t", "help-with-tutorial");
 define_key(default_help_keymap, "w", "where-is");
diff --git a/modules/help.js b/modules/help.js
index c265965..f0136e3 100644
--- a/modules/help.js
+++ b/modules/help.js
@@ -393,11 +393,24 @@ function describe_key(buffer, key_info, target) {
                                  $binding = bind),
                   target);
 }
+
+function describe_key_briefly(buffer, key_info) {
+    var bindings;
+    var seq = key_info[0];
+    var bind = key_info[1];
+
+    buffer.window.minibuffer.message(seq.join(" ") + " runs the command " + bind.command);
+}
+
 interactive("describe-key", function (I) {
     describe_key(I.buffer,
                  (yield I.minibuffer.read_key_binding($prompt = "Describe key:", $buffer = I.buffer)),
                  I.browse_target("describe-key"));
 });
+interactive("describe-key-briefly", function (I) {
+    describe_key_briefly(I.buffer,
+                 (yield I.minibuffer.read_key_binding($prompt = "Describe key:", $buffer = I.buffer)));
+});
 default_browse_targets["describe-key"] = "find-url";