在emacs中列出所有顶级全局变量

主要是为了我自己的启发，我试图列出当前Emacs会话中加载的所有全局变量。我想做的是生成一个包含列出的所有函数的HTML文件。当然，同样有用的是定义函数、var等的文件

emacs中是否已经内置了任何帮助

---

L-

沿着这些思路应该做些事情：

(let ((result '()))
  (mapatoms (lambda (x)
              (when (boundp x)
                (let ((file (ignore-errors
                              (find-lisp-object-file-name x 'defvar))))
                  (when file
                    (push (cons x file) result))))))
  result)

警告：需要很长时间才能完成