Function: pascal-string-diff

pascal-string-diff is a byte-compiled function defined in pascal.el.gz.

Signature

(pascal-string-diff STR1 STR2)

Documentation

Return index of first letter where STR1 and STR2 differs.

Source Code

;; Defined in /usr/src/emacs/lisp/progmodes/pascal.el.gz
;;;
;;; Completion

(defun pascal-string-diff (str1 str2)
  "Return index of first letter where STR1 and STR2 differs."
  (catch 'done
    (let ((diff 0))
      (while t
	(if (or (> (1+ diff) (length str1))
		(> (1+ diff) (length str2)))
	    (throw 'done diff))
	(or (equal (aref str1 diff) (aref str2 diff))
	    (throw 'done diff))
	(setq diff (1+ diff))))))