Function: ede-makeinfo-find-info-filename

ede-makeinfo-find-info-filename is a byte-compiled function defined in proj-info.el.gz.

Signature

(ede-makeinfo-find-info-filename SOURCE)

Documentation

Find the info filename produced by SOURCE texinfo file.

Source Code

;; Defined in /usr/src/emacs/lisp/cedet/ede/proj-info.el.gz
(defun ede-makeinfo-find-info-filename (source)
  "Find the info filename produced by SOURCE texinfo file."
  (let ((opened (get-file-buffer source))
	(buffer (or (get-file-buffer source)
		    (find-file-noselect source nil t)))
	info)
    (with-current-buffer buffer
      (save-excursion
	(goto-char (point-min))
	(and (re-search-forward "^@setfilename\\s-+\\([^.]+\\).info$" nil t)
	     (setq info (match-string 1)))))
    (unless (eq buffer opened)
      (kill-buffer buffer))
    info))