Function: woman-really-find-file

woman-really-find-file is a byte-compiled function defined in woman.el.gz.

Signature

(woman-really-find-file FILENAME COMPRESSED BUFNAME)

Documentation

Find, decompress, and decode a UN*X man page FILENAME.

If COMPRESSED is non-nil, turn on auto-compression mode to decompress the file if necessary. Set buffer name BUFNAME and major mode. Do not call directly!

Source Code

;; Defined in /usr/src/emacs/lisp/woman.el.gz
(defun woman-really-find-file (filename compressed bufname)
  "Find, decompress, and decode a UN*X man page FILENAME.
If COMPRESSED is non-nil, turn on auto-compression mode to decompress
the file if necessary.  Set buffer name BUFNAME and major mode.
Do not call directly!"
  (let ((WoMan-current-file filename))	; used for message logging
    (if woman-use-own-frame
	(select-frame
	 (or (and (frame-live-p woman-frame) woman-frame)
	     (setq woman-frame (make-frame)))))
    (set-buffer (get-buffer-create bufname))
    (condition-case nil
        (pop-to-buffer-same-window (current-buffer))
      (error (pop-to-buffer (current-buffer))))
    (buffer-disable-undo)
    (setq buffer-read-only nil)
    (erase-buffer)			; NEEDED for reformat
    (woman-insert-file-contents filename compressed)
    ;; Set buffer's default directory to that of the file.
    (setq default-directory (file-name-directory filename))
    (setq-local backup-inhibited t)
    (set-visited-file-name "")
    (woman-process-buffer)))