Re: Possible to conditionally bind variable?

[Nicolas Richard]

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