home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / pcl / docs.lha / latexinfo / elisp / make.el < prev    next >
Encoding:
Text File  |  1992-02-26  |  1.3 KB  |  31 lines
  1. ;;(if (null (getenv "/afs/cs/project/clisp/hackers/ram/docs/latexinfo"))
  2. ;;  (error "You must define the environment variable /afs/cs/project/clisp/hackers/ram/docs/latexinfo first."))
  3.  
  4. (defun compile-if-necessary (file)
  5.   (let ((filename (expand-file-name file)))
  6.     (cond ((not (file-exists-p filename))
  7.        (error "File not found: %s" filename))
  8.       ((not (file-exists-p (concat filename "c")))
  9.        (byte-compile-file filename))
  10.       ((file-newer-than-file-p filename (concat filename "c"))
  11.        (byte-compile-file filename))
  12.       (t
  13.        (message "%s is up to date." filename)))
  14.     )
  15.   )
  16.  
  17. ;;; LaTeXinfo
  18. (setq load-path 
  19.       (cons (setq latexinfo-formats-directory
  20.           (file-name-as-directory "/afs/cs/project/clisp/hackers/ram/docs/latexinfo/elisp"))
  21.         load-path))
  22.  
  23. (load-file  "/afs/cs/project/clisp/hackers/ram/docs/latexinfo/.latexinfo")
  24. (compile-if-necessary "/afs/cs/project/clisp/hackers/ram/docs/latexinfo/elisp/latexinfo.el")
  25. (load-file "/afs/cs/project/clisp/hackers/ram/docs/latexinfo/elisp/latexinfo.elc")
  26. (mapcar 'compile-if-necessary (directory-files "/afs/cs/project/clisp/hackers/ram/docs/latexinfo/elisp" t ".*.el$"))
  27. (find-file  "/afs/cs/project/clisp/hackers/ram/docs/latexinfo/manual/latexinfo2.tex")
  28. (latexinfo-format-buffer t)
  29. (save-some-buffers t)
  30. (kill-emacs 0)
  31.