Explorar el Código

Publishing: Rebuild validation list when forcing publishing

Carsten Dominik hace 16 años
padre
commit
0afc4633f7
Se han modificado 2 ficheros con 7 adiciones y 3 borrados
  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