From: Kevin Rodgers <kevin.d.rodgers@gmail.com>
To: help-gnu-emacs@gnu.org
Subject: Re: remove all the whitespace characters from the cursor to the next symbol
Date: Thu, 06 May 2010 21:34:21 -0600 [thread overview]
Message-ID: <hs01nl$ub6$1@dough.gmane.org> (raw)
In-Reply-To: <cb7be740-a173-4bc1-bf4a-30edc4cd5015@e7g2000yqf.googlegroups.com>
alex_sv wrote:
> Hi all!
>
> Could you please clarify - is it possible to remove all the whitespace
> characters including newline from the current cursor position to the
> next meaningful symbol using one command?
>
> I mean if our buffer's content is as follows:
>
> texttexttext{cursor}___
> _
> ___text
>
> where '_' means space character, is it possible to press some known
> key sequence to transform the given above to the following form:
>
> texttexttext{cursor}text
;; This is copied from delete-horizontal-space, with
;; skip-chars-forward/backward " \t" replaced by
;; skip-syntax-forward/forward " ":
(defun delete-whitespace (&optional backward-only)
"Delete all characters around point with whitespace syntax.
If BACKWARD-ONLY is non-nil, only delete them before point."
(interactive "*P")
(let ((orig-pos (point)))
(delete-region
(if backward-only
orig-pos
(progn
(skip-syntax-forward " ")
(constrain-to-field nil orig-pos t)))
(progn
(skip-syntax-backward " ")
(constrain-to-field nil orig-pos)))))
;; Now bind it to a convenient key:
(global-set-key "\C-cw" 'delete-whitespace)
--
Kevin Rodgers
Denver, Colorado, USA
next prev parent reply other threads:[~2010-05-07 3:34 UTC|newest]
Thread overview: 8+ messages / expand[flat|nested] mbox.gz Atom feed top
2010-03-15 14:43 remove all the whitespace characters from the cursor to the next symbol alex_sv
2010-03-15 22:14 ` B. T. Raven
2010-03-16 1:59 ` despen
2010-03-16 2:56 ` Scott Frazer
2010-03-16 9:58 ` alex_sv
2010-05-07 3:34 ` Kevin Rodgers [this message]
2010-05-07 15:48 ` Sivaram Neelakantan
[not found] <mailman.30.1273247412.2075.help-gnu-emacs@gnu.org>
2010-05-07 18:52 ` David Rogoff
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to='hs01nl$ub6$1@dough.gmane.org' \
--to=kevin.d.rodgers@gmail.com \
--cc=help-gnu-emacs@gnu.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this external index
https://git.savannah.gnu.org/cgit/emacs.git
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.