Function: pr-find-buffer-visiting

pr-find-buffer-visiting is a byte-compiled function defined in printing.el.gz.

Signature

(pr-find-buffer-visiting FILE)

Source Code

;; Defined in /usr/src/emacs/lisp/printing.el.gz
(defun pr-find-buffer-visiting (file)
  (if (not (file-directory-p file))
      (find-buffer-visiting (if lpr-windows-system
				(downcase file)
			      file))
    (let ((truename (file-truename file))
	  (blist (buffer-list))
	  found)
      (while (and (not found) blist)
	(with-current-buffer (car blist)
	  (and (eq major-mode 'dired-mode)
	       (save-excursion
		 (goto-char (point-min))
		 (string= (buffer-substring-no-properties
			   (+ (point-min) 2)
			   (progn
			     (end-of-line)
			     (1- (point))))
			  truename))
	       (setq found (car blist))))
	(setq blist (cdr blist)))
      found)))