# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1201235991 0
# Node ID 65bec480089177e22fe5b37b698058ff789eb69e
# Parent  a959314f358f7063781f49b55a4fe0dbb7ccbbc9
Sven Joachim  <svenjoac at gmx.de>

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

diff -r a959314f358f -r 65bec4800891 lisp/view.el
--- a/lisp/view.el	Fri Jan 25 02:18:05 2008 +0000
+++ b/lisp/view.el	Fri Jan 25 04:39:51 2008 +0000
@@ -244,7 +244,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))))