Manateelazycat 的 Emacs 启动文件 site-start.el 研究 - Revision history

Mwroot: /* 先验知识 */

2026-07-10T11:16:09Z

先验知识

← Older revision		Revision as of 19:16, 10 July 2026
Line 98:		Line 98:

	所有原生函数，都可以通过 C-h f 查询核心结构、用法用途。		所有原生函数，都可以通过 C-h f 查询核心结构、用法用途。

			最重要的事：其实 Emacs 本身自带 Eldoc 模式，在 Emacs 里读 elisp 代码，它本身就会显示以下函数的用法。
	<syntaxhighlight lang="elisp">		<syntaxhighlight lang="elisp">
	# let* 的核心结构		# let* 的核心结构

Mwroot: /* 详细解析 */

2026-07-09T02:22:39Z

详细解析

← Older revision		Revision as of 10:22, 9 July 2026
Line 54:		Line 54:
	### let* 把 dolist 包含在内，是划定 let 定义的变量的使用范围		### let* 把 dolist 包含在内，是划定 let 定义的变量的使用范围
	### dir 就是把 search-dir 加上后斜杠后的结果		### dir 就是把 search-dir 加上后斜杠后的结果
	## dolist 对列表执行操作 ~~{{#tip-text: let* \| 第一行：顺序绑定变量<br>第二行：后面的变量可以引用前面的变量<br>第三行：适合有依赖关系的局部变量}}~~		## dolist 对列表执行操作
	### subdir 是待处理的 VAR		### subdir 是待处理的 VAR
	### cl-remove-if 函数的结果是 LIST		### cl-remove-if 函数的结果是 LIST
Line 60:		Line 60:
	#### lambda 函数，判断不适宜目录		#### lambda 函数，判断不适宜目录
	#### cl-remove-if 把 dir 里符合上边两个判断的文件夹移除		#### cl-remove-if 把 dir 里符合上边两个判断的文件夹移除
	~~###~~
	### 执行的操作是，在前提条件下，把 subdir-path 加入 load-path 列表末尾		### 执行的操作是，在前提条件下，把 subdir-path 加入 load-path 列表末尾
	#### 拼接 dir 和 subdir，达到找到下一级有效目录的效果		#### 拼接 dir 和 subdir，达到找到下一级有效目录的效果
	#### cl-some 用 file-regular-p 过滤存有特定后缀文件的文件夹		#### cl-some 用 file-regular-p 过滤存有特定后缀文件的文件夹
	# 运行 add-subdirs-to-load-path，"/usr/share/emacs/lazycat" 就是 search-dir		# 运行 add-subdirs-to-load-path，"/usr/share/emacs/lazycat" 就是 search-dir



	~~{{#tip-text: let* \| 第一行：顺序绑定变量<br>第二行：后面的变量可以引用前面的变量<br>第三行：适合有依赖关系的局部变量}}~~

	== 先验知识 ==		== 先验知识 ==

Mwroot: /* 源代码 */

2026-07-09T02:21:31Z

源代码

← Older revision		Revision as of 10:21, 9 July 2026
Line 2:		Line 2:

	== 源代码 ==		== 源代码 ==
	<syntaxhighlight lang="~~bash~~" ~~line~~>		<syntaxhighlight lang="elisp">
	(require 'cl-lib)		(require 'cl-lib)

Mwroot: /* 源代码 */

2026-07-09T02:21:16Z

源代码

← Older revision		Revision as of 10:21, 9 July 2026
Line 2:		Line 2:

	== 源代码 ==		== 源代码 ==
	<~~pre~~>		<syntaxhighlight lang="bash" line>
	(require 'cl-lib)		(require 'cl-lib)

Line 42:		Line 42:

	(require 'init)		(require 'init)
	</~~pre~~>		</syntaxhighlight>

	== 详细解析 ==		== 详细解析 ==

Mwroot: /* 源代码 */

2026-07-09T01:53:17Z

源代码

← Older revision		Revision as of 09:53, 9 July 2026
Line 2:		Line 2:

	== 源代码 ==		== 源代码 ==
	<~~syntaxhighlight lang="elisp"~~>		<pre>
	(require 'cl-lib)		(require 'cl-lib)

Line 42:		Line 42:

	(require 'init)		(require 'init)
	</~~syntaxhighlight~~>		</pre>

	== 详细解析 ==		== 详细解析 ==

Mwroot: /* 源代码 */

2026-07-08T15:06:52Z

源代码

← Older revision		Revision as of 23:06, 8 July 2026
Line 20:		Line 20:
	(not (file-directory-p (concat dir subdir)))		(not (file-directory-p (concat dir subdir)))
	;; 父目录、语言相关和版本控制目录都移除		;; 父目录、语言相关和版本控制目录都移除
	(member ~~{{#tip-text: let* \| 第一行：顺序绑定变量<br>第二行：后面的变量可以引用前面的变量<br>第三行：适合有依赖关系的局部变量}}~~ subdir '("." ".."		(member subdir '("." ".."
	"dist" "node_modules" "__pycache__"		"dist" "node_modules" "__pycache__"
	"RCS" "CVS" "rcs" "cvs" ".git" ".github"))))		"RCS" "CVS" "rcs" "cvs" ".git" ".github"))))

