Function: shadow-read-site

shadow-read-site is a byte-compiled function defined in shadowfile.el.gz.

Signature

(shadow-read-site)

Documentation

Read a site name from the minibuffer.

Source Code

;; Defined in /usr/src/emacs/lisp/shadowfile.el.gz
(defun shadow-read-site ()
  "Read a site name from the minibuffer."
  (let ((ans (completing-read
              (propertize "Site name: " 'help-echo shadow-site-help)
	      shadow-clusters)))
    (when (or (shadow-get-cluster (shadow-site-name ans))
	      (string-equal ans shadow-system-name)
	      (string-equal ans (shadow-site-name shadow-system-name))
	      (setq ans (file-remote-p ans)))
      ans)))