helpful

a fork of Wilfred's helpful
git clone https://git.trogloxene.org/helpful.git
Log | Files | Refs | README
commit 7105f47d22b9966cfa5dc6614449e7407abba539
parent 00c5c696521dd361e540af8a1fb5c529527ab5cb
Author: Wilfred Hughes <me@wilfred.me.uk>
Date:   Wed, 24 Jul 2019 00:47:32 +0100

Remove unused function

Fixes #210

Diffstat:

Mhelpful.el | 11-----------


1 file changed, 0 insertions(+), 11 deletions(-)

diff --git a/helpful.el b/helpful.el
@@ -816,17 +816,6 @@ bound) or else highlight."
    docstring
    t t))
 
-(defun helpful--char-table-keys (char-table)
-  "Convert CHAR-TABLE to list of pairs (KEYCODES COMMAND)."
-  ;; Kludge: use `describe-vector' to convert a char-table to a sparse
-  ;; keymap.
-  (let (result)
-    (map-char-table
-     (lambda (key value)
-       (push (list (vector key) value) result))
-     char-table)
-    result))
-
 (defun helpful--keymap-keys (keymap)
   "Return all the keys and commands in KEYMAP.
 Flattens nested keymaps and follows remapped commands.