зеркало из
				https://github.com/iharh/notes.git
				synced 2025-11-04 07:36:08 +02:00 
			
		
		
		
	
		
			
				
	
	
		
			13 строки
		
	
	
		
			211 B
		
	
	
	
		
			EmacsLisp
		
	
	
	
	
	
			
		
		
	
	
			13 строки
		
	
	
		
			211 B
		
	
	
	
		
			EmacsLisp
		
	
	
	
	
	
(kill-buffer "*scratch*")
 | 
						|
 | 
						|
;; Remove completion buffer when done
 | 
						|
(add-hook 'minibuffer-exit-hook
 | 
						|
	'(lambda ()
 | 
						|
		(let ((buffer "*Completions*"))
 | 
						|
			(and (get-buffer buffer)
 | 
						|
				(kill-buffer buffer)
 | 
						|
			)
 | 
						|
		)
 | 
						|
	)
 | 
						|
)
 |