Use corfu--goto instead of let-binding corfu--index
This commit is contained in:
		
							parent
							
								
									d0fdc8924b
								
							
						
					
					
						commit
						232592c6b8
					
				@ -57,13 +57,13 @@
 | 
			
		||||
    (define-key map [mouse-1]
 | 
			
		||||
      (lambda ()
 | 
			
		||||
        (interactive)
 | 
			
		||||
        (let ((corfu--index index))
 | 
			
		||||
          (corfu-insert))))
 | 
			
		||||
        (corfu--goto index)
 | 
			
		||||
        (corfu-insert)))
 | 
			
		||||
    (define-key map [mouse-3]
 | 
			
		||||
      (lambda ()
 | 
			
		||||
        (interactive)
 | 
			
		||||
        (let ((corfu--index index))
 | 
			
		||||
          (corfu-complete))))
 | 
			
		||||
        (corfu--goto index)
 | 
			
		||||
        (corfu-complete)))
 | 
			
		||||
    map))
 | 
			
		||||
 | 
			
		||||
(defun corfu-mouse--format-candidates (fcands)
 | 
			
		||||
 | 
			
		||||
		Loading…
	
	
			
			x
			
			
		
	
		Reference in New Issue
	
	Block a user