Function: hfy-buffer

hfy-buffer is a byte-compiled function defined in htmlfontify.el.gz.

Signature

(hfy-buffer)

Documentation

Generate a buffer to hold the HTML output.

The filename of this buffer is derived from the source (current) buffer's variable buffer-file-name(var)/buffer-file-name(fun), if it is set, plus hfy-extn. Otherwise a plausible filename is constructed from default-directory, buffer-name and hfy-extn.

Source Code

;; Defined in /usr/src/emacs/lisp/htmlfontify.el.gz
(defun hfy-buffer ()
  "Generate a buffer to hold the HTML output.
The filename of this buffer is derived from the source (current) buffer's
variable `buffer-file-name', if it is set, plus `hfy-extn'.
Otherwise a plausible filename is constructed from `default-directory',
`buffer-name' and `hfy-extn'."
  (let* ((name (concat (buffer-name) hfy-extn))
         (src               (buffer-file-name))
         (buf  (get-buffer-create        name)))
    (with-current-buffer buf
      (setq buffer-file-name
            (if src (concat src hfy-extn)
              (expand-file-name (if (string-match "^.*/\\([^/]*\\)\\'" name)
                                    (match-string 1 name)
                                  name))))
      buf)))