Function: forms--exit

forms--exit is a byte-compiled function defined in forms.el.gz.

Signature

(forms--exit &optional SAVE)

Documentation

Internal exit from forms mode function.

Source Code

;; Defined in /usr/src/emacs/lisp/forms.el.gz
(defun forms--exit (&optional save)
  "Internal exit from forms mode function."

  (let ((buf (buffer-name forms--file-buffer)))
    (forms--checkmod)
    (if (and save
	     (buffer-modified-p forms--file-buffer))
	(forms-save-buffer))
    (with-current-buffer forms--file-buffer
      (delete-auto-save-file-if-necessary)
      (kill-buffer (current-buffer)))
    (if (get-buffer buf)	; not killed???
	(if save
	    (error "Problem saving buffer %s" (buffer-name buf)))
      (delete-auto-save-file-if-necessary)
      (kill-buffer (current-buffer)))))