Function: shorthands--mismatch-from-end

shorthands--mismatch-from-end is a byte-compiled function defined in shorthands.el.gz.

Signature

(shorthands--mismatch-from-end STR1 STR2)

Source Code

;; Defined in /usr/src/emacs/lisp/emacs-lisp/shorthands.el.gz
(defun shorthands--mismatch-from-end (str1 str2)
  (cl-loop with l1 = (length str1) with l2 = (length str2)
           for i from 1
           for i1 = (- l1 i) for i2 = (- l2 i)
           while (and (>= i1 0) (>= i2 0) (eq (aref str1 i1) (aref str2 i2)))
           finally (return (1- i))))