| 
					
				 | 
			
			
				@@ -466,7 +466,8 @@ time is up." 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 		 (run-hooks 'org-timer-done-hook))))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				  
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 (defun org-timer--get-timer-title () 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-  "Construct timer title from heading or file name of Org buffer." 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+  "Construct timer title. 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+Try to use an Org header, otherwise use the buffer name." 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				   (cond 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				    ((derived-mode-p 'org-agenda-mode) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				     (let* ((marker (or (get-text-property (point) 'org-marker) 
			 | 
		
	
	
		
			
				| 
					
				 | 
			
			
				@@ -482,7 +483,7 @@ time is up." 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				    ((derived-mode-p 'org-mode) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				     (or (ignore-errors (org-get-heading)) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 	(buffer-name (buffer-base-buffer)))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-   (t (error "Not in an Org buffer")))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+   (t (buffer-name (buffer-base-buffer))))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				  
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 (provide 'org-timer) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				  
			 |