(defun add-to-PATH (dir)
"Add the specified path element to the Emacs PATH"
(interactive "DEnter directory to be added to PATH: ")
(if (file-directory-p dir)
(setenv "PATH"
(concat (expand-file-name dir)
path-separator
(getenv "PATH")))))
(defun activate-virtualenv (dir)
(setenv "VIRTUAL_ENV" dir)
(add-to-PATH (concat dir "/bin"))
(add-to-list 'exec-path (concat dir "/bin")))
Updated: I forgot to add my add-to-PATH implementation.
![Picture 1 [REDACTED] by you.](http://farm4.static.flickr.com/3344/3441687541_9ec8561253.jpg?v=0)

