From cdfeb73f1c0128f7ee0bc18a22b78d03d0dba6d1 Mon Sep 17 00:00:00 2001
From: "Edward M. Reingold" <reingold@emr.cs.iit.edu>
Date: Wed, 27 Dec 1995 17:36:12 +0000
Subject: [PATCH] Replaced all uses of get-file-buffer with
 find-buffer-visiting.

---
 lisp/calendar/diary-lib.el | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

diff --git a/lisp/calendar/diary-lib.el b/lisp/calendar/diary-lib.el
index 42ce94dfd76..5db0f6f8a1e 100644
--- a/lisp/calendar/diary-lib.el
+++ b/lisp/calendar/diary-lib.el
@@ -233,7 +233,7 @@ These hooks have the following distinct roles:
              (d-file (substitute-in-file-name diary-file)))
         (message "Preparing diary...")
         (save-excursion
-          (let ((diary-buffer (get-file-buffer d-file)))
+          (let ((diary-buffer (find-buffer-visiting d-file)))
             (set-buffer (if diary-buffer
                             diary-buffer
                          (find-file-noselect d-file t))))
@@ -364,7 +364,7 @@ changing the variable `diary-include-string'."
                   (setq diary-entries-list
                         (append diary-entries-list
                                 (list-diary-entries original-date number)))
-                (kill-buffer (get-file-buffer diary-file)))
+                (kill-buffer (find-buffer-visiting diary-file)))
             (beep)
             (message "Can't read included diary file %s" diary-file)
             (sleep-for 2))
@@ -399,14 +399,14 @@ changing the variable `diary-include-string'."
        (concat "Diary for " date-string
                (if holiday-list ": " "")
                (mapconcat 'identity holiday-list "; ")))
-      (display-buffer (get-file-buffer d-file))
+      (display-buffer (find-buffer-visiting d-file))
       (message "Preparing diary...done"))))
 
 (defun fancy-diary-display ()
   "Prepare a diary buffer with relevant entries in a fancy, noneditable form.
 This function is provided for optional use as the `diary-display-hook'."
   (save-excursion;; Turn off selective-display in the diary file's buffer.
-    (set-buffer (get-file-buffer (substitute-in-file-name diary-file)))
+    (set-buffer (find-buffer-visiting (substitute-in-file-name diary-file)))
     (let ((diary-modified (buffer-modified-p)))
       (subst-char-in-region (point-min) (point-max) ?\^M ?\n t)
       (setq selective-display nil)
@@ -520,7 +520,7 @@ the actual printing."
         (set-buffer (get-buffer fancy-diary-buffer))
         (run-hooks 'print-diary-entries-hook))
     (let ((diary-buffer
-           (get-file-buffer (substitute-in-file-name diary-file))))
+           (find-buffer-visiting (substitute-in-file-name diary-file))))
       (if diary-buffer
           (let ((temp-buffer (get-buffer-create "*Printable Diary Entries*"))
                 (heading))
@@ -553,7 +553,7 @@ is created."
     (if (and d-file (file-exists-p d-file))
         (if (file-readable-p d-file)
             (save-excursion
-              (let ((diary-buffer (get-file-buffer d-file)))
+              (let ((diary-buffer (find-buffer-visiting d-file)))
                 (set-buffer (if diary-buffer
                                 diary-buffer
                               (find-file-noselect d-file t)))
@@ -800,7 +800,7 @@ changing the variable `diary-include-string'."
           (if (file-readable-p diary-file)
               (progn
                 (mark-diary-entries)
-                (kill-buffer (get-file-buffer diary-file)))
+                (kill-buffer (find-buffer-visiting diary-file)))
             (beep)
             (message "Can't read included diary file %s" diary-file)
             (sleep-for 2))
-- 
2.39.2