列出包含regexp的所有Emacs变量

Question

如何在Emacs中找到名称中包含“directory”的所有变量？

Answer 1

M-x apropos-variable RET directory

Answer 2

如果您只想查找包含字符串的所有变量，请查看correct答案。在这里，我以(<variable> . <value>)形式创建了对列表。

使用的函数说明

• mapatoms是一个地图式函数，用于对obarray进行操作，该变量包含Emacs使用的所有符号。
• prin1-to-string返回一个字符串，其中包含对象的打印表示。
• string-match在字符串中找到正则表达式，如果找不到则返回index或nil。
• push将元素插入到列表的头部。
• remove-if相当于倒置filter
• mapcar是一个普通的map函数
如果变量的值不为空，则
• boundp返回t。
• symbol-value返回变量的值。

最终代码

(let ((matching-variables
       (let ((result '()))
         ;; result will contain only variables containing "directory"
         (mapatoms (lambda (variable)
                     (let* ((variable-string (prin1-to-string variable))
                            (match (string-match "directory" variable-string)))
                       (if match
                           (push variable result)))))
         result)))
  ;; returns list of pairs (variable-name . variable-value)
  (remove-if #'null
             (mapcar (lambda (variable)
                       (if (boundp variable)
                           (cons variable (symbol-value variable))
                         nil))
                     matching-variables)))

参考

• https://stackoverflow.com/a/8031385/596361