view release on metacpan or  search on metacpan

sepia-w3m.el  view on Meta::CPAN

;;;###autoload
(defun w3m-about-perldoc-buffer (url &optional no-decode no-cache &rest args)
  "Handle about://perldoc-buffer/ links."
  (when (string-match "\\`about://perldoc-buffer/" url)
    (let ((buf (get-buffer (w3m-url-decode-string
			    (substring url (match-end 0)))))
	  (default-directory w3m-profile-directory)
	  (process-environment (copy-sequence process-environment)))
      ;; To specify the place in which pod2html generates its cache files.
      (setenv "HOME" (expand-file-name w3m-profile-directory))
      (insert-buffer-substring buf)
      (if (zerop (apply #'call-process-region
                        (point-min) (point-max)
                        w3m-perldoc-pod2html-command
                        t '(t nil) nil
                        (append w3m-perldoc-pod2html-arguments
                                '("--index" "--htmlroot=about://perldoc-buffer"))))
          (let ((case-fold-search t))
            (goto-char (point-min))
            (while (re-search-forward