anchor.diff:                 t))
            t)
         (let ((start-linum (point-linum (point))))
  -        (when (< 100 (- end-linum start-linum))
  +        (when (< limit-linum (- end-linum start-linum))
             (point-set point)
             (return nil))))))
   
  
positive.code:                                (char-before 1)
                                 -2))
  
  (defun sexp-goto-car () ()
    (let ((point (point)))
      (do ((end-linum (point-linum point)))
          ((let ((point (point)))
  
negative.code: 
  (defun lisp-echo-arglist (get-arglist-function)
    (save-excursion
     (when (sexp-goto-car 100)
       (let* ((start (point))
              (end (progn (forward-sexp 1 t) (point))))
         (multiple-value-bind (arglist)
  