| 
					
				 | 
			
			
				@@ -1097,9 +1097,7 @@ the clocking selection, associated with the letter `d'." 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				   "Task currently clocked in.") 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 (defun org-clock-set-current () 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				   "Set `org-clock-current-task' to the task currently clocked in." 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-  (setq org-clock-current-task  
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-	(concat (nth 4 (org-heading-components))  
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-		" (" (file-name-nondirectory (buffer-file-name)) ")"))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+  (setq org-clock-current-task (nth 4 (org-heading-components)))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				  
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 (defun org-clock-delete-current () 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				   "Reset `org-clock-current-task' to nil." 
			 |