# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1201236009 0
# Node ID eeb928a40b37a53656b4c98d5937e447ba58244b
# Parent  a848c1841fb4db4b53842f20ef0d883dd15bc504
Sven Joachim  <svenjoac at gmx.de>

(kill-buffer-if-not-modified): Don't pass t to buffer-modified-p.

diff -r a848c1841fb4 -r eeb928a40b37 lisp/view.el
--- a/lisp/view.el	Fri Jan 25 04:35:17 2008 +0000
+++ b/lisp/view.el	Fri Jan 25 04:40:09 2008 +0000
@@ -249,7 +249,7 @@
 ;; types C-x C-q again to return to view mode.
 (defun kill-buffer-if-not-modified (buf)
   "Like `kill-buffer', but does nothing if the buffer is modified."
-  (let ((buf (or (bufferp buf) (get-buffer buf))))
+  (let ((buf (get-buffer buf)))
     (and buf (not (buffer-modified-p buf))
 	 (kill-buffer buf))))