# , ` 是什么意思，不懂

[tumashu]

非IT专业没什么，这个群里有许多大牛都是非IT专业

[zhua]

版面不会排高亮, 先图片, 后文件

输出的结果

类似 没处理前的, 输出

代码文本, 可以高亮啊, 要用 “预格式化” 文本这个功能

;; $file_name_list 最终需要 提取出 的 文件名
(defun zzf-test-7 ()
  (interactive)
  (let ($y $t7
           $extension_name_list $window_list $file_name_list)

    ;; 需要 提取的 文件类型
    (setq $extension_name_list
          '(".el" ".org" ".html" ".css" ".js" ".php" ".txt"))

    ;; 当前窗格 中打开的 窗口
    (setq $window_list
          (cdr  (split-string
                 (mapconcat
                  (lambda (x)
                    (format "%S" x))
                  (window-list) "")
                 "#") ;
                ))    ;

    (dolist ($y $window_list)
      ;; 先正则 提取 符合的 文件类型
      (when (string-match "\\(\\..*[A-Za-z0-9]\\)" $y)

        ;; 判断 是否是 需要的 文件类型
        (when (member (match-string 1 $y) $extension_name_list)
          (push (match-string 1 $y) $t7) ; 这个 测试用
          ;; 提取文件名
          (string-match "\\(on .*>\\)" $y)
          (push (substring (match-string 1 $y) 3 (1- (length (match-string 1 $y))))
                $file_name_list) ;
          )                      ; when 2
        )                        ; when 1
      )
    (with-output-to-temp-buffer "*xah temp out*"
      (print $file_name_list ) ;
      (print $t7 ))            ;
    ))

前面 问时, 主要是想, 有没有这样的

(frame-parameter nil 'name)

直接 就提出来了, 找来找出, 找不到,

难道这种格式

非要, 用 正则, 没有 API 可以直接用吗? 还是像 org-mode 一样,

只有 基本的 API