Lines Matching refs:diff
1129 (defun pascal-string-diff (str1 str2)
1132 (let ((diff 0))
1134 (if (or (> (1+ diff) (length str1))
1135 (> (1+ diff) (length str2)))
1136 (throw 'done diff))
1137 (or (equal (aref str1 diff) (aref str2 diff))
1138 (throw 'done diff))
1139 (setq diff (1+ diff))))))
1312 (if (< (setq tmp (pascal-string-diff match (car elm))) min)