Function: shadow-shadows-of-1

shadow-shadows-of-1 is a byte-compiled function defined in shadowfile.el.gz.

Signature

(shadow-shadows-of-1 FILE GROUPS REGEXP)

Documentation

Return list of FILE's shadows in GROUPS.

Consider them as regular expressions if third arg REGEXP is true.

Source Code

;; Defined in /usr/src/emacs/lisp/shadowfile.el.gz
(defun shadow-shadows-of-1 (file groups regexp)
  "Return list of FILE's shadows in GROUPS.
Consider them as regular expressions if third arg REGEXP is true."
  (if groups
      (let ((nonmatching
	     (cl-remove-if (lambda (x) (shadow-file-match x file regexp))
			   (car groups))))
	(append (cond ((equal nonmatching (car groups)) nil)
		      (regexp
		       (let ((realname
                              (tramp-file-name-localname
                               (shadow-parse-name file))))
                         (when shadow-debug
                           (message
                            "shadow-shadows-of-1: %s %s %s"
                            file (shadow-parse-name file) realname))
			 (mapcar
                          (lambda (x)
                            (shadow-replace-name-component x realname))
			  nonmatching)))
		      (t nonmatching))
		(shadow-shadows-of-1 file (cdr groups) regexp)))))