Re: Possible to conditionally bind variable?

[Nicolas Richard <theonewiththeevillook@yahoo.fr>]

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