From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: =?windows-1252?Q?Andreas_R=F6hler?= Newsgroups: gmane.emacs.help Subject: Re: Using lisp code in query-replace-regexp Date: Tue, 04 Nov 2014 19:38:01 +0100 Message-ID: <54591D09.1060108@easy-emacs.de> References: <87mw87owb1.fsf@free.fr> NNTP-Posting-Host: plane.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=windows-1252; format=flowed Content-Transfer-Encoding: 7bit X-Trace: ger.gmane.org 1415126336 9124 80.91.229.3 (4 Nov 2014 18:38:56 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Tue, 4 Nov 2014 18:38:56 +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 Nov 04 19:38:49 2014 Return-path: Envelope-to: geh-help-gnu-emacs@m.gmane.org Original-Received: from lists.gnu.org ([208.118.235.17]) by plane.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1Xlj0C-000861-Tt for geh-help-gnu-emacs@m.gmane.org; Tue, 04 Nov 2014 19:38:49 +0100 Original-Received: from localhost ([::1]:42271 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Xlj0C-0003ja-F3 for geh-help-gnu-emacs@m.gmane.org; Tue, 04 Nov 2014 13:38:48 -0500 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:52158) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Xlizu-0003gk-7r for help-gnu-emacs@gnu.org; Tue, 04 Nov 2014 13:38:37 -0500 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1Xlizm-0000C0-OC for help-gnu-emacs@gnu.org; Tue, 04 Nov 2014 13:38:30 -0500 Original-Received: from mout.kundenserver.de ([212.227.17.13]:56353) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Xlizm-0000Bj-Fe for help-gnu-emacs@gnu.org; Tue, 04 Nov 2014 13:38:22 -0500 Original-Received: from [192.168.178.32] (brln-4dba126a.pool.mediaWays.net [77.186.18.106]) by mrelayeu.kundenserver.de (node=mreue101) with ESMTP (Nemesis) id 0LjJmB-1YKDvq0frL-00dYkN; Tue, 04 Nov 2014 19:38:17 +0100 User-Agent: Mozilla/5.0 (X11; Linux i686; rv:31.0) Gecko/20100101 Icedove/31.2.0 In-Reply-To: <87mw87owb1.fsf@free.fr> X-Provags-ID: V02:K0:2CSFMCzI2rHkt1x/4lLgNA8+7WmqN7TaMTs/q29Uf9Y Db8vHqFcoq3vqh5/8cVzbuRWOtw4KtE3E8OjZtWLQOQgkZY852 lycpMcHgB+78e9PhcnBJAxfz3dsPeUu3eA6Y6Jj7opIyfehVN6 7Thuylntoi8JRKDyytp6STV/AdcP/PH/E3Y6rSdDEAf06kNjyp GkcmMKDdsLaqcQ/LKoLMh+tUz1PjIrCX+VYHrypCJUPndNgNzz Mt+1MaDa+v0UPJRlAjLS5MLl4IYJsGo+qzZCNRcorAyYdttGMZ G/W/aY7D58ZeWZBzDmlM7CWbIiYd7fF/uLdrKNnvAziziQgu3U Nlu1f9cYTrDBfN7/6e+xVtoQH6+z/2vhmRZtup8Kn X-UI-Out-Filterresults: notjunk:1; X-detected-operating-system: by eggs.gnu.org: GNU/Linux 3.x [generic] X-Received-From: 212.227.17.13 X-BeenThere: help-gnu-emacs@gnu.org X-Mailman-Version: 2.1.14 Precedence: list List-Id: Users list for the GNU Emacs text editor List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Original-Sender: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.help:100744 Archived-At: On 04.11.2014 15:49, Julien Cubizolles wrote: > I can use the following replace string (for lack of a better term) with > query-replace-regexp > > --8<---------------cut here---------------start------------->8--- > \,(if (equal \2 nil) "+" (concat "+ " \2 " ::")) > --8<---------------cut here---------------end--------------->8--- > > How can I input it in a lisp function like: > > --8<---------------cut here---------------start------------->8--- > (defun jc-item-to-plus (Begin End) > "Replace \\item by +" > (interactive "r") > (query-replace-regexp Begin End "some_standard_regexp" (if (equal \2 nil) "+" (concat "+ " \2 " ::"))) > ) > --8<---------------cut here---------------end--------------->8--- > > Julien. > > > When writing a program, for example start with (narrow-to-region beg end) (goto-char (point-min)) (while (re-search-forward RE end) (replace-match ... etc.