From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: =?ISO-8859-1?Q?Nordl=F6w?= Newsgroups: gmane.emacs.help Subject: Wrapper for query-replace does not use query-replace-history Date: Thu, 11 Jun 2009 00:48:31 -0700 (PDT) Organization: http://groups.google.com Message-ID: <2cccace8-2617-40bd-ba82-9163412ba3db@e21g2000yqb.googlegroups.com> NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=ISO-8859-1 Content-Transfer-Encoding: quoted-printable X-Trace: ger.gmane.org 1244710039 760 80.91.229.12 (11 Jun 2009 08:47:19 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Thu, 11 Jun 2009 08:47:19 +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 Jun 11 10:47:16 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 1MEfwG-0004zm-Nu for geh-help-gnu-emacs@m.gmane.org; Thu, 11 Jun 2009 10:47:13 +0200 Original-Received: from localhost ([127.0.0.1]:42039 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1MEfwF-0000L0-2e for geh-help-gnu-emacs@m.gmane.org; Thu, 11 Jun 2009 04:47:11 -0400 Original-Path: news.stanford.edu!newsfeed.stanford.edu!postnews.google.com!e21g2000yqb.googlegroups.com!not-for-mail Original-Newsgroups: gnu.emacs.help Original-Lines: 24 Original-NNTP-Posting-Host: 150.227.15.253 Original-X-Trace: posting.google.com 1244706511 22212 127.0.0.1 (11 Jun 2009 07:48:31 GMT) Original-X-Complaints-To: groups-abuse@google.com Original-NNTP-Posting-Date: Thu, 11 Jun 2009 07:48:31 +0000 (UTC) Complaints-To: groups-abuse@google.com Injection-Info: e21g2000yqb.googlegroups.com; posting-host=150.227.15.253; posting-account=ytJKAgoAAAA1tg4ScoRszebXiIldA5vg User-Agent: G2/1.0 X-HTTP-UserAgent: Mozilla/5.0 (X11; U; Linux i686; sv-SE; rv:1.9.0.10) Gecko/2009042523 Ubuntu/9.04 (jaunty) Firefox/3.0.10, gzip(gfe), gzip(gfe) X-HTTP-Via: 1.1 ip1-w.foi.se:8080 (IronPort-WSA/5.6.4-015) Original-Xref: news.stanford.edu gnu.emacs.help:169917 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:65152 Archived-At: Hey I have a built a convenience wrapper for query-replace-regexp that surrounds it argument with beginning and end of symbol regexps. I want it to modify query-replace-history but it doesn't. Why? /Nordl=F6w Code follows. (defun build-symbol-regexp (id) "Matches an ID as single word symbol (or C identifier) that does not respect underscore." (concat "\\_<" id "\\_>")) ;; In Emacs-Lisp mode minus-sign is not allowed before or after. (defun query-replace-symbol (source dest) "Rename a symbol (currently C-style) string symbol (identifier) which unique name is determined by SOURCE replacing it with DEST." (interactive "sQuery replace symbol (identifier): \nsReplace with: ") (query-replace-regexp (build-symbol-regexp (regexp-quote source)) ;quote string to regexp (concat dest)))