mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-28 07:45:00 +00:00
Code Issues Releases Activity

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

Browse Source 
omitted.
This commit is contained in:
Tassilo Horn 2010-12-07 20:38:38 +01:00
parent a733fc3715
commit 11c31b99b3
2 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -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):

1
lisp/simple.el
View File

@ -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)))