两个递归子目录函数的比较 - Revision history

Mwroot at 16:34, 18 July 2026

2026-07-18T16:34:48Z

← Older revision		Revision as of 00:34, 19 July 2026
Line 4:		Line 4:

	== ManateeLazycat 版 ==		== ManateeLazycat 版 ==
	<syntaxhighlight lang="~~bash~~" line>		<syntaxhighlight lang="elisp" line>
	(require 'cl-lib)		(require 'cl-lib)

Line 41:		Line 41:

	== Emacs 原生版 ==		== Emacs 原生版 ==
	<syntaxhighlight lang="~~bash~~" line>		<syntaxhighlight lang="elisp" line>
	(let ((dir (locate-user-emacs-file "travel")))		(let ((dir (locate-user-emacs-file "travel")))
	(make-directory dir t)		(make-directory dir t)

Mwroot: /* 比较 */

2026-07-18T16:32:43Z

比较

← Older revision		Revision as of 00:32, 19 July 2026
Line 52:		Line 52:
	{\| class="wikitable"		{\| class="wikitable"
	!功能		!功能
	!你的 <code>add-subdirs-to-load-path</code>		!<code>add-subdirs-to-load-path</code>
	!Emacs 自带		!Emacs 自带
	\|-		\|-

Mwroot at 16:32, 18 July 2026

2026-07-18T16:32:28Z

← Older revision		Revision as of 00:32, 19 July 2026
Line 1:		Line 1:
	让 Emacs 自动把某个目录的子目录递归，还挺有意义的，免去手写 add-to-list 的麻烦。		让 Emacs 自动把某个目录的子目录递归，还挺有意义的，免去手写 add-to-list 的麻烦。

	~~<nowiki>~~__TOC__~~</nowiki>~~		__TOC__

	== ManateeLazycat 版 ==		== ManateeLazycat 版 ==

Mwroot at 16:32, 18 July 2026

2026-07-18T16:32:09Z

@@ Line 1: / Line 1: @@
 让 Emacs 自动把某个目录的子目录递归，还挺有意义的，免去手写 add-to-list 的麻烦。
 == ManateeLazycat 版 ==
@@ Line 48: / Line 50: @@
 == 比较 ==

Mwroot at 16:31, 18 July 2026

2026-07-18T16:31:26Z

← Older revision		Revision as of 00:31, 19 July 2026
Line 1:		Line 1:
			让 Emacs 自动把某个目录的子目录递归，还挺有意义的，免去手写 add-to-list 的麻烦。

	== ManateeLazycat 版 ==		== ManateeLazycat 版 ==
	<syntaxhighlight lang="bash" line>		<syntaxhighlight lang="bash" line>

Mwroot: Created page with "== ManateeLazycat 版 == (require 'cl-lib) (defun add-subdirs-to-load-path (search-dir) (interactive) (let* ((dir (file-name-as-directory search-dir))) (dolist (subdir ;; 过滤出不必要的目录，提升Emacs启动速度 (cl-remove-if #'(lambda (subdir) (or ;; 不是目录的文件都移除 (not (file-directory-p (concat dir subd..."

2026-07-18T16:30:38Z

Created page with "== ManateeLazycat 版 == <syntaxhighlight lang="bash" line> (require 'cl-lib) (defun add-subdirs-to-load-path (search-dir) (interactive) (let* ((dir (file-name-as-directory search-dir))) (dolist (subdir ;; 过滤出不必要的目录，提升Emacs启动速度 (cl-remove-if #'(lambda (subdir) (or ;; 不是目录的文件都移除 (not (file-directory-p (concat dir subd..."

New page

== ManateeLazycat 版 ==
<syntaxhighlight lang="bash" line>
(require 'cl-lib)

(defun add-subdirs-to-load-path (search-dir)
(interactive)
(let* ((dir (file-name-as-directory search-dir)))
(dolist (subdir
;; 过滤出不必要的目录，提升Emacs启动速度
(cl-remove-if
#'(lambda (subdir)
(or
;; 不是目录的文件都移除
(not (file-directory-p (concat dir subdir)))
;; 父目录、语言相关和版本控制目录都移除
(member subdir '("." ".."
"dist" "node_modules" "__pycache__"
"RCS" "CVS" "rcs" "cvs" ".git" ".github"))))
(directory-files dir)))
(let ((subdir-path (concat dir (file-name-as-directory subdir))))
;; 目录下有 .el .so .dll 文件的路径才添加到 `load-path' 中，提升Emacs启动速度
(when (cl-some #'(lambda (subdir-file)
(and (file-regular-p (concat subdir-path subdir-file))
;; .so .dll 文件指非Elisp语言编写的Emacs动态库
(member (file-name-extension subdir-file) '("el" "so" "dll"))))
(directory-files subdir-path))

;; 注意：`add-to-list' 函数的第三个参数必须为 t ，表示加到列表末尾
;; 这样Emacs会从父目录到子目录的顺序搜索Elisp插件，顺序反过来会导致Emacs无法正常启动
(add-to-list 'load-path subdir-path t))

;; 继续递归搜索子目录
(add-subdirs-to-load-path subdir-path)))))

(add-subdirs-to-load-path (expand-file-name "travel" user-emacs-directory))
</syntaxhighlight>

== Emacs 原生版 ==
<syntaxhighlight lang="bash" line>
(let ((dir (locate-user-emacs-file "travel")))
(make-directory dir t)
(add-to-list 'load-path dir)
(let ((default-directory dir))
(normal-top-level-add-subdirs-to-load-path)))
</syntaxhighlight>

== 比较 ==