gistfile1.el

(defun browse-in-open-browser (&rest args)
  (apply
   (or (cl-dolist (process (proced-process-attributes))
         (let* ((process-data (cdr process))
                (comm (cdr (assq 'comm process-data))))
           (when (string= (cdr (assq 'user process-data)) user-login-name)
             (cond
              ((string= comm "firefox") 
               (cl-return #'browse-url-firefox))))))
       #'browse-url-default-browser)
   args))