elisp

determine if the type of a variable is List (listp var)

(add-to-list 'list-name (new-element) ) 只要list中没有此元素，则将它添加到list中 并返回结果list

(push element list)

相当于 (set list (cons element list))

(mapcar func list ) –> new-list

(dolist (element list) (;; 对element进行操作) )

(assq key pair-list) 因为是用eq对地址进行比较，因此一般用在以symbol为key的情况下。

(mapconcat func list 分隔符)

atom == !consp

nlistp == ! lisp

car-safe会判断对象是否为cons-cell类型, 如不是则会返回空

(pop '(1 3 4)) ==> 1

(nth 0 '(1 2 3)) –> 1

(nthcdr 0 '(1 3 4)) –> '(1 3 4) (nthcdr 1 '(1 3 4)) –> '(3 4) (nthcdr 2 '(1 3 4)) –> '(4) (nthcdr 3 '(1 3 4)) –> nil

(last '(1 2 3)) –> (1) (last '(2)) –> (2) 其返回结果的CAR是list的最后一个元素

(butlast '(1 2 3)) –> (1 2) (butlast '(1 2 3) 1 ) –> (1 2) (butlast '(1 2 3) 2 ) –> (1)

不用担心环形list导致的无限循环

(caar list)

(cons 1 '(2)) –> (1 2) == (1 . (2 . nil))

(cons 1 '() ) –> (1) == (1 . nil)

(cons 1 2) –> (1 . 2)

(make-list N elem)

append 一系列序列类型的对象 (最后一个必为list!) (append '(1 3) '(2 4) ) –> (1 3 2 4)

该函数会复制除了最后一个参数之外的所有参数, 再和最后一个参数组合成list 这衍生出了 复制list 的方法 (append 要复制的list nil ) –> list副本

(copy-tree tree/cons-cell类型 [是否复制vector]) 通过递归复制将产生一个新的cons-cell.

参数可以是非cons-cell类型的, 但这样不会导致复制, 而是简单地返回该参数对应的对象. 除非参数是个vector类型的对象, 且将第三个参数设为t

例子

(setq vec [2 3 4])
(message "%s" (eq vec (copy-tree vec))) ;;--> t 说明是同一对象,vector并没有发生复制
(message "%s" (eq vec (copy-tree vec t)) ) --> nil 即不是同一对象,发生了对vector的复制

(number-sequence 开始 结束 公差 )

例子 (number-sequence 2 10) –> (2 3 4 5 6 7 8 9 10)

(number-sequence 10 2 -1) –> (10 9 8 7 6 5 4 3 2)

(push 新元素 list变量) == (set list变量 (cons list变量 新元素))

(add-to-list list对象 元素 )

(add-to-list '(2 3 4) 3) ==> (2 3 4)

(add-to-ordered-list list变量 元素 [位置] )

(let* ((foo '(b d e) ))
(add-to-ordered-list 'foo 'a )
(message "%s"  foo) ;; --> a b d e 
)

(let* ((foo '(b d e) ))
  (add-to-ordered-list 'foo 'a 3)
  (message "%s"  foo) ;; --> d a b e 
)

(setcar mutable-list 新的car) –> 新的car

(setcar (cons 1 3) 2) –> 2

若使用setcar的cons-cell是某些list中的一部分, 则这些list也会受影响

(setq  x (list 'a 'b 'c))
(setq  y (list 'z (cdr x)))

(setcar (cdr x ) 'foo)

(message "%s" x) -->  ('a 'foo 'c) 
(message "%s" y) --> ('z 'foo 'c)



x:
 --------------       --------------       --------------
| car   | cdr  |     | car   | cdr  |     | car   | cdr  |
|   a   |   o------->|   b   |   o------->|   c   |  nil |
|       |      |  -->|       |      |     |       |      |
 --------------  |    --------------       --------------
                 |
y:               |
 --------------  |
| car   | cdr  | |
|   z   |   o----
|       |      |
 --------------

将cons-cell的cdr指向新的cons-cell对象

(setq x (list 1 2 3)) (setcdr x '(5)) –> (5)

可以利用它删除list中间的元素 eg: (setq y (list 2 3 4)) (setcdr y (cdr (cdr y)) ) ==> y = ( 2 4)

也可利用它在list中插入元素

(setq z (list 3 4 5) (setcdr z (cons 1 (cdr z))) z –> (3 1 4 5)

具体来说存在两类整数： fixnums 定长整数：取值范围取决于机器 bignums 任意精度的大整数

emacs中使用C的double类型来存储浮点数，其内部表示为2^N 其输出表示要么包含小数点或指数，要么两者都有。

例如1200的输出表示有: 1200.0 +12e2 12.0e2 …

在emacs中，一个字符本质上只是一个数字而已。换句话讲，字符实际上表示为它们的字符编码。

elisp中的符号是带名字的对象。通常情况下，符号的名字是唯一的，不存在两个符号有相同的名字。 一个符号可以是一个变量、一个函数名，或者指代一个属性列表。在给定的上下文中，一个符号只能有一个用法。

符号名称以 : 开头的是 keyword 符号。这些符号自动地变为常量，通常被用在比较一些特定的选项和未知的符号。

命名规则：elisp中的符号名几乎可以是任何字符构成的，字母，数字，标点符号+-*/_~!@$%^&=:<>{} 当有字符产生了歧义，都可以通过用“\”对字符进行转义，来代表这个字符本身。 因此“\t”可以成为符号名，它仅仅表示名字为t的符号。甚至一串数字也能作为符号名，只要对每个数字用反斜线进行转义即可。eg "\2\3\3"也是符号名。

符号名的输出表示的特殊规则： ## 无名的内部符号 #:foo 名为foo的内部符号

hash-table是一种查询速度更快的alist，可以通过key迅速查到对应的值。

以#s开始，括号中的前半部分是hash-table的一些属性，最后是hashtable的键值对 #s(hash-table size 30 data (key1 val1 key2 300))

lisp中的函数不仅是可执行的代码，也是lisp对象。未经编译的lisp函数是lambda表达式（以lambda开头的list）

在很多语言中，不可能存在没有名字的函数，但在lisp中，一个lambda表达式可以像一个函数被调用。 为了强调这点，也将lambda称为匿名函数。

大多数的函数调用是通过函数名的，但可以在运行时也能构造函数对象，并用原生函数funcall和apply来调用它。

lisp中的宏是用户定义的用来扩展lisp语言本身的结构，它作为对象的表现更像函数，但有着不同的参数传递语义。 从形式上来看宏是一个以macro开始的列表，其CDR是lisp函数对象（包含lambda） lisp宏对象通常用内置的 defmacro 来定义，但也可以用以macro开头的列表来定义

原生primitive函数是可以用lisp的方式调用的C实现的函数，它也被叫做 subrc 或 内建函数 当原生函数被调用时，默认会先对其参数进行求值，除非使用特殊的方式来调用原生函数。 对调用者来说，无所谓函数是否是原生的。只有在lisp中重新定义原生函数时才要进行区分，因为C代码中仍会调用原始的C函数，而不会调用重新定义的lisp版本函数。因此尽量不要重定义原生函数。

• 返回符号对应的函数对象（function cell）

(symbol-function '符号名)

• 判断是否是原生函数

(subrp '函数对象function-cell)

字节码函数对象是通过 字节编译(byte-compiling) Lisp代码产生的. 在内部字节码函数对象十分类似vector. 然而在函数调用中, 求值器会对这种类型进行特殊处理.

record在形式上类似vector, 但其首个元素是用来存放类型名的. 可以用type-of获取 record经常用于自定义新类型.

类型描述符是一个存放着类型信息的record, 首个位置必须是类型名. 函数type-of依赖这个特性返回record对象的类型.

cl-structure-class

autoload对象是一个以"autoload"开头的list. 它是某些函数定义的占位符, 记录了有助于找到函数定义的信息 (文件名等) 只有当用到该函数时,才会寻找定义并导入, 然后将占位符换成真正的定义.

一个finalizer类型的对象负责清理某些不再需要的对象. finalizer对象中包含一个lisp函数对象 ,当一个finalizer对象在一轮垃圾回收后 变为不可达时, emacs会调用finalizer中的函数对象. 在finalizer对象是否为不可达时, 不会将其它finalizer对象对当前finalizer对象的引用计入在内.

buffer是一个存放着能被编辑的文本的对象. 大多数buffer存放的内容是位于磁盘上的文件,因此这些buffer是可修改的. 但另一些buffer却不是. 大多数的buffer是对用户可见的,因此会被显示在屏幕上.但一个buffer不需要在每个窗口中都显示,每个buffer有被称为 point 的指定位置. 大多数编辑命令作用于 current buffer 中的point(光标)附近. 在任何一个时刻只能存在一个current buffer . buffer对象中的内容十分类似字符串,但buffer不像string那样被使用. 例如可以高效地插入文字到buffer中,但对字符串进行插入则涉及到字符串的拼接, 并且还要返回一个新的字符串对象.

一些数据结构是和每个buffer都相关的:

• 局部语法表
• 局部keymap
• buffer内的变量list
• 覆盖 overlay
• buffer内文字的文本属性

局部的keymap和变量list是独立于全局的变量定义和键位绑定的,他们只是用来控制程序在不同buffer中的行为.

buffer可以是间接的, 这意味着一个buffer可以和另一个buffer共享文本,但可以用不同的方式显示它.

marker类型对象描述了在特定buffer中的位置, 每个marker有两个部分: 其一是buffer,其二是位置

是用来显示一个buffer的终端屏幕的一部分. 每个窗口都有一个关联的buffer, 其内容显示在window上, 反之对每个给出的buffer来说, 它要么不出现在任何window中,要么出现在一个或多个window中.

尽管多个窗口可以同时存在, 但在任何一个时刻,只能有一个window是 select window ,它是emacs准备好执行命令时,光标所在的window. 通常select window显示的是current buffer, 但也有例外的情况.

在屏幕上window被分组到frame. 每个窗口属于唯一一个框架frame.

window同样没有read syntax, 其输出表示中包含了窗口序号, 窗口序号唯一地标识了窗口.

窗口类型是其子类型? frame是包含了一个或多个window对象的屏幕区域. 常常也用术语"frame"指代屏幕区域.

用于显示框架对象的终端设备

记录了窗口在frame中的布局信息, 因此可以用这些信息来恢复窗口的排列方式.

记录了所有frame的状态 通常是一个list, 其CAR为frame-configuration, 其CDR为一个alist, 每个元素记录了一个frame的各种信息

用于接收和发送字符. 很多类型都可以完成这样的功能,当通常输入流从键盘/buffer/文件 中获取字符, 输出流发送字符到buffer中或echo area

对象nil在这里还能表示一个流,它表示的是标准输入/输出; 类似地,对象t 表示使用minibuffer的输入流, 或者通过echo area的输出流

描述了击键及其触发的函数的对应关系

覆盖是如何表示的

控制显示文本的字体

eq 判断符号 在符号是同一个是才返回t eq 判断非数值 只有是同一对象才是true, 内容相同也为nil eq 判断数值 若值/类型不同,则返回nil;若两个定点数的值相同则为t; 若两个值相同的非定点数比较则结果不定.

若两个被比较的对象有相同的组成,则为t ; 并且若它们用eq比较的结果为t, 则它们用equal结果也为t

它几乎和equal的行为相同,除了在比较字符串时,它同时会比较文本属性,只要当属性也相同时才为t

lisp reader将如下形式作为整数读入: [正负号] 非空的十进制数字序列 [小数点] 十进制之外的基数可以通过"#"加上基数字符来指定:

0 ~ (max-char)

• fixnum 范围被机器架构限制
• bignum 范围被内存大小等限制

更安全通用的比较整数的方法是用 eql 和 =

bignum整数永远不等于fixnum整数, 因为只要在fixnum范围之内的整数一定会被表示为fixnum

most-positive-fixnum fixnum的最大值 most-negative-fixnum fixnum的最小值

integer-width 用于限制整数范围,任何整数的二进制表示最大不能超过integer-width位. 换句话说,任何整数的绝对值 < 2^ integer-width 超出该范围会导致范围错误

bignum要用=/eql进行比较

fixnum不仅能用=/eql进行比较,还能用eq进行比较

等价于 (= x 0)

既能用在数字上,又能用在marker上:

= 数值相等 /= 数值不等 max min abs < <= > >=

eql 只能比较数字, 不能用在marker上

(float num)

所求出的abs商必须满足和abs除数之积<=abs 被除数 , 在这种约束下将余数作为结果. 只允许两个整数之间进行运算. (% 9 -4) –> 1 (% -9 4) –> -1

允许浮点数作为参数 结果的正负和 除数一致 (mod 9 -4) –> -3 (mod -9 4) –> -1

(ash num 位数) 算术右移在最高位上补相应的符号位

(lsh num 位数) 逻辑右移在最高位上补0

logand logior lognot logxor

正整数 –> 返回二进制表示中1的个数 负整数 –> 返回补码表示中0的个数

stringp

(make-string N 字符 [是否为多字节串] ) (make-string N ?c) –> “N个c”

只要传入字符为ACSII字符，那么产生的就是单字节串。有时可能需要产生的是多字节串，比如要和其它多字节串连接。 只要将最后一个参数设为t即可

(string ?a ?b) –> "ab"

(substring 字符串 开始索引 结束索引) 其范围是左闭右开的。 若索引为负数，则最后一个字符的索引为-1. 若索引为nil，则它表示的是开头或结尾

(substring "hello" 0 2) –> "he" (substring "hello" -5 -3) –> "he"

substring 也能用在vector上： (substring [1 23 a (b) 3] 0 3)

(substring "XX") 相当于对该串内容和属性作拷贝

(substring-no-properties 串 start end)

(substring-no-properties 串) 相当于去掉原串的属性

concat能接受所有序列类型的对象，包含ASCII码的list、vector将被视作字符序列。

(concat "abc" "-def") –> "abc-def" (concat "abc" (list 120 121) [122] ) –> "abcxyz"

concat的返回值不一定总是会创建一个新的string，可能会返回一个已经存在的串。 若想对返回值进行修改（原址更改），最好先用 copy-sequence 将返回值拷贝一份再作更改

(split-string 字符串 [分隔符] [是否省略空串] [去除前后的特定字符的正则] )

eg: (split-string 字符串 "[\n\r]+") –> 字符串的list (以换行符作切割)

(split-string "food" "o" ) –> "f" "" "d" (split-string "food" "o" t) –> "f" "d" (split-string "food_" "o" t "_+") –> "f" "d"

(aset 字符串 index 新char)

例子: (let* ( (str "hello") ) (aset str 0 ?f) (message str) ) –>"fello"

(store-substring 字符串 index 字符/字符串) 将字符串从index开始替换为指定串，前提是不能超出原字符串的长度

(store-substring "hello" 1 "???" ) –> "h???o"

(let* (( str "hello")) (clear-string str ) (message str)) –>

只比较二者的字符序列是否相同。不对文本属性进行比较。

(string= A B) (string-equal 字符串a 字符串b)

(string> A B) (string-greaterp A B) (string< A B) (string-lessp A B)

(string-distance str1 str2) str1变为str2所需要更改的字符数 "a" –> "b" = 1 "a" –> "ab" = 1 "ab" –> "bc" = 2

(string-prefix-p 前缀 字符串 [是否忽略大小写]) (string-suffix-p 后缀 字符串 [是否忽略大小写])

(compare-strings 字符串a 开始 结束 字符串b 开始 结束 [是否忽略大小写] )

(message "%s" (compare-strings "hello" 0 nil "aaahelloworld" 3 8) ) ==> t

(assoc-string 字符串key alist [是否忽略大小写]) alist要是key为string类型的, 会调用compare-strings进行比较. 特别地,可以将alist换为由string/符号组成的list,

例:

(message "%s" (assoc-string "abc" '(("ab" . 233) ("fb" . 33) ("abc" . 44))  )) --> ("abc" . 44)

(message "%s" (assoc-string "abc" '("ab" "baxc" "abc")  )) 

(let* ((xyz 100)
(abc 300)
(edf 400)
)
 (assoc-string "abc" '(list xyz abc edf)  )  "abc" 
)

(format "格式字符串" 可变参数(各种lisp对象) ) 类似于C中的 sprintf/snprintf

(shell-command-to-string "ls") –> 命令的结果

(string-match "某个模式串的正则+用括号标记要提取的部分" str [start-index] ) 返回模式串在str中的开始index

"hello1234world" =="\\([0-9]+\\)[a-z]+"==========> 5 (能找到子串和正则匹配)

(match-string 0 str) –> 整个匹配上的模式串 (match-string 1 str) –> 模式串中第一个被()标记的部分 (match-string 2 str) –> 模式串中第二个被()标记的部分

(replace-regexp-in-string "被替换部分的正则" "用来替换的str" string)

current buffer表示能被elisp代码操作的文本区域, 任何一个时刻只能同时存在一个current buffer.

通常current buffer 就是选中窗口所显示的buffer,但它也可以被修改. elisp程序可能为了对某buffer进行操作,而将它指定为当前buffer.不过仅仅修改current buffer并不会使得屏幕上显示的内容发生变化

(current-buffer) –> return current buffer

(set-buffer buffer对象/buffer名:字符串) –> 当前buffer

save-excursion 保存当前buffer和其point, 然后执行body,最后恢复buffer到current-buffer,并恢复points

目的是为了将current-buffer重新设置为选中窗口所显示的那个buffer 避免了操作对象混乱的情况。

因此不能使用set-buffer从显示上切换current buffer（switch-to-buffer)

并且不能依赖这个特性来恢复当前缓冲区，因为修改了current buffer的程序不一定总是以编辑器的命令循环的方式被调用 它同样可以被其它程序调用，因此要注意current buffer的变化，不能依赖此特性。

将current buffer中指定范围的文本追加到指定buffer中

(append-to-buffer Buffer对象/Buffer名[string] start-point end-point)

这个函数说明了这点，首先随意打开一个除了scratch之外的buffer， 并确保*scratch*这个buffer存在。 然后调用test-buffer函数，可以观察到下面几点

(defun test-buffer() (interactive) (set-buffer "scratch") (insert "operate this buffer ") )

1. 显示上没有切换到其它buffer
2. 当前窗口的buffer并没有被插入文本
3. 查看*scratch*发现有新的文本被插入
4. M-: (current-buffer) 后发现，current-buffer并不是代码中设置的