如何获取绝对文件名的非目录部分？

我想问一下如何从Lisp的交互式命令中获取文件名。

顺便说一句，这是从另一个stackoverflow线程获取的。

将剪贴板上的图像粘贴到Emacs Org模式文件中而不保存

(defun markdown-insert-clipboard-image (&optional file)
  (interactive "G")
  (shell-command (concat "pngpaste " file))
  (insert (concat "![" file "](" file ")")))

我的问题是文件正在使用绝对路径，而不仅仅是文件名，这导致文件在推送到服务器时出现错误。

我得到的不只是yahoocom.png

/Users/test/test/test/test/yahoocom.png

我只想得到

yahoocom.png

无论如何，我可以修改代码，使其仅使用文件名。

尽管sds的答案确实给出了您直接要求的内容，但我认为您真正要寻找的是具有文件的相对名称（如果文件在当前工作目录中，则该名称将相同）。如果是这样，请尝试file-relative-name：

将FILENAME转换为相对于DIRECTORY的相对值（默认值：）default-directory。
当使用默认目录作为默认目录时，此函数返回一个与FILENAME等效的相对文件名。
如果FILENAME是相对文件名，它将被解释为存在于中 default-directory。
如果FILENAME和DIRECTORY位于不同的计算机上或DOS / Windows计算机上的不同驱动器上，它将以扩展形式返回FILENAME。