From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!.POSTED!not-for-mail From: Emanuel Berg Newsgroups: gmane.emacs.help Subject: Re: How to return to the position from where I did tags-query-replace? Date: Sun, 04 Feb 2018 04:28:02 +0100 Organization: Aioe.org NNTP Server Message-ID: <86d11lxwl9.fsf@zoho.com> References: <1189017224.525081.173930@22g2000hsm.googlegroups.com> <2f9fe1c0-f382-47d4-8df2-0b39d3645385@googlegroups.com> NNTP-Posting-Host: blaine.gmane.org Mime-Version: 1.0 Content-Type: text/plain X-Trace: blaine.gmane.org 1517714914 4233 195.159.176.226 (4 Feb 2018 03:28:34 GMT) X-Complaints-To: usenet@blaine.gmane.org NNTP-Posting-Date: Sun, 4 Feb 2018 03:28:34 +0000 (UTC) User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/24.4 (gnu/linux) To: help-gnu-emacs@gnu.org Original-X-From: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Sun Feb 04 04:28:30 2018 Return-path: Envelope-to: geh-help-gnu-emacs@m.gmane.org Original-Received: from lists.gnu.org ([208.118.235.17]) by blaine.gmane.org with esmtp (Exim 4.84_2) (envelope-from ) id 1eiAyd-0000Rl-6q for geh-help-gnu-emacs@m.gmane.org; Sun, 04 Feb 2018 04:28:23 +0100 Original-Received: from localhost ([::1]:54529 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1eiB0e-00063W-34 for geh-help-gnu-emacs@m.gmane.org; Sat, 03 Feb 2018 22:30:28 -0500 Original-Path: usenet.stanford.edu!news.tele.dk!news.tele.dk!small.news.tele.dk!newsfeed.xs4all.nl!newsfeed7.news.xs4all.nl!2a00:1d38:fa:105::183.MISMATCH!feed.usenet.farm!feeder3.usenet.farm!aioe.org!.POSTED!not-for-mail Original-Newsgroups: gnu.emacs.help Original-Lines: 35 Original-NNTP-Posting-Host: VFF8n9P1H/v9pfNWKwEKwA.user.gioia.aioe.org Original-X-Complaints-To: abuse@aioe.org Cancel-Lock: sha1:8VorYGXWg11haBW1U08qJPgmJ34= Mail-Copies-To: never X-Notice: Filtered by postfilter v. 0.8.2 Original-Xref: usenet.stanford.edu gnu.emacs.help:221789 X-BeenThere: help-gnu-emacs@gnu.org X-Mailman-Version: 2.1.21 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" Xref: news.gmane.org gmane.emacs.help:115906 Archived-At: Ambrose Laing wrote: > I would like the same outcome as the original > poster: I would like for tags-query-replace > to always return to the position of the point > when the command was invoked, except that > I want it to happen programmatically. > Here are two approaches I tried, neither of > which works. In general, I would do it like this. Perhaps you can modify it so that instead of applying `apply' to the args, put `tags-query-replace' there and give the whole thing the same interface as that function (also change the name, of course). This means you also have to change shortcuts to invoke it instead of the original function. With advice it can be set up completely transparent if you care to read up on those... (defun do-whatever-return (fun &rest args) (let ((point (point)) (buffer (current-buffer)) ) (apply fun args) (when (bufferp buffer) (switch-to-buffer buffer) (goto-char (point) )))) ;; (do-whatever-return #'switch-to-buffer "*Help*") -- underground experts united http://user.it.uu.se/~embe8573