Function to insert a key sequence

[Deniz Dogan <deniz.a.m.dogan@gmail.com>]

[-- Attachment #1: Type: text/plain, Size: 248 bytes --]

Attached is a little function for inserting a key sequence entered by
the user into the current buffer. I don't know if it fits into any
existing Emacs library, but I find it quite useful, so I thought I'd
just throw it out there.

-- 
Deniz Dogan

[-- Attachment #2: insert-key-sequence.el --]
[-- Type: application/octet-stream, Size: 504 bytes --]

(defun insert-key-sequence ()
  "Reads a sequence of keys until C-g is hit, and inserts the
prettified key sequence with C-g excluded."
  (interactive "*")
  (let ((result "")
        key)
    (while (progn
             (setq key (read-key "Enter the key sequence: "))
             (unless (eq 7 key)
               (setq result (concat result (key-description (list key)) " ")))
             (not (eq 7 key))))
    (when (not (string= result ""))
      (insert result)
      (backward-delete-char 1))))