From: Luc Teirlinck <teirllm@dms.auburn.edu>
Cc: emacs-devel@gnu.org
Subject: Re: Another bug with the macro counter
Date: Sat, 30 Oct 2004 09:51:23 -0500 (CDT) [thread overview]
Message-ID: <200410301451.i9UEpNG02900@raven.dms.auburn.edu> (raw)
In-Reply-To: <m14qkcyhpj.fsf-monnier+emacs@gnu.org> (message from Stefan on Sat, 30 Oct 2004 00:06:11 -0400)
Actually, I believe I can quite as well move the _real_ defvar of
`appending-to-kbd-macro' to simple.el:
===File ~/simple-diff-4=====================================
*** simple.el 25 Oct 2004 07:40:49 -0500 1.664
--- simple.el 30 Oct 2004 09:28:02 -0500
***************
*** 857,862 ****
--- 857,865 ----
:type 'boolean
:version "21.1")
+ ;; Quiet the compiler.
+ (defvar edebug-active)
+
(defun eval-expression-print-format (value)
"Format VALUE as a result of evaluated expression.
Return a formatted string which is displayed in the echo area
***************
*** 3907,3912 ****
--- 3910,3918 ----
;Turned off because it makes dbx bomb out.
(setq blink-paren-function 'blink-matching-open)
\f
+ (defvar appending-to-kbd-macro nil
+ "Non-nil when appending to a keyboard macro definition.")
+
;; This executes C-g typed while Emacs is waiting for a command.
;; Quitting out of a program does not go through here;
;; that happens in the QUIT macro at the C code level.
***************
*** 3916,3921 ****
--- 3922,3933 ----
At top-level, as an editor command, this simply beeps."
(interactive)
(deactivate-mark)
+ (or (not (featurep 'kmacro))
+ appending-to-kbd-macro
+ ;; never exits the or.
+ (setq appending-to-kbd-macro nil)
+ (with-no-warnings (kmacro-ring-empty-p))
+ (with-no-warnings (kmacro-pop-ring)))
(setq defining-kbd-macro nil)
(signal 'quit nil))
============================================================
===File ~/kmacro-diff-4=====================================
*** kmacro.el 11 Oct 2004 17:28:10 -0500 1.23
--- kmacro.el 30 Oct 2004 09:28:52 -0500
***************
*** 564,569 ****
--- 564,570 ----
(if (or defining-kbd-macro executing-kbd-macro)
(message "Already defining keyboard macro.")
(let ((append (and arg (listp arg))))
+ (setq appending-to-kbd-macro append)
(unless append
(if last-kbd-macro
(let ((len (length kmacro-ring)))
============================================================
next prev parent reply other threads:[~2004-10-30 14:51 UTC|newest]
Thread overview: 24+ messages / expand[flat|nested] mbox.gz Atom feed top
2004-10-21 1:07 Another bug with the macro counter Luc Teirlinck
2004-10-30 2:38 ` Luc Teirlinck
2004-10-30 3:27 ` Luc Teirlinck
2004-10-30 4:06 ` Stefan
2004-10-30 14:19 ` Luc Teirlinck
2004-10-30 16:12 ` Stefan
2004-10-30 18:06 ` David Kastrup
2004-10-30 23:13 ` Luc Teirlinck
2004-10-31 0:09 ` Stefan
2004-10-31 7:43 ` David Kastrup
2004-10-31 13:30 ` Andreas Schwab
2004-10-31 17:05 ` Stefan
2004-10-31 18:36 ` David Kastrup
2004-10-31 18:52 ` Luc Teirlinck
2004-10-30 14:24 ` Luc Teirlinck
2004-10-30 14:51 ` Luc Teirlinck [this message]
2004-10-30 21:57 ` Kim F. Storm
2004-10-30 22:04 ` Luc Teirlinck
2004-10-30 22:09 ` Luc Teirlinck
2004-10-30 22:43 ` Kim F. Storm
2004-10-31 21:01 ` Luc Teirlinck
2004-10-31 23:23 ` Kim F. Storm
2004-11-01 7:24 ` Richard Stallman
2004-10-31 9:42 ` Richard Stallman
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
List information: https://www.gnu.org/software/emacs/
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=200410301451.i9UEpNG02900@raven.dms.auburn.edu \
--to=teirllm@dms.auburn.edu \
--cc=emacs-devel@gnu.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/emacs.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).