Mercurial > emacs
changeset 111845:69d9367a976b
* simple.el (just-one-space): Make argument n default to 1 if
omitted.
| author | Tassilo Horn <tassilo@member.fsf.org> |
|---|---|
| date | Tue, 07 Dec 2010 20:38:38 +0100 |
| parents | ea38bb6f82b2 |
| children | 076a5b56d8c9 |
| files | lisp/ChangeLog lisp/simple.el |
| diffstat | 2 files changed, 6 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- 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):
--- 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)))