-;; --- Grail ---
-
-(defvar browse-url-grail
- (concat (or (getenv "GRAILDIR") "~/.grail") "/user/rcgrail.py")
- "Location of Grail remote control client script `rcgrail.py'.
-Typically found in $GRAILDIR/rcgrail.py, or ~/.grail/user/rcgrail.py.")
-
-;;;###autoload
-(defun browse-url-grail (url &optional new-window)
- "Ask the Grail WWW browser to load URL.
-Default to the URL around or before point. Runs the program in the
-variable `browse-url-grail'."
- (interactive (browse-url-interactive-arg "Grail URL: "))
- (message "Sending URL to Grail...")
- (with-current-buffer (get-buffer-create " *Shell Command Output*")
- (erase-buffer)
- ;; don't worry about this failing.
- (if (browse-url-maybe-new-window new-window)
- (call-process browse-url-grail nil 0 nil "-b" url)
- (call-process browse-url-grail nil 0 nil url))
- (message "Sending URL to Grail... done")))
-