GNU Emacs 28.1运行CSV转Org-mode代码报loop函数未定义错误

(void-function loop)错误是因为loop不是Emacs Lisp原生内置的语法，它是Common Lisp兼容扩展提供的循环宏，默认环境下没有加载对应定义，直接调用就会报函数不存在。
你引用的旧代码写于较早的Emacs版本，在你使用的Emacs 28.1环境下，Common Lisp兼容逻辑已经统一迁移到官方维护的cl-lib库中，所有对外提供的函数、宏都统一加cl-前缀做命名空间隔离，裸写loop无法被解释器识别。
除此之外原代码还有两处逻辑问题：

• 按换行分割CSV内容时，文件末尾的换行符会产生空字符串条目，循环处理时会触发无效参数错误
• 直接调用org-entry-put前没有插入Org标题节点，属性没有可挂载的条目，即使解决loop问题也无法生成合法的Org格式内容

1. 代码开头先加载cl-lib库，把代码中所有loop替换为cl-lib提供的cl-loop宏，这是目前Emacs官方推荐的写法，不会产生命名冲突
2. 分割行内容时加上空串过滤参数，跳过无效空行
3. 处理每一行CSV数据前，先插入Org标题节点，默认取第一列字段作为标题文本
   如果一定要沿用原代码裸写loop的写法，也可以在代码开头加(require 'cl)加载旧版非前缀兼容库，但这种写法已经被官方标记为不推荐，未来版本可能会被移除。

(require 'cl-lib)
(require 'org)

(let ((lines (with-temp-buffer
               (insert-file-contents "data.csv")
               ;; 分割行时自动过滤空字符串，跳过空行
               (split-string (buffer-string) "\n" t)))
      properties)
  (setq properties (split-string (car lines) ","))
  (cl-loop for line in (cdr lines)
           for values = (split-string line ",")
           do
           ;; 插入Org一级标题，取第一列Name字段作为标题内容
           (insert (concat "* " (car values) "\n"))
           ;; 为当前标题写入对应属性
           (cl-loop for property in properties
                    for value in values
                    do (org-entry-put (point) property value))))

用你提供的测试CSV文件运行代码后，会生成如下标准Org格式内容：

* John
:PROPERTIES:
:Name: John
:Tel: 11111
:Mobile: 22222
:Fax: 33333
:END:

内容的提问来源于stack exchange，提问作者Hababa