Mwroot: /* 源代码 */

2026-07-08T15:06:09Z

源代码

← Older revision		Revision as of 23:06, 8 July 2026
Line 20:		Line 20:
	(not (file-directory-p (concat dir subdir)))		(not (file-directory-p (concat dir subdir)))
	;; 父目录、语言相关和版本控制目录都移除		;; 父目录、语言相关和版本控制目录都移除
	(member subdir '("." ".."		(member {{#tip-text: let* \| 第一行：顺序绑定变量<br>第二行：后面的变量可以引用前面的变量<br>第三行：适合有依赖关系的局部变量}} subdir '("." ".."
	"dist" "node_modules" "__pycache__"		"dist" "node_modules" "__pycache__"
	"RCS" "CVS" "rcs" "cvs" ".git" ".github"))))		"RCS" "CVS" "rcs" "cvs" ".git" ".github"))))

Mwroot: /* 详细解析 */

2026-07-08T15:05:47Z

详细解析

← Older revision		Revision as of 23:05, 8 July 2026
Line 54:		Line 54:
	### let* 把 dolist 包含在内，是划定 let 定义的变量的使用范围		### let* 把 dolist 包含在内，是划定 let 定义的变量的使用范围
	### dir 就是把 search-dir 加上后斜杠后的结果		### dir 就是把 search-dir 加上后斜杠后的结果
	## dolist 对列表执行操作		## dolist 对列表执行操作 {{#tip-text: let* \| 第一行：顺序绑定变量<br>第二行：后面的变量可以引用前面的变量<br>第三行：适合有依赖关系的局部变量}}
	### subdir 是待处理的 VAR		### subdir 是待处理的 VAR
	### cl-remove-if 函数的结果是 LIST		### cl-remove-if 函数的结果是 LIST

Mwroot: /* 详细解析 */

2026-07-08T15:05:33Z

详细解析

← Older revision		Revision as of 23:05, 8 July 2026
Line 65:		Line 65:
	#### cl-some 用 file-regular-p 过滤存有特定后缀文件的文件夹		#### cl-some 用 file-regular-p 过滤存有特定后缀文件的文件夹
	# 运行 add-subdirs-to-load-path，"/usr/share/emacs/lazycat" 就是 search-dir		# 运行 add-subdirs-to-load-path，"/usr/share/emacs/lazycat" 就是 search-dir



			{{#tip-text: let* \| 第一行：顺序绑定变量<br>第二行：后面的变量可以引用前面的变量<br>第三行：适合有依赖关系的局部变量}}

	== 先验知识 ==		== 先验知识 ==

Mwroot: /* 先验知识 */

2026-07-08T08:44:23Z

先验知识

← Older revision		Revision as of 16:44, 8 July 2026
Line 114:		Line 114:

	# cl-remove-if 的核心结构		# cl-remove-if 的核心结构
	# cl-remove 的作用：Remove all items satisfying PREDICATE in SEQ.		# cl-remove-if 的作用：Remove all items satisfying PREDICATE in SEQ.
	(cl-remove-if PREDICATE SEQ [KEYWORD VALUE]...)		(cl-remove-if PREDICATE SEQ [KEYWORD VALUE]...)

	# cl-some 的核心结构		# cl-some 的核心结构
	# ~~Say~~ whether PREDICATE is true for any element in the SEQ sequences.		# cl-some 的作用：Say whether PREDICATE is true for any element in the SEQ sequences.
	(cl-some PREDICATE SEQ...)		(cl-some PREDICATE SEQ...)