From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Nicolas Richard Newsgroups: gmane.emacs.help Subject: Re: Possible to conditionally bind variable? Date: Thu, 11 Sep 2014 14:24:34 +0200 Message-ID: <87oaum5oql.fsf@geodiff-mac3.ulb.ac.be> References: <87lhpq8l8y.fsf@gmail.com> NNTP-Posting-Host: plane.gmane.org Mime-Version: 1.0 Content-Type: text/plain X-Trace: ger.gmane.org 1410438158 4738 80.91.229.3 (11 Sep 2014 12:22:38 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Thu, 11 Sep 2014 12:22:38 +0000 (UTC) Cc: emacs list To: torys.anderson@gmail.com (Tory S. Anderson) Original-X-From: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Thu Sep 11 14:22:31 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 1XS3OQ-0006jo-DI for geh-help-gnu-emacs@m.gmane.org; Thu, 11 Sep 2014 14:22:30 +0200 Original-Received: from localhost ([::1]:37403 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1XS3OP-00036T-UF for geh-help-gnu-emacs@m.gmane.org; Thu, 11 Sep 2014 08:22:29 -0400 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:32805) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1XS3O7-00032o-7U for help-gnu-emacs@gnu.org; Thu, 11 Sep 2014 08:22:18 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1XS3Nz-00036x-LI for help-gnu-emacs@gnu.org; Thu, 11 Sep 2014 08:22:11 -0400 Original-Received: from mxin.ulb.ac.be ([164.15.128.112]:13952) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1XS3Nz-00035a-FH for help-gnu-emacs@gnu.org; Thu, 11 Sep 2014 08:22:03 -0400 X-IronPort-Anti-Spam-Filtered: true X-IronPort-Anti-Spam-Result: AkcKAMWSEVSkD4Xx/2dsb2JhbABfhDexHwEFBp5nAYEneIQEAQEEeRALISUPAQQNT4gtAQMRq0GMJwFKDYZQAReFfIIihQKCLQeETAEEmmyJO4dRhj2DYzsvgk8BAQE Original-Received: from mathsrv4.ulb.ac.be (HELO geodiff-mac3.ulb.ac.be) ([164.15.133.241]) by smtp.ulb.ac.be with ESMTP; 11 Sep 2014 14:21:59 +0200 In-Reply-To: <87lhpq8l8y.fsf@gmail.com> (Tory S. Anderson's message of "Thu, 11 Sep 2014 07:11:41 -0400") User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/24.3.93 (gnu/linux) X-detected-operating-system: by eggs.gnu.org: Genre and OS details not recognized. X-Received-From: 164.15.128.112 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:99812 Archived-At: torys.anderson@gmail.com (Tory S. Anderson) writes: > (defun go-or-make-agenda (&optional new-frame) > (interactive "P") > (let ((buffer "\*Org Agenda\*") > (some-other-buffer "*scratch*") > (my-switch-function (if new-frame ;; is there some way to do this? > '(switch-to-other-buffer) > '(switch-to-buffer))) > (if (get-buffer buffer) > (my-switch-function buffer) > (my-switch-function some-other-buffer))))) untested : (defun go-or-make-agenda (&optional new-frame) (interactive "P") (let ((buffer "\*Org Agenda\*") (some-other-buffer "*scratch*") (my-switch-function (if new-frame ;; is there some way to do this? 'switch-to-buffer-other-frame 'switch-to-buffer))) (if (get-buffer buffer) (funcall my-switch-function buffer) (funcall my-switch-function some-other-buffer)))) HTH, -- Nicolas Richard