Function: calculator-quit

calculator-quit is an interactive and byte-compiled function defined in calculator.el.gz.

Signature

(calculator-quit)

Documentation

Quit calculator.

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/calculator.el.gz
(defun calculator-quit ()
  "Quit calculator."
  (interactive)
  (when (buffer-live-p calculator-buffer)
    (set-buffer calculator-buffer)
    (let ((inhibit-read-only t)) (erase-buffer))
    (unless calculator-electric-mode
      (ignore-errors
	(while (get-buffer-window calculator-buffer)
          (delete-window (get-buffer-window calculator-buffer)))))
    (kill-buffer calculator-buffer)
    (message "Calculator done.")
    (if calculator-electric-mode
	(throw 'calculator-done nil)		; will kill the buffer
      (setq calculator-buffer nil))))