[Emacs-diffs] /srv/bzr/emacs/trunk r102603: * simple.el (just-one-space): Make argument n default to 1 if

[Tassilo Horn]

------------------------------------------------------------
revno: 102603
committer: Tassilo Horn <address@hidden>
branch nick: trunk
timestamp: Tue 2010-12-07 20:38:38 +0100
message:
  * simple.el (just-one-space): Make argument n default to 1 if
  omitted.
modified:
  lisp/ChangeLog
  lisp/simple.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2010-12-07 15:36:08 +0000
+++ b/lisp/ChangeLog    2010-12-07 19:38:38 +0000
@@ -1,3 +1,8 @@
+2010-12-07  Tassilo Horn  <address@hidden>
+
+       * simple.el (just-one-space): Make argument n default to 1 if
+       omitted.
+
 2010-12-07  Stefan Monnier  <address@hidden>
 
        * electric.el (electric-indent-post-self-insert-function):

=== modified file 'lisp/simple.el'
--- a/lisp/simple.el    2010-12-06 18:21:42 +0000
+++ b/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)))