kmacro-bind-to-key does not bind to function keys

kmacro-bind-to-key does not bind to function keys

[Gideon Stupp]

kmacro-bind-to-key returns "call-interactively: Wrong type argument: number-or-marker-p, f12"
 when trying to assign a macro to function key f12.  Possible patch:

--- /tmp/kmacro.el.orig	2007-07-08 14:48:17.000000000 +0300
+++ /tmp/kmacro.el	2007-07-08 14:49:01.000000000 +0300
@@ -793,7 +793,8 @@
       (error "No keyboard macro defined"))
     (let ((key-seq (read-key-sequence "Bind last macro to key: "))
 	  ok cmd)
-      (when (= (length key-seq) 1)
+      (when (and (stringp key-seq) 
+		 (= (length key-seq) 1))
 	(let ((ch (aref key-seq 0)))
 	  (if (or (and (>= ch ?0) (<= ch ?9))
 		  (and (>= ch ?A) (<= ch ?Z)))


In GNU Emacs 22.1.1 (i686-pc-linux-gnu, X toolkit, Xaw3d scroll bars)
 of 2007-07-08 on gstupp-lnx
Windowing system distributor `The X.Org Foundation', version 11.0.60802000
Important settings:
  value of $LC_ALL: nil
  value of $LC_COLLATE: nil
  value of $LC_CTYPE: nil
  value of $LC_MESSAGES: nil
  value of $LC_MONETARY: nil
  value of $LC_NUMERIC: nil
  value of $LC_TIME: nil
  value of $LANG: en_US.UTF-8
  locale-coding-system: utf-8
  default-enable-multibyte-characters: t

Major mode: Help

Minor modes in effect:
  shell-dirtrack-mode: t
  which-function-mode: t
  show-paren-mode: t
  mouse-wheel-mode: t
  file-name-shadow-mode: t
  global-font-lock-mode: t
  font-lock-mode: t
  blink-cursor-mode: t
  unify-8859-on-encoding-mode: t
  utf-translate-cjk-mode: t
  auto-compression-mode: t
  column-number-mode: t
  line-number-mode: t
  view-mode: t