Function: shadow-suffix

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

Signature

(shadow-suffix PREFIX STRING)

Documentation

If PREFIX begins with STRING, return the rest.

Return value is non-nil if PREFIX and STRING are string= up to the length of PREFIX.

Source Code

;; Defined in /usr/src/emacs/lisp/shadowfile.el.gz
(defun shadow-suffix (prefix string)
  "If PREFIX begins with STRING, return the rest.
Return value is non-nil if PREFIX and STRING are `string=' up to the length of
PREFIX."
  (let ((lp (length prefix))
	(ls (length string)))
    (if (and (>= ls lp)
	     (string= prefix (substring string 0 lp)))
	(substring string lp))))