# HG changeset patch
# User Tassilo Horn <tassilo@member.fsf.org>
# Date 1291750718 -3600
# Node ID 69d9367a976bcc25b450f73dc639e9d2b1319539
# Parent  ea38bb6f82b256ff558210b9021e38560715008a
* simple.el (just-one-space): Make argument n default to 1 if
omitted.

diff -r ea38bb6f82b2 -r 69d9367a976b lisp/ChangeLog
--- a/lisp/ChangeLog	Tue Dec 07 10:36:08 2010 -0500
+++ b/lisp/ChangeLog	Tue Dec 07 20:38:38 2010 +0100
@@ -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 -r ea38bb6f82b2 -r 69d9367a976b lisp/simple.el
--- a/lisp/simple.el	Tue Dec 07 10:36:08 2010 -0500
+++ b/lisp/simple.el	Tue Dec 07 20:38:38 2010 +0100
@@ -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)))