Function: calc-find-writable-buffer

calc-find-writable-buffer is a byte-compiled function defined in calc-yank.el.gz.

Signature

(calc-find-writable-buffer BUF MODE)

Source Code

;; Defined in /usr/src/emacs/lisp/calc/calc-yank.el.gz
;; First, require that buffer is visible and does not begin with "*"
;; Second, require only that it not begin with "*Calc"
(defun calc-find-writable-buffer (buf mode)
  (and buf
       (if (or (string-match "\\`\\( .*\\|\\*Calc.*\\)"
			     (buffer-name (car buf)))
	       (and (= mode 0)
		    (or (string-match "\\`\\*.*" (buffer-name (car buf)))
			(not (get-buffer-window (car buf))))))
	   (calc-find-writable-buffer (cdr buf) mode)
	 (car buf))))