Jelajahi Sumber

Publishing: Rebuild validation list when forcing publishing

Carsten Dominik 16 tahun lalu
induk
melakukan
0afc4633f7
2 mengubah file dengan 7 tambahan dan 3 penghapusan
  1. 4 0
      lisp/ChangeLog
  2. 3 3
      lisp/org-publish.el

+ 4 - 0
lisp/ChangeLog

@@ -1,5 +1,9 @@
 2010-02-23  Carsten Dominik  <carsten.dominik@gmail.com>
 2010-02-23  Carsten Dominik  <carsten.dominik@gmail.com>
 
 
+	* org-publish.el (org-publish-all, org-publish-current-file)
+	(org-publish-current-project): When called with prefix argument
+	FORCE, also rebuild the validation file list.
+
 	* org-latex.el (org-export-latex-preprocess): Protect footnotes in
 	* org-latex.el (org-export-latex-preprocess): Protect footnotes in
 	section headings.
 	section headings.
 
 

+ 3 - 3
lisp/org-publish.el

@@ -650,7 +650,7 @@ directory and force publishing all files."
   (interactive "P")
   (interactive "P")
   (when force
   (when force
     (org-publish-remove-all-timestamps))
     (org-publish-remove-all-timestamps))
-  (org-publish-initialize-files-alist)
+  (org-publish-initialize-files-alist force)
   (save-window-excursion
   (save-window-excursion
     (let ((org-publish-use-timestamps-flag
     (let ((org-publish-use-timestamps-flag
 	   (if force nil org-publish-use-timestamps-flag)))
 	   (if force nil org-publish-use-timestamps-flag)))
@@ -661,7 +661,7 @@ directory and force publishing all files."
   "Publish the current file.
   "Publish the current file.
 With prefix argument, force publish the file."
 With prefix argument, force publish the file."
   (interactive "P")
   (interactive "P")
-  (org-publish-initialize-files-alist)
+  (org-publish-initialize-files-alist force)
   (save-window-excursion
   (save-window-excursion
     (let ((org-publish-use-timestamps-flag
     (let ((org-publish-use-timestamps-flag
 	   (if force nil org-publish-use-timestamps-flag)))
 	   (if force nil org-publish-use-timestamps-flag)))
@@ -673,7 +673,7 @@ With prefix argument, force publish the file."
 With a prefix argument, force publishing of all files in
 With a prefix argument, force publishing of all files in
 the project."
 the project."
   (interactive "P")
   (interactive "P")
-  (org-publish-initialize-files-alist)
+  (org-publish-initialize-files-alist force)
   (save-window-excursion
   (save-window-excursion
     (let ((project (org-publish-get-project-from-filename (buffer-file-name) 'up))
     (let ((project (org-publish-get-project-from-filename (buffer-file-name) 'up))
 	  (org-publish-use-timestamps-flag
 	  (org-publish-use-timestamps-flag