Function: filesets-file-close

filesets-file-close is a byte-compiled function defined in filesets.el.gz.

Signature

(filesets-file-close SAVE-FUNCTION BUFFER)

Documentation

Close BUFFER.

First, save the buffer's contents using SAVE-FUNCTION. Then, kill buffer if buffer-modified-p returns nil.

SAVE-FUNCTION takes no argument, but works on the current buffer.

Source Code

;; Defined in /usr/src/emacs/lisp/filesets.el.gz
(defun filesets-file-close (save-function buffer)
  "Close BUFFER.
First, save the buffer's contents using SAVE-FUNCTION.  Then, kill buffer
if `buffer-modified-p' returns nil.

SAVE-FUNCTION takes no argument, but works on the current buffer."
  (with-current-buffer buffer
    (if (buffer-modified-p)
	(funcall save-function))
    (if (not (buffer-modified-p))
	(kill-buffer buffer))))