[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

address@hidden: kmacro-bind-to-key does not bind to function keys]

From: Richard Stallman
Subject: address@hidden: kmacro-bind-to-key does not bind to function keys]
Date: Sun, 08 Jul 2007 18:23:20 -0400

Would someone please DTRT, then ack?

------- Start of forwarded message -------
X-Spam-Status: No, score=0.0 required=5.0 tests=UNPARSEABLE_RELAY 
        autolearn=failed version=3.1.0
Date: Sun, 8 Jul 2007 14:53:13 +0300
From: Gideon Stupp <address@hidden>
To: address@hidden
DKIM-Signature: v=0.5; a=rsa-sha256; q=dns/txt; l=1547; t=1183895600;
        x=1184759600; c=relaxed/simple; s=amsdkim1002;
        d=cisco.com; address@hidden;
        |Sender:=20; bh=lbJVRecmfXigonNTZ61o9tB7X/GOd7tacBxeU1hN3vI=;
Authentication-Results: ams-dkim-1; address@hidden; dkim=pass (
        sig from cisco.com/amsdkim1002 verified; ); 
Subject: kmacro-bind-to-key does not bind to function keys

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

bug-gnu-emacs mailing list
------- End of forwarded message -------

reply via email to

[Prev in Thread] Current Thread [Next in Thread]