From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Harry Putnam Newsgroups: gmane.emacs.help Subject: Re: Help with upcasing words first char Date: Tue, 25 Aug 2009 14:35:35 -0500 Organization: Still searching... Message-ID: <87ljl7zny0.fsf@newsguy.com> References: <87ab1ru9zt.fsf@newsguy.com> <87fxbjwquk.fsf@galatea.local> <7cpralutkh.fsf@pbourguignon.anevia.com> <874orwsu8s.fsf@newsguy.com> <87iqgcvkg7.fsf@galatea.local> <87ab1n52ma.fsf@newsguy.com> NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: ger.gmane.org 1251229003 28852 80.91.229.12 (25 Aug 2009 19:36:43 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Tue, 25 Aug 2009 19:36:43 +0000 (UTC) To: help-gnu-emacs@gnu.org Original-X-From: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Tue Aug 25 21:36:36 2009 Return-path: Envelope-to: geh-help-gnu-emacs@m.gmane.org Original-Received: from lists.gnu.org ([199.232.76.165]) by lo.gmane.org with esmtp (Exim 4.50) id 1Mg1op-0005LB-4T for geh-help-gnu-emacs@m.gmane.org; Tue, 25 Aug 2009 21:36:35 +0200 Original-Received: from localhost ([127.0.0.1]:37963 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1Mg1oo-0005PL-Dz for geh-help-gnu-emacs@m.gmane.org; Tue, 25 Aug 2009 15:36:34 -0400 Original-Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1Mg1oQ-0005PE-Dh for help-gnu-emacs@gnu.org; Tue, 25 Aug 2009 15:36:10 -0400 Original-Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1Mg1oL-0005Ol-I2 for help-gnu-emacs@gnu.org; Tue, 25 Aug 2009 15:36:09 -0400 Original-Received: from [199.232.76.173] (port=48298 helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1Mg1oL-0005Oi-BV for help-gnu-emacs@gnu.org; Tue, 25 Aug 2009 15:36:05 -0400 Original-Received: from lo.gmane.org ([80.91.229.12]:45453) by monty-python.gnu.org with esmtps (TLS-1.0:RSA_AES_256_CBC_SHA1:32) (Exim 4.60) (envelope-from ) id 1Mg1oK-0006e3-Pq for help-gnu-emacs@gnu.org; Tue, 25 Aug 2009 15:36:05 -0400 Original-Received: from list by lo.gmane.org with local (Exim 4.50) id 1Mg1oD-000569-TY for help-gnu-emacs@gnu.org; Tue, 25 Aug 2009 21:35:57 +0200 Original-Received: from c-98-215-178-110.hsd1.in.comcast.net ([98.215.178.110]) by main.gmane.org with esmtp (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Tue, 25 Aug 2009 21:35:57 +0200 Original-Received: from reader by c-98-215-178-110.hsd1.in.comcast.net with local (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Tue, 25 Aug 2009 21:35:57 +0200 X-Injected-Via-Gmane: http://gmane.org/ Original-Lines: 42 Original-X-Complaints-To: usenet@ger.gmane.org X-Gmane-NNTP-Posting-Host: c-98-215-178-110.hsd1.in.comcast.net User-Agent: Gnus/5.110011 (No Gnus v0.11) Emacs/23.0.96 (gnu/linux) Cancel-Lock: sha1:ZuHEGu0yXzRiNMzHsxbIVzuU6Rw= X-detected-operating-system: by monty-python.gnu.org: GNU/Linux 2.6 (newer, 3) 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:67526 Archived-At: If I might try your patience even further.. I wondered if you might take time to explain what controls where the cursor ends up... in the code you proposed earlier. (A slightly changed version is included at the end) What I see looks like this (Upcase X is where cursor ends up): some more xrays SomeMoreXrays - Is it this bit where that happens? (delete-region (match-beginning 0) (match-end 0)))) (set-marker end nil)))) Can something be altered in there to make the cursor land at the end of the line? SomeMoreXrays[here] Or is it done where `m' is assigned the value it holds? It appears to my untrained eye that `m' is told to hold the position of the end of the effected text... which would be the last place a space or tab was removed... (I guess.) Anyway... how would I go about making this useful function place the cursor where I want it (at the end of the effected text (including what ever string of text is past the last affected area [spc/\t] where action is taken? ===== * ===== * ===== * ===== (defun camelize-region (start end) (interactive "r") (capitalize-region start end) (let ((end (let ((m (make-marker))) (set-marker m end) m))) (unwind-protect (progn (goto-char start) (while (re-search-forward "[ \t]+" end t) (delete-region (match-beginning 0) (match-end 0)))) (set-marker end nil))))