(defun source-cshrc-all-shells ()
    (interactive)
    (setq processes (process-list))
    (while (not (null processes))
        (setq p (car processes))
        (if (string-match "shell" (process-name p))
            (comint-send-string p "source ~/.cshrc\n")
        )
	(setq processes (cdr processes))
    )
)