(defun my-insert-file-name (filename fullpath)
(interactive "fFile: \nP")
(insert (if fullpath
(expand-file-name filename)
(file-name-nondirectory filename))))
(global-set-key "\C-ci" 'my-insert-file-name)