From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: "Robert Thorpe" Newsgroups: gmane.emacs.help Subject: Re: vim's jumplist equivalent in emacs? Date: 12 Dec 2006 10:43:43 -0800 Organization: http://groups.google.com Message-ID: <1165949023.276738.314350@n67g2000cwd.googlegroups.com> References: <1165481183.610837.121580@79g2000cws.googlegroups.com> <1165496555.501169.277080@80g2000cwy.googlegroups.com> <1165902863.411164.54180@l12g2000cwl.googlegroups.com> NNTP-Posting-Host: dough.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset="euc-kr" X-Trace: sea.gmane.org 1165952493 29787 80.91.229.10 (12 Dec 2006 19:41:33 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Tue, 12 Dec 2006 19:41:33 +0000 (UTC) Original-X-From: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Tue Dec 12 20:41:29 2006 Return-path: Envelope-to: geh-help-gnu-emacs@m.gmane.org Original-Received: from lists.gnu.org ([199.232.76.165]) by dough.gmane.org with esmtp (Exim 4.50) id 1GuDVG-00042E-EK for geh-help-gnu-emacs@m.gmane.org; Tue, 12 Dec 2006 20:41:26 +0100 Original-Received: from localhost ([127.0.0.1] helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1GuDVF-0000yE-UB for geh-help-gnu-emacs@m.gmane.org; Tue, 12 Dec 2006 14:41:25 -0500 Original-Path: shelby.stanford.edu!newsfeed.stanford.edu!postnews.google.com!n67g2000cwd.googlegroups.com!not-for-mail Original-Newsgroups: gnu.emacs.help Original-Lines: 61 Original-NNTP-Posting-Host: 213.94.228.210 Original-X-Trace: posting.google.com 1165949029 8226 127.0.0.1 (12 Dec 2006 18:43:49 GMT) Original-X-Complaints-To: groups-abuse@google.com Original-NNTP-Posting-Date: Tue, 12 Dec 2006 18:43:49 +0000 (UTC) In-Reply-To: <1165902863.411164.54180@l12g2000cwl.googlegroups.com> User-Agent: G2/1.0 X-HTTP-UserAgent: Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.7.10) Gecko/20050716 Firefox/1.0.6,gzip(gfe),gzip(gfe) X-HTTP-Via: 1.0 EMF3ASPROXY03 Complaints-To: groups-abuse@google.com Injection-Info: n67g2000cwd.googlegroups.com; posting-host=213.94.228.210; posting-account=hWoAPxMAAAAnBKSBz1ZivwUPPjEuve7bvVCHZQ8rhrluPfwcBJd92w Original-Xref: shelby.stanford.edu gnu.emacs.help:143874 Original-To: help-gnu-emacs@gnu.org 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:39479 Archived-At: Thomas wrote: > Thank you all for the answers about using marks. > But I thought they lack jumping forward How do you "jump forward". You can't really jump to something you have not yet visited. > and I decided to start my first > > emacs lisp code as follows. (I mapped C-p, C-o, C-l to the functions) I I find I use some of those, such as C-l quite a lot, you might not of-course. Maybe try mapping to places in the Emacs keymap that Emacs does not map. For example both C-digit and M-digit produce a prefix argument corresponding to whatever the digit happens to be. So C-8 C-p means move 8 lines previous. You don't need both, so why not use one of them for your own personal keys. Or use the function keys. > think this code is really ugly and any comments are welcome. And can > anyone please advice me how to make 'push-place-uniq' automatically > called every time when I execute some kind of jump actions like > searching texts, opening a file or searching tags etc? Jump actions are not treated uniformally in Emacs, except in that they set mark as we discussed earlier. What you could do is look in the mark ring. > (defvar backward-jump-list nil) > (defvar forward-jump-list nil) > > > (setq backward-jump-list nil) > (setq forward-jump-list nil) > > > (defmacro push-place-uniq (place jump-list) > ;; if the place is already at the head of jump-list, ignore it > ;; otherwise add it at the head of jump-list > (list 'if > (list 'equal place (list 'car jump-list)) > t > (list 'push place jump-list))) You could do that a little more tidily with quasiquotation. See C-h f backquote Nothing in your code screams at me as though it's wrong, but it seems to replicate the job of the mark rings. I think I see your problem though. It seems the behaviour of C-u C-SPC is quite strange. Maybe what you may want is something like the cycle function in this mode... http://www.emacswiki.org/cgi-bin/wiki/doremi-cmd.el There may be something better though, I'll think about it.