From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Juri Linkov Newsgroups: gmane.emacs.devel Subject: Re: Convert a keyboard macro to equivalent Lisp code Date: Wed, 09 Jun 2010 11:34:04 +0300 Organization: JURTA Message-ID: <87y6eo3a4r.fsf@mail.jurta.org> References: <87fx11mfd3.fsf@mail.jurta.org> <87bpbn55au.fsf@mail.jurta.org> <87iq5uuemn.fsf@mail.jurta.org> NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: dough.gmane.org 1276073726 25709 80.91.229.12 (9 Jun 2010 08:55:26 GMT) X-Complaints-To: usenet@dough.gmane.org NNTP-Posting-Date: Wed, 9 Jun 2010 08:55:26 +0000 (UTC) Cc: emacs-devel@gnu.org To: Stefan Monnier Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Wed Jun 09 10:55:24 2010 connect(): No such file or directory Return-path: Envelope-to: ged-emacs-devel@m.gmane.org Original-Received: from lists.gnu.org ([199.232.76.165]) by lo.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1OMH4F-00068J-NT for ged-emacs-devel@m.gmane.org; Wed, 09 Jun 2010 10:55:24 +0200 Original-Received: from localhost ([127.0.0.1]:55571 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1OMH4F-0000uk-7U for ged-emacs-devel@m.gmane.org; Wed, 09 Jun 2010 04:55:23 -0400 Original-Received: from [140.186.70.92] (port=51917 helo=eggs.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1OMH42-0000rR-GZ for emacs-devel@gnu.org; Wed, 09 Jun 2010 04:55:12 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.69) (envelope-from ) id 1OMH41-0000Lz-3Z for emacs-devel@gnu.org; Wed, 09 Jun 2010 04:55:10 -0400 Original-Received: from smtp-out1.starman.ee ([85.253.0.3]:56403 helo=mx1.starman.ee) by eggs.gnu.org with esmtp (Exim 4.69) (envelope-from ) id 1OMH40-0000LD-TJ for emacs-devel@gnu.org; Wed, 09 Jun 2010 04:55:09 -0400 X-Virus-Scanned: by Amavisd-New at mx1.starman.ee Original-Received: from mail.starman.ee (82.131.33.93.cable.starman.ee [82.131.33.93]) by mx1.starman.ee (Postfix) with ESMTP id AC4613F412A; Wed, 9 Jun 2010 11:55:03 +0300 (EEST) In-Reply-To: (Stefan Monnier's message of "Tue, 08 Jun 2010 21:36:30 -0400") User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/24.0.50 (x86_64-pc-linux-gnu) X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.6, seldom 2.4 (older, 4) X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.1.5 Precedence: list List-Id: "Emacs development discussions." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Original-Sender: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Errors-To: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.devel:125666 Archived-At: > The part you don't understand is that I only noticed your > >> if (NILP (last_char)) >> last_char = last_command_event; > > right *after* sending my email. But your objection prompted me to look closely at `self-insert-command', and I found another reason (`translate_char') why it won't work ;-) >>> Of course, even better would be if the code run during macro recording >>> is the code generated (so if the behavior is different from the normal >>> command's behavior, you might see it during recording). >> We could later add an option to verify to macro during recording. > > I'm heading towards a special "recording&running macro" mode where > various commands may have a slightly different behavior (less DWIMish, > more amenable to scripting, more amenable to transforming into Elisp > code), so "verifying" might not be the right approach since a different > behavior might not be a problem but a feature. Then it's a different feature. This is more like command translation during recording and running a macro. This is already possible to do without core support with: (add-hook 'pre-command-hook (lambda () (when (or defining-kbd-macro executing-kbd-macro) (cond ((eq this-command 'next-line) (setq this-command 'forward-line)))))) and maybe better: (add-hook 'pre-command-hook (lambda () (when (or defining-kbd-macro executing-kbd-macro) (cond ((memq this-command '(next-line previous-line)) (setq line-move-visual nil)))))) (add-hook 'post-command-hook (lambda () (when (or defining-kbd-macro executing-kbd-macro) (cond ((memq this-command '(next-line previous-line)) (setq line-move-visual t)))))) -- Juri Linkov http://www.jurta.org/emacs/