From: Tassilo Horn <tassilo@member.fsf.org>
Date: Tue, 7 Dec 2010 19:38:38 +0000 (+0100)
Subject: * simple.el (just-one-space): Make argument n default to 1 if
X-Git-Tag: emacs-pretest-24.0.90~104^2~275^2~438^2~45^2~25
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=11c31b99b3df49323d3d59aea118d3f17c1291a4;p=emacs.git

* simple.el (just-one-space): Make argument n default to 1 if
omitted.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 372730323c8..6eb650ae7bb 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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):
diff --git a/lisp/simple.el b/lisp/simple.el
index 7300fb78a88..da8ac55c01d 100644
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -764,6 +764,7 @@ If BACKWARD-ONLY is non-nil, only delete them before point."
   "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)))