Function: image-crop--find-corner

image-crop--find-corner is a byte-compiled function defined in image-crop.el.gz.

Signature

(image-crop--find-corner AREA POS CORNERS)

Source Code

;; Defined in /usr/src/emacs/lisp/image/image-crop.el.gz
(defun image-crop--find-corner (area pos corners)
  (cl-loop for corner in corners
	   ;; We accept 10 pixels off.
	   when (and (< (- (car pos) 10)
			(cl-getf area (car corner))
			(+ (car pos) 10))
		     (< (- (cdr pos) 10)
			(cl-getf area (cadr corner))
			(+ (cdr pos) 10)))
	   return corner))