Mercurial > emacs
comparison lisp/textmodes/org-publish.el @ 85613:ae9da278f53b
(org-publish-attachment): Re-install
accidentally deleted change.
| author | Dan Nicolaescu <dann@ics.uci.edu> |
|---|---|
| date | Wed, 24 Oct 2007 15:50:28 +0000 |
| parents | 5b20f92e9f29 |
| children | 32faacf8f0bf 4bc33ffdda1a |
comparison
equal
deleted
inserted
replaced
| 85612:35afe0eebae6 | 85613:ae9da278f53b |
|---|---|
| 462 (defun org-publish-attachment (plist filename) | 462 (defun org-publish-attachment (plist filename) |
| 463 "Publish a file with no transformation of any kind. | 463 "Publish a file with no transformation of any kind. |
| 464 PLIST is the property list for the given project. | 464 PLIST is the property list for the given project. |
| 465 FILENAME is the filename of the file to be published." | 465 FILENAME is the filename of the file to be published." |
| 466 ;; make sure eshell/cp code is loaded | 466 ;; make sure eshell/cp code is loaded |
| 467 (require 'eshell) | 467 (eval-and-compile |
| 468 (require 'esh-maint) | 468 (require 'eshell) |
| 469 (require 'em-unix) | 469 (require 'esh-maint) |
| 470 (require 'em-unix)) | |
| 470 (let ((destination (file-name-as-directory (plist-get plist :publishing-directory)))) | 471 (let ((destination (file-name-as-directory (plist-get plist :publishing-directory)))) |
| 471 (eshell/cp filename destination))) | 472 (eshell/cp filename destination))) |
| 472 | 473 |
| 473 | 474 |
| 474 ;;;; Publishing files, sets of files, and indices | 475 ;;;; Publishing files, sets of files, and indices |