diff options
| author | Tassilo Horn <tassilo@member.fsf.org> | 2010-12-07 20:38:38 +0100 |
|---|---|---|
| committer | Tassilo Horn <tassilo@member.fsf.org> | 2010-12-07 20:38:38 +0100 |
| commit | 11c31b99b3df49323d3d59aea118d3f17c1291a4 (patch) | |
| tree | db681c1c3ea6ea53db19fca92df7690874edbf8f /lisp/simple.el | |
| parent | a733fc371502abdee5522daf40fa983de4015a41 (diff) | |
| download | emacs-11c31b99b3df49323d3d59aea118d3f17c1291a4.tar.gz | |
* simple.el (just-one-space): Make argument n default to 1 if
omitted.
Diffstat (limited to 'lisp/simple.el')
| -rw-r--r-- | lisp/simple.el | 1 |
1 files changed, 1 insertions, 0 deletions
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))) |