Re: Possible to conditionally bind variable?

[Stefan Monnier]

> (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))))

Aka

   (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)))
       (funcall my-switch-function
                (if (get-buffer buffer) buffer some-other-buffer))))

Aka

   (defun go-or-make-agenda (&optional new-frame)
     (interactive "P")
     (let ((buffer "\*Org Agenda\*")
           (some-other-buffer "*scratch*"))
       (funcall (if new-frame 'switch-to-buffer-other-frame 'switch-to-buffer)
                (if (get-buffer buffer) buffer some-other-buffer))))

-- Stefan