| 
					
				 | 
			
			
				@@ -209,11 +209,12 @@ When BUFFER is `all', unregister VAR in all buffers." 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				   "Save all the persistent data." 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				   (unless (and buffer (not (buffer-file-name buffer))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				     (dolist (index org-persist--index) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-      (when (or (not (plist-get index :path)) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-                (and (get-file-buffer (plist-get index :path)) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-                     (or (not buffer) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-                         (equal (buffer-file-name buffer) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-                                (plist-get index :path))))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+      (when (or (and (not (plist-get index :path)) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+                     (not buffer)) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+                (and (plist-get index :path) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+                     (get-file-buffer (plist-get index :path)) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+                     (equal (buffer-file-name buffer) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+                            (plist-get index :path)))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				         (org-persist-write (plist-get index :variable) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				                 (when (plist-get index :path) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				                   (get-file-buffer (plist-get index :path)))))))) 
			 | 
		
	
	
		
			
				| 
					
				 | 
			
			
				@@ -272,9 +273,10 @@ When BUFFER is `all', unregister VAR in all buffers." 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				   (let (new-index) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				     (dolist (index org-persist--index) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				       (let ((file (plist-get index :path)) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-            (persist-file (org-file-name-concat 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-                           org-persist-directory 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-                           (plist-get index :persist-file)))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+            (persist-file (when (plist-get index :persist-file) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+                            (org-file-name-concat 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+                             org-persist-directory 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+                             (plist-get index :persist-file))))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				         (when (and file persist-file) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				           (if (file-exists-p file) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				               (push index new-index) 
			 |