From mboxrd@z Thu Jan 1 00:00:00 1970 Path: main.gmane.org!not-for-mail From: Richard Stallman Newsgroups: gmane.emacs.devel Subject: Re: M-x edit-kbd-macro C-h l does not work in X Date: Thu, 20 Jun 2002 08:34:46 -0600 (MDT) Sender: emacs-devel-admin@gnu.org Message-ID: <200206201434.g5KEYkb18694@aztec.santafe.edu> References: <20020618170443.16251.qmail@web10107.mail.yahoo.com> Reply-To: rms@gnu.org NNTP-Posting-Host: localhost.gmane.org X-Trace: main.gmane.org 1024583812 15465 127.0.0.1 (20 Jun 2002 14:36:52 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Thu, 20 Jun 2002 14:36:52 +0000 (UTC) Cc: emacs-devel@gnu.org Return-path: Original-Received: from quimby.gnus.org ([80.91.224.244]) by main.gmane.org with esmtp (Exim 3.33 #1 (Debian)) id 17L33M-00041I-00 for ; Thu, 20 Jun 2002 16:36:52 +0200 Original-Received: from fencepost.gnu.org ([199.232.76.164]) by quimby.gnus.org with esmtp (Exim 3.12 #1 (Debian)) id 17L3V4-0007vv-00 for ; Thu, 20 Jun 2002 17:05:30 +0200 Original-Received: from localhost ([127.0.0.1] helo=fencepost.gnu.org) by fencepost.gnu.org with esmtp (Exim 3.34 #1 (Debian)) id 17L33E-0003Hx-00; Thu, 20 Jun 2002 10:36:44 -0400 Original-Received: from pele.santafe.edu ([192.12.12.119]) by fencepost.gnu.org with esmtp (Exim 3.34 #1 (Debian)) id 17L31L-0002wH-00; Thu, 20 Jun 2002 10:34:47 -0400 Original-Received: from aztec.santafe.edu (aztec [192.12.12.49]) by pele.santafe.edu (8.11.6+Sun/8.11.6) with ESMTP id g5KEYkC29645; Thu, 20 Jun 2002 08:34:47 -0600 (MDT) Original-Received: (from rms@localhost) by aztec.santafe.edu (8.10.2+Sun/8.9.3) id g5KEYkb18694; Thu, 20 Jun 2002 08:34:46 -0600 (MDT) X-Authentication-Warning: aztec.santafe.edu: rms set sender to rms@aztec using -f Original-To: sahai@yahoo.com In-Reply-To: <20020618170443.16251.qmail@web10107.mail.yahoo.com> (message from Anant Sahai on Tue, 18 Jun 2002 10:04:43 -0700 (PDT)) Errors-To: emacs-devel-admin@gnu.org X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.0.9 Precedence: bulk List-Help: List-Post: List-Subscribe: , List-Id: Emacs development discussions. List-Unsubscribe: , List-Archive: Xref: main.gmane.org gmane.emacs.devel:5008 X-Report-Spam: http://spam.gmane.org/gmane.emacs.devel:5008 Does this patch fix it? *** edmacro.el.~1.24.~ Mon Jul 16 18:45:42 2001 --- edmacro.el Wed Jun 19 12:10:16 2002 *************** *** 609,631 **** (setq i (1+ i) start (1+ start))) res)))))) ! (defun edmacro-fix-menu-commands (macro) ! (when (vectorp macro) ! (let ((i 0) ev) ! (while (< i (length macro)) ! (when (consp (setq ev (aref macro i))) ! (cond ((equal (cadadr ev) '(menu-bar)) ! (setq macro (vconcat (edmacro-subseq macro 0 i) ! (vector 'menu-bar (car ev)) ! (edmacro-subseq macro (1+ i)))) ! (incf i)) ;; It would be nice to do pop-up menus, too, but not enough ;; info is recorded in macros to make this possible. (t (error "Macros with mouse clicks are not %s" "supported by this command")))) ! (incf i)))) ! macro) ;;; Parsing a human-readable keyboard macro. --- 609,638 ---- (setq i (1+ i) start (1+ start))) res)))))) ! (defun edmacro-fix-menu-commands (macro &optional noerror) ! (if (vectorp macro) ! (let (result) ! ;; Make a list of the elements. ! (setq macro (append macro nil)) ! (dolist (ev macro) ! (cond ((atom ev) ! (push ev result)) ! ((eq (car ev) 'help-echo)) ! ((equal ev '(menu-bar)) ! (push 'menu-bar result)) ! ((equal (cadadr ev) '(menu-bar)) ! (push (vector 'menu-bar (car ev)) result)) ;; It would be nice to do pop-up menus, too, but not enough ;; info is recorded in macros to make this possible. + (noerror + ;; Just ignore mouse events. + nil) (t (error "Macros with mouse clicks are not %s" "supported by this command")))) ! ;; Reverse them again and make them back into a vector. ! (vconcat (nreverse result))) ! macro)) ;;; Parsing a human-readable keyboard macro.