Function: s-chop-suffix

s-chop-suffix is a byte-compiled function defined in s.el.

Signature

(s-chop-suffix SUFFIX S)

Documentation

Remove SUFFIX if it is at end of S.

Source Code

;; Defined in ~/.emacs.d/elpa/s-20220902.1511/s.el
(defun s-chop-suffix (suffix s)
  "Remove SUFFIX if it is at end of S."
  (declare (pure t) (side-effect-free t))
  (let ((pos (- (length suffix))))
    (if (and (>= (length s) (length suffix))
             (string= suffix (substring s pos)))
        (substring s 0 pos)
      s)))