Present completions for "cd" with a final /
This commit is contained in:
		
							parent
							
								
									d7598a29f3
								
							
						
					
					
						commit
						4320c730db
					
				| 
						 | 
					@ -208,7 +208,8 @@
 | 
				
			||||||
		 (esc #f)
 | 
							 (esc #f)
 | 
				
			||||||
		 (more)))
 | 
							 (more)))
 | 
				
			||||||
	   (lambda ()
 | 
						   (lambda ()
 | 
				
			||||||
	     (and (file-directory? file) file))))))
 | 
						     (and (file-directory? file)
 | 
				
			||||||
 | 
					                  (file-name-as-directory file)))))))
 | 
				
			||||||
     (or (to-complete-prefix to-complete) (cwd))))
 | 
					     (or (to-complete-prefix to-complete) (cwd))))
 | 
				
			||||||
  (lambda (command args)
 | 
					  (lambda (command args)
 | 
				
			||||||
    (chdir (resolve-file-name (if (null? args)
 | 
					    (chdir (resolve-file-name (if (null? args)
 | 
				
			||||||
| 
						 | 
					
 | 
				
			||||||
		Loading…
	
		Reference in New Issue