diff options
Diffstat (limited to 'org-publish.el')
-rw-r--r-- | org-publish.el | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/org-publish.el b/org-publish.el index 83dc8e6c4..0a8e90198 100644 --- a/org-publish.el +++ b/org-publish.el @@ -6,23 +6,23 @@ ;; Keywords: hypermedia, outlines ;; Version: 1.80b -;; This file is free software; you can redistribute it and/or modify +;; This file is part of GNU Emacs. +;; +;; GNU Emacs is free software; you can redistribute it and/or modify ;; it under the terms of the GNU General Public License as published by ;; the Free Software Foundation; either version 3, or (at your option) ;; any later version. -;; This file is distributed in the hope that it will be useful, +;; GNU Emacs is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;; GNU General Public License for more details. ;; You should have received a copy of the GNU General Public License -;; along with GNU Emacs; see the file COPYING. If not, write to -;; the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, +;; along with GNU Emacs; see the file COPYING. If not, write to the +;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, ;; Boston, MA 02110-1301, USA. -;; This file is part of GNU Emacs. - ;;; Commentary: ;; Requires at least version 4.27 of org.el @@ -481,7 +481,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 (format "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 @@ -574,7 +574,7 @@ With prefix argument, force publishing all files in project." (save-window-excursion (let* ((project-name (org-publish-get-project-from-filename (buffer-file-name)))) (if (not project-name) - (error (format "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 (if force nil t))))) |