فهرست منبع

Publishing: Rebuild validation list when forcing publishing

Carsten Dominik 16 سال پیش
والد
کامیت
0afc4633f7
2فایلهای تغییر یافته به همراه7 افزوده شده و 3 حذف شده
  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