Function: WoMan-log-1

WoMan-log-1 is a byte-compiled function defined in woman.el.gz.

Signature

(WoMan-log-1 STRING &optional END)

Documentation

Log a message STRING in *WoMan-Log*.

If optional argument END is non-nil then make buffer read-only after logging the message.

Source Code

;; Defined in /usr/src/emacs/lisp/woman.el.gz
(defun WoMan-log-1 (string &optional end)
  "Log a message STRING in *WoMan-Log*.
If optional argument END is non-nil then make buffer read-only after
logging the message."
  (with-current-buffer (get-buffer-create "*WoMan-Log*")
    (setq buffer-read-only nil)
    (goto-char (point-max))
    (or end (insert "  "))  (insert string "\n")
    (if end
	(setq buffer-read-only t)
      (if woman-show-log
	  (select-window			; to return to
	   (prog1 (selected-window)	; WoMan window
	     (select-window (display-buffer (current-buffer)))
	     (cond (WoMan-Log-header-point-max
		    (goto-char WoMan-Log-header-point-max)
		    (forward-line -1)
		    (recenter 0))))))))
  nil)					; for woman-file-readable-p etc.