diff options
| author | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2016-12-27 08:30:01 +0100 |
|---|---|---|
| committer | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2016-12-27 08:30:01 +0100 |
| commit | bbbed7aad9be5c4d9c9a01356918e896f8113458 (patch) | |
| tree | 8544829e9041c53b23f8531d0ded37f26f311efc | |
| parent | 4cf56e6e890ed67d3e2210d4cc25641d12a89334 (diff) | |
| download | org-mode-bbbed7aad9be5c4d9c9a01356918e896f8113458.tar.gz | |
ox-publish: Fix typos
| -rw-r--r-- | lisp/ox-publish.el | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/lisp/ox-publish.el b/lisp/ox-publish.el index e8271f6..d001b3d 100644 --- a/lisp/ox-publish.el +++ b/lisp/ox-publish.el @@ -362,7 +362,7 @@ still decide about that independently." filename pub-dir pub-func base-dir)))) (if rtn (message "Publishing file %s using `%s'" filename pub-func) (when org-publish-list-skipped-files - (message "Skipping unmodified file %s" filename))) + (message "Skipping unmodified file %s" filename))) rtn)) (defun org-publish-update-timestamp @@ -697,7 +697,7 @@ If `:auto-sitemap' is set, publish the sitemap too. If (or (plist-get project-plist :sitemap-file-entry-format) org-publish-sitemap-file-entry-format))) (funcall sitemap-function project sitemap-filename))) - ;; Publish all files from PROJECT excepted "theindex.org". Its + ;; Publish all files from PROJECT except "theindex.org". Its ;; publishing will be deferred until "theindex.inc" is ;; populated. (let ((theindex @@ -725,13 +725,13 @@ Default for SITEMAP-FILENAME is `sitemap.org'." (dir (file-name-as-directory (plist-get project-plist :base-directory))) (localdir (file-name-directory dir)) - (indent-str (make-string 2 ?\ )) + (indent-str (make-string 2 ?\s)) (exclude-regexp (plist-get project-plist :exclude)) (files (nreverse (org-publish-get-base-files project exclude-regexp))) (sitemap-filename (concat dir (or sitemap-filename "sitemap.org"))) (sitemap-title (or (plist-get project-plist :sitemap-title) - (concat "Sitemap for project " (car project)))) + (concat "Sitemap for project " (car project)))) (sitemap-style (or (plist-get project-plist :sitemap-style) 'tree)) (sitemap-sans-extension @@ -1040,7 +1040,7 @@ publishing directory." (dotimes (n len) (insert (concat - (make-string (* (+ rank n) 2) ? ) " - " + (make-string (* (+ rank n) 2) ?\s) " - " (if (not (= (1- len) n)) (nth (+ rank n) entry) ;; Last term: Link it to TARGET, if possible. (let ((target (nth 2 idx))) |