Function: load-path-shadows-same-file-or-nonexistent

load-path-shadows-same-file-or-nonexistent is a byte-compiled function defined in shadow.el.gz.

Signature

(load-path-shadows-same-file-or-nonexistent F1 F2)

Source Code

;; Defined in /usr/src/emacs/lisp/emacs-lisp/shadow.el.gz
;; Return true if neither file exists, or if both exist and have identical
;; contents.
(defun load-path-shadows-same-file-or-nonexistent (f1 f2)
  (let ((exists1 (file-exists-p f1))
	(exists2 (file-exists-p f2)))
    (or (and (not exists1) (not exists2))
	(and exists1 exists2
	     (or (equal (file-truename f1) (file-truename f2))
		 ;; As a quick test, avoiding spawning a process, compare file
		 ;; sizes.
		 (and (= (file-attribute-size (file-attributes f1))
			 (file-attribute-size (file-attributes f2)))
		      (eq 0 (call-process "cmp" nil nil nil "-s" f1 f2))))))))