From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Andreas Politz Newsgroups: gmane.emacs.help Subject: Re: Writing a function for a indented copy of a region Date: Thu, 18 Dec 2008 01:27:55 +0100 Organization: FH-Trier Message-ID: <1229560143.209829@arno.fh-trier.de> References: <1229543337.962004@arno.fh-trier.de> <38ccb458-3f76-4461-bf75-57c674affae9@c36g2000prc.googlegroups.com> NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=ISO-8859-1; format=flowed Content-Transfer-Encoding: 7bit X-Trace: ger.gmane.org 1229560854 21867 80.91.229.12 (18 Dec 2008 00:40:54 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Thu, 18 Dec 2008 00:40:54 +0000 (UTC) To: help-gnu-emacs@gnu.org Original-X-From: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Thu Dec 18 01:41:59 2008 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 1LD6xZ-0006Gt-0e for geh-help-gnu-emacs@m.gmane.org; Thu, 18 Dec 2008 01:41:49 +0100 Original-Received: from localhost ([127.0.0.1]:56052 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1LD6wM-00045j-Ui for geh-help-gnu-emacs@m.gmane.org; Wed, 17 Dec 2008 19:40:34 -0500 Original-Path: news.stanford.edu!headwall.stanford.edu!news.glorb.com!newsfeed00.sul.t-online.de!t-online.de!inka.de!peernews!news.belwue.de!news.uni-kl.de!not-for-mail Original-Newsgroups: gnu.emacs.help Original-Lines: 38 Original-NNTP-Posting-Host: 143-93-54-11.arno.fh-trier.de Original-X-Trace: news.uni-kl.de 1229560192 6015 143.93.54.11 (18 Dec 2008 00:29:52 GMT) Original-X-Complaints-To: usenet@news.uni-kl.de Original-NNTP-Posting-Date: Thu, 18 Dec 2008 00:29:52 +0000 (UTC) User-Agent: Mozilla-Thunderbird 2.0.0.17 (X11/20081018) In-Reply-To: <38ccb458-3f76-4461-bf75-57c674affae9@c36g2000prc.googlegroups.com> Cache-Post-Path: arno.fh-trier.de!unknown@dslb-088-069-055-224.pools.arcor-ip.net X-Cache: nntpcache 3.0.1 (see http://www.nntpcache.org/) Original-Xref: news.stanford.edu gnu.emacs.help:165430 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:60761 Archived-At: Decebal wrote: > On 17 dec, 20:47, Andreas Politz wrote: >> Why not work with a string, instead of messing with your buffers undo history. >> >> (defun kill-save-indent-region (indent start end) >> (interactive "p\nr") >> (kill-new (replace-regexp-in-string >> "^" ;or "^\\s-*" >> (format (format "%%%ds" (case indent >> (0 1) >> (1 4) >> (t indent))) >> "") >> (buffer-substring start end))) >> (deactivate-mark)) > > Looking at your code I should replace: > (indent-rigidly (region-beginning) (region-end) indent) > (if do-kill > (kill-region (region-beginning) (region-end)) > (copy-region-as-kill (region-beginning) (region-end)) > (undo) > ) > with: > (kill-new (replace-regexp-in-string > "^" > (format (format "%%%ds" indent) "") > (filter-buffer-substring (region-beginning) (region- > end) do-kill) > ) > ) > > but then I get that filter-buffer-substring is void. What am I doing > wrong? You are using a undefined function ? -ap