From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.io!.POSTED.blaine.gmane.org!not-for-mail From: Tim Johnson Newsgroups: gmane.emacs.help Subject: Re: Visiting buffers programmatically Date: Fri, 11 Jun 2021 09:27:42 -0800 Message-ID: <00afe9a3-2f29-7a57-0358-2463dc028aca@akwebsoft.com> References: <5fc2e0a6-470e-0ebc-fe81-9eea2dd7fa5f@akwebsoft.com> Mime-Version: 1.0 Content-Type: text/plain; charset=utf-8; format=flowed Content-Transfer-Encoding: 7bit Injection-Info: ciao.gmane.io; posting-host="blaine.gmane.org:116.202.254.214"; logging-data="32078"; mail-complaints-to="usenet@ciao.gmane.io" User-Agent: Mozilla/5.0 (X11; Linux x86_64; rv:78.0) Gecko/20100101 Thunderbird/78.8.1 To: help-gnu-emacs@gnu.org Original-X-From: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane-mx.org@gnu.org Fri Jun 11 19:29:01 2021 Return-path: Envelope-to: geh-help-gnu-emacs@m.gmane-mx.org Original-Received: from lists.gnu.org ([209.51.188.17]) by ciao.gmane.io with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.92) (envelope-from ) id 1lrkxk-0007xG-CB for geh-help-gnu-emacs@m.gmane-mx.org; Fri, 11 Jun 2021 19:29:01 +0200 Original-Received: from localhost ([::1]:48666 helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1lrkxj-0003jm-8D for geh-help-gnu-emacs@m.gmane-mx.org; Fri, 11 Jun 2021 13:28:55 -0400 Original-Received: from eggs.gnu.org ([2001:470:142:3::10]:39986) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1lrkwg-0003dE-1e for help-gnu-emacs@gnu.org; Fri, 11 Jun 2021 13:27:50 -0400 Original-Received: from gateway36.websitewelcome.com ([192.185.199.121]:14211) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1lrkwe-0008Dv-3P for help-gnu-emacs@gnu.org; Fri, 11 Jun 2021 13:27:49 -0400 Original-Received: from cm14.websitewelcome.com (cm14.websitewelcome.com [100.42.49.7]) by gateway36.websitewelcome.com (Postfix) with ESMTP id 2AA08400FF82E for ; Fri, 11 Jun 2021 12:27:44 -0500 (CDT) Original-Received: from host2075.hostmonster.com ([67.20.113.97]) by cmsmtp with SMTP id rkwZldPudBmlprkwalwnce; Fri, 11 Jun 2021 12:27:44 -0500 X-Authority-Reason: nr=8 DKIM-Signature: v=1; a=rsa-sha256; q=dns/txt; c=relaxed/relaxed; d=tj49.com; s=default; h=Content-Transfer-Encoding:Content-Type:In-Reply-To:MIME-Version: Date:Message-ID:From:References:To:Subject:Sender:Reply-To:Cc:Content-ID: Content-Description:Resent-Date:Resent-From:Resent-Sender:Resent-To:Resent-Cc :Resent-Message-ID:List-Id:List-Help:List-Unsubscribe:List-Subscribe: List-Post:List-Owner:List-Archive; bh=B0dkMX95EZWF5Z0ww/LutjUttshbKFfZu9wjGhg81iU=; b=EQOL44m2yATngfTZFl13ugBEfI D6xWlfHv8tmbLiJlc9212466T34qJ4jYoONDrQyCKu81of30+CvqFmFlEfZRh+t5o1MBkMq9rNGQd khw+qDyBThRw6hJ+T3nrrQIe9; Original-Received: from tjohnson.mtaonline.net ([64.4.232.191]:60656 helo=[192.168.1.2]) by host2075.hostmonster.com with esmtpsa (TLS1.2) tls TLS_ECDHE_RSA_WITH_AES_256_GCM_SHA384 (Exim 4.94.2) (envelope-from ) id 1lrkwZ-002TWv-Gp for help-gnu-emacs@gnu.org; Fri, 11 Jun 2021 11:27:43 -0600 In-Reply-To: Content-Language: en-US X-AntiAbuse: This header was added to track abuse, please include it with any abuse report X-AntiAbuse: Primary Hostname - host2075.hostmonster.com X-AntiAbuse: Original Domain - gnu.org X-AntiAbuse: Originator/Caller UID/GID - [47 12] / [47 12] X-AntiAbuse: Sender Address Domain - akwebsoft.com X-BWhitelist: no X-Source-IP: 64.4.232.191 X-Source-L: No X-Exim-ID: 1lrkwZ-002TWv-Gp X-Source-Sender: tjohnson.mtaonline.net ([192.168.1.2]) [64.4.232.191]:60656 X-Source-Auth: tim@tj49.com X-Email-Count: 1 X-Source-Cap: bW9sZG92YXM7bW9sZG92YXM7aG9zdDIwNzUuaG9zdG1vbnN0ZXIuY29t X-Local-Domain: yes Received-SPF: neutral client-ip=192.185.199.121; envelope-from=tim@akwebsoft.com; helo=gateway36.websitewelcome.com X-Spam_score_int: -10 X-Spam_score: -1.1 X-Spam_bar: - X-Spam_report: (-1.1 / 5.0 requ) BAYES_00=-1.9, DKIM_SIGNED=0.1, DKIM_VALID=-0.1, NICE_REPLY_A=-0.001, RCVD_IN_DNSWL_NONE=-0.0001, SPF_HELO_PASS=-0.001, SPF_NEUTRAL=0.779 autolearn=no autolearn_force=no X-Spam_action: no action X-BeenThere: help-gnu-emacs@gnu.org X-Mailman-Version: 2.1.23 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-mx.org@gnu.org Original-Sender: "help-gnu-emacs" Xref: news.gmane.io gmane.emacs.help:130764 Archived-At: On 6/10/21 4:51 PM, Jean Louis wrote: > The previous one was repetitive, here is shorter version: > > (defvar rcd-switch-to-buffer-list '("*scratch*" "*shell*" "*Messages*")) > > (defun rcd-switch-to-buffer () > (interactive) > (let ((buffers (mapcar (lambda (buffer) (get-buffer buffer)) rcd-switch-to-buffer-list))) > (if (member (current-buffer) buffers) > (when (buffer-live-p (next-circular-list-item buffers (current-buffer))) > (switch-to-buffer > (next-circular-list-item buffers (current-buffer)))) > (when (buffer-live-p (get-buffer (nth 0 rcd-switch-to-buffer-list))) > (switch-to-buffer (nth 0 rcd-switch-to-buffer-list)))))) > > and you need this one: > > (defun next-circular-list-item (list previous-item) > "Return the next element in the LIST by looking at PREVIOUS-ITEM. > > All elements in the LIST have to be different. > > If last element of LIST is equal to PREVIOUS-ITEM then first element is returned." > (let ((last-element (car (last list)))) > (cond ((eq last-element previous-item) (car list)) > (t (nth 1 (member previous-item list)))))) > > Serendipity!It is more than I was looking for to roll my own, but you have rolled some interesting code. I will give it a home. Thank you Jean -- Tim tj49.com