From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: David Hansen Newsgroups: gmane.emacs.help Subject: Re: remove extra whitespace on a line Date: Sat, 02 Dec 2006 20:49:59 +0100 Organization: disorganized Message-ID: <87hcwersbc.fsf@localhorst.mine.nu> References: <87irgu8pei.fsf@gmx.at> NNTP-Posting-Host: main.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: sea.gmane.org 1165089239 10753 80.91.229.2 (2 Dec 2006 19:53:59 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Sat, 2 Dec 2006 19:53:59 +0000 (UTC) Original-X-From: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Sat Dec 02 20:53:57 2006 Return-path: Envelope-to: geh-help-gnu-emacs@m.gmane.org Original-Received: from lists.gnu.org ([199.232.76.165]) by ciao.gmane.org with esmtp (Exim 4.43) id 1Gqavq-00087l-SC for geh-help-gnu-emacs@m.gmane.org; Sat, 02 Dec 2006 20:53:55 +0100 Original-Received: from localhost ([127.0.0.1] helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1Gqavq-0006mc-Ij for geh-help-gnu-emacs@m.gmane.org; Sat, 02 Dec 2006 14:53:54 -0500 Original-Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1Gqavc-0006lF-29 for help-gnu-emacs@gnu.org; Sat, 02 Dec 2006 14:53:40 -0500 Original-Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1Gqava-0006k5-9b for help-gnu-emacs@gnu.org; Sat, 02 Dec 2006 14:53:39 -0500 Original-Received: from [199.232.76.173] (helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1Gqava-0006k2-4G for help-gnu-emacs@gnu.org; Sat, 02 Dec 2006 14:53:38 -0500 Original-Received: from [80.91.229.2] (helo=ciao.gmane.org) by monty-python.gnu.org with esmtps (TLS-1.0:RSA_AES_256_CBC_SHA:32) (Exim 4.52) id 1GqavZ-0004R6-Uw for help-gnu-emacs@gnu.org; Sat, 02 Dec 2006 14:53:38 -0500 Original-Received: from list by ciao.gmane.org with local (Exim 4.43) id 1GqavM-00081o-3Q for help-gnu-emacs@gnu.org; Sat, 02 Dec 2006 20:53:24 +0100 Original-Received: from e178025139.adsl.alicedsl.de ([85.178.25.139]) by main.gmane.org with esmtp (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Sat, 02 Dec 2006 20:53:24 +0100 Original-Received: from david.hansen by e178025139.adsl.alicedsl.de with local (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Sat, 02 Dec 2006 20:53:24 +0100 X-Injected-Via-Gmane: http://gmane.org/ Mail-Followup-To: help-gnu-emacs@gnu.org Original-To: help-gnu-emacs@gnu.org Original-Lines: 32 Original-X-Complaints-To: usenet@sea.gmane.org X-Gmane-NNTP-Posting-Host: e178025139.adsl.alicedsl.de Mail-Copies-To: nobody User-Agent: Gnus/5.110006 (No Gnus v0.6) Emacs/22.0.91 (gnu/linux) Cancel-Lock: sha1:9zb5CSxbyUG3sBC/8mryVr+Zvnw= X-BeenThere: help-gnu-emacs@gnu.org X-Mailman-Version: 2.1.5 Precedence: list List-Id: Users list for the GNU Emacs text editor List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Original-Sender: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Errors-To: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.help:39209 Archived-At: On Sat, 02 Dec 2006 12:40:43 -0500 Greg Bognar wrote: > So this is what I want, isn't it? > > (defun just-one-space-in-current-line () > (interactive) > (save-excursion > (save-restriction > (narrow-to-region (line-beginning-position) > (line-end-position)) > (goto-char (point-min)) > (canonically-space-region He, nice to see that there is always something one didn't know about Emacs. With this command you can forget about the narrowing. It's doing all you want (well nearly, you still have to mark the line): C-a C-SPC C-e M-x canonically-space-region > (line-beginning-position) (line-end-position))))) Or your code a bit compressed: (defun just-one-space-in-current-line () (interactive) (canonically-space-region (point-at-bol) (point-at-eol))) David