From 7a75a4d91e96c3d97215c67c0b4915e0b24dd766 Mon Sep 17 00:00:00 2001 From: Bastien Guerry Date: Thu, 28 Feb 2008 00:23:06 +0000 Subject: [PATCH] Cleaned up error messages: don't use a period at the end. Cleaned up some unfinish comment. Replaced `let*' by `let' in `org-publish-current-project'. --- org-publish.el | 17 ++++++----------- 1 file changed, 6 insertions(+), 11 deletions(-) diff --git a/org-publish.el b/org-publish.el index f4b7184bd..5702898ee 100644 --- a/org-publish.el +++ b/org-publish.el @@ -310,7 +310,7 @@ whether file should be published." (if (not (file-exists-p org-publish-timestamp-directory)) (make-directory org-publish-timestamp-directory) (if (not (file-directory-p org-publish-timestamp-directory)) - (error "org-publish-timestamp-directory must be a directory."))) + (error "`org-publish-timestamp-directory' must be a directory"))) ;; ;; check timestamp. ok if timestamp file doesn't exist (let* ((timestamp (org-publish-timestamp-filename filename)) @@ -480,7 +480,7 @@ FILENAME is the filename of the file to be published." (plist (org-publish-get-plist-from-filename filename)) (publishing-function (or (plist-get plist :publishing-function) 'org-publish-org-to-html))) (if (not project-name) - (error "File %s is not part of any known project." filename)) + (error "File %s is not part of any known project" filename)) (when (org-publish-needed-p filename) (if (listp publishing-function) ;; allow chain of publishing functions @@ -545,11 +545,6 @@ default is 'index.org'." (kill-buffer (current-buffer))))) -;(defun org-publish-meta-index (meta-plist &optional index-filename) -; "Create an index for a metaproject." -; (let* ((plists ( - - ;;;; Interactive publishing functions @@ -572,11 +567,11 @@ default is 'index.org'." With prefix argument, force publishing all files in project." (interactive "P") (save-window-excursion - (let* ((project-name (org-publish-get-project-from-filename (buffer-file-name))) - (org-publish-use-timestamps-flag - (if force nil org-publish-use-timestamps-flag))) + (let ((project-name (org-publish-get-project-from-filename (buffer-file-name))) + (org-publish-use-timestamps-flag + (if force nil org-publish-use-timestamps-flag))) (if (not project-name) - (error "File %s is not part of any known project." (buffer-file-name))) + (error "File %s is not part of any known project" (buffer-file-name))) (org-publish project-name))))