procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(delete-horizontal-space): Add BACKWARD-ONLY parameter.

Browse source 
Respect field end too.
(just-one-space): Respect fields as `delete-horizontal-space'.
(newline-and-indent, reindent-then-newline-and-indent): Use
`delete-horizontal-space'.
This commit is contained in:
Miles Bader 2000-12-12 01:20:55 +00:00
parent 657706fa94
commit 5ff4ba3ddf
2 changed files with 28 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lisp/ChangeLog
View file

@ -1,3 +1,11 @@
2000-12-12 Miles Bader <miles@gnu.org>
* simple.el (delete-horizontal-space): Add BACKWARD-ONLY parameter.
Respect field end too.
(just-one-space): Respect fields as `delete-horizontal-space'.
(newline-and-indent, reindent-then-newline-and-indent): Use
`delete-horizontal-space'.
2000-12-11 Stefan Monnier <monnier@cs.yale.edu>
* newcomment.el (comment-indent-new-line): Use delete-horizontal-space

29
lisp/simple.el
View file

@ -245,7 +245,7 @@ In programming language modes, this is the same as TAB.
In some text modes, where TAB inserts a tab, this command indents to the
column specified by the function `current-left-margin'."
(interactive "*")
(delete-region (point) (progn (skip-chars-backward " \t") (point)))
(delete-horizontal-space t)
(newline)
(indent-according-to-mode))
@ -258,7 +258,7 @@ In some text modes, where TAB inserts a tab, this indents to the
column specified by the function `current-left-margin'."
(interactive "*")
(save-excursion
(delete-region (point) (progn (skip-chars-backward " \t") (point)))
(delete-horizontal-space t)
(indent-according-to-mode))
(newline)
(indent-according-to-mode))
@ -331,21 +331,32 @@ Leave one space or none, according to the context."
nil
(insert ?\ ))))
(defun delete-horizontal-space ()
"Delete all spaces and tabs around point."
(defun delete-horizontal-space (&optional backward-only)
"Delete all spaces and tabs around point.
If BACKWARD-ONLY is non-nil, only delete spaces before point."
(interactive "*")
(skip-chars-backward " \t" (field-beginning))
(delete-region (point) (progn (skip-chars-forward " \t") (point))))
(delete-region
(if backward-only
(point)
(progn
(skip-chars-forward " \t" (field-end))
(point)))
(progn
(skip-chars-backward " \t" (field-beginning nil t))
(point))))
(defun just-one-space ()
"Delete all spaces and tabs around point, leaving one space."
(interactive "*")
(skip-chars-backward " \t")
(skip-chars-backward " \t" (field-beginning))
(if (= (following-char) ? )
(forward-char 1)
(insert ? ))
(delete-region (point) (progn (skip-chars-forward " \t") (point))))
(delete-region
(point)
(progn
(skip-chars-forward " \t" (field-end nil t))
(point))))
(defun beginning-of-buffer (&optional arg)
"Move point to the beginning of the buffer; leave mark at previous position.