From: Tassilo Horn <tassilo@member.fsf.org>
To: Dustin Sallings <dustin@membase.com>
Cc: 7778@debbugs.gnu.org
Subject: bug#7778: 24.0.50; just-one-space fails when optional argument is not provided
Date: Mon, 03 Jan 2011 22:43:57 +0100 [thread overview]
Message-ID: <87y671wtlu.fsf@member.fsf.org> (raw)
In-Reply-To: <mailman.5.1294086288.22993.bug-gnu-emacs@gnu.org> (Dustin Sallings's message of "Mon, 3 Jan 2011 11:58:58 -0800")
Dustin Sallings <dustin@membase.com> writes:
Hi Dustin,
> Any invocation of (just-one-space) without providing a numeric
> argument.
I think, I've already fixed that on the trunk with the bzr commit
102603: Tassilo Horn 2010-12-07 * simple.el (just-one-space)
That was the diff.
--8<---------------cut here---------------start------------->8---
=== modified file 'lisp/ChangeLog'
--- lisp/ChangeLog 2010-12-07 15:36:08 +0000
+++ lisp/ChangeLog 2010-12-07 19:38:38 +0000
@@ -1,3 +1,8 @@
+2010-12-07 Tassilo Horn <tassilo@member.fsf.org>
+
+ * simple.el (just-one-space): Make argument n default to 1 if
+ omitted.
+
2010-12-07 Stefan Monnier <monnier@iro.umontreal.ca>
* electric.el (electric-indent-post-self-insert-function):
=== modified file 'lisp/simple.el'
--- lisp/simple.el 2010-12-06 18:21:42 +0000
+++ lisp/simple.el 2010-12-07 19:38:38 +0000
@@ -764,6 +764,7 @@
"Delete all spaces and tabs around point, leaving one space (or N spaces).
If N is negative, deletes carriage return and linefeed characters as well."
(interactive "*p")
+ (unless n (setq n 1))
(let ((orig-pos (point))
(skip-characters (if (< n 0) " \t\n\r" " \t"))
(n (abs n)))
--8<---------------cut here---------------end--------------->8---
Bye,
Tassilo
next parent reply other threads:[~2011-01-03 21:43 UTC|newest]
Thread overview: 3+ messages / expand[flat|nested] mbox.gz Atom feed top
[not found] <mailman.5.1294086288.22993.bug-gnu-emacs@gnu.org>
2011-01-03 21:43 ` Tassilo Horn [this message]
2011-01-03 19:58 bug#7778: 24.0.50; just-one-space fails when optional argument is not provided Dustin Sallings
2011-01-03 20:49 ` Glenn Morris
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
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=87y671wtlu.fsf@member.fsf.org \
--to=tassilo@member.fsf.org \
--cc=7778@debbugs.gnu.org \
--cc=dustin@membase.com \
/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 external index
https://git.savannah.gnu.org/cgit/emacs.git
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.