Programming in Emacs Lisp笔记（一）表处理

一直以来我都在使用Emacs编辑器，使用得越多，越想深入了解Emacs Lisp。在gnu的网站上，我找到了Programming in Emacs Lisp，觉得是很好的学习资料。下面是我的学习笔记贴出来与大家分享。 

这个笔记中，对Emacs Lisp中的一些名词：symbols、form、list等没有统一的叫法，对函数、form等也是混合着在使用，主要是为了能让自己更容易了解。 

笔记正在增长中，笔记的原文是用 emacs muse 书写的，需要的朋友可以给我留言。 

表处理 
Lisp列表 
数字，列表中的列表 

列表里也可以包含数字：(+ 2 2)。 

Lisp里的数据和程序都是相同的方式实现的，他们都是在括号中由单词、数字或者其它列表组成的用空白分隔的列表。因为程序看起来像数据，所以一个程序可以当作数据传递给另一个程序，这是lisp一强非常强大的功能。 
Lisp原子 

Lisp列表中的单词叫原子（意为原子在Lisp列表中不可再分割成更小的单位）。与原子不同，list可以分隔成更小的单位（car cdr & cons）。 

空的列表：()，被称作空列表。与其它的数据类型不同，空列表被同时看作原子和列表。 

与自然界的原子一样,Lisp中的原子这个名称来出现得太早（意指与自然界的原子一样，原子还可以再分割）。Lisp中部分原子，比如数组就可以进行分割。但是这种机制与列表的分隔是不同的。如果依据对列表的分隔方式来说，列表中原子就是不可分隔的了。 
列表中的空白 

额外的空白被用来提高代码的可读性。 

'(this list 
   looks like this) 

与 

'(this list looks like this) 

是相同的。 
列表排版 

在Emacs Lisp mode下，有多种方法来对Lisp语句进行排版。比如，按<TAB>键将自动缩进当前光标所在行到正确的位置。M-C-\可以格式化当前所选区域中的代码。 
运行一个程序 

执行Lisp程序时，将执行下列三者之一： 

   1. 什么都不做，返回列表本身 
   2. 返回错误信息 
   3. 把列表中的第一个符号当作命令执行一些操作 

放在列表前的单引号被称作引用（quote）；当用它来处理列表时，它告诉Lisp不要对列表进行处理。但如果列表前没有单引号，则列表前的第一个元素是特殊的，它被当作命令被执行（Lisp中这些命令被称作函数）。列表(+ 2 2)显示也与加引号的列表的不同，Lisp知道需要用+来处理列表中的其它元素：把后面的数字相加。 
生成错误信息 

错误信息是由内置的GNU Emacs debugger生成的。进入debugger后，可以用按键q退出debugger。 
符号名称和函数定义 

Lisp中同一指令可以被绑定到多个名称。 

另一方面,在同一时刻一个符号只允许绑定到一个函数定义上。 

由于Emacs Lisp的庞大，它有一套按照不同函数功能分类的符号命名规则。如：所有处理Texinfo的函数都心textinfo-开头，而处理邮件的函数以rmail-开头。 
Lisp解释器 

Lisp的工作方式：首先，它查看列表前是否有单引号，如果有则解释器给出这个列表。如果没有引号，解释器检查列表中的第一个元素是否有对应的函数定义，如果找到则解释器调用函数定义的指令。否则，解释器将打印出错误信息。 
复杂一点的内容 

Lisp解释器可以对没有单引号且不被括号包围的符号。Lisp解释器将检测符号是否为一个变量。 

一些函数不是普通的方法。被用来处理一些特殊的工作，比如定义一个函数。 

Lisp求值时，将先对列表内部嵌入的列表进行求值，从内向外。 

Lisp解释器工作时从左向右，从一个语句到另一个语句（从上至下）。 
编译（Byte Compiling） 

Lisp解释器可以解释两种类型的代码：人可以读的代码和另一种被你为byte compiled code的代码。编译过的代码执行更快。 

可以用byte-compile-file编译代码。被编译好的字节码文件扩展名为.elc。 
求值 

当Lisp解释器工作于一个语句上时，这个活动的过程被称为求值（evaluation）。求值完成后解释器将返回函数定义的执行结果，或者在函数出错时给出错误信息。 
对内部列表求值 

可以把光标停留在内部列表右括号的后面，按C-x C-e执行。 

(+ 2 (+ 3 3)) 

把光标放在括号后面，或者把光标放在代码下面的空行的行首，都可以得到8。如果用C-x C-e对一个数字求值将得到数字自身，这也是数字与符号的不同。 
变量 

Emacs Lisp中符号可以有一个值绑定到它或者一个函数定义绑定到它。两者不同在于，函数定义是指令的集合。值是可以修改的数字或者其它。符号的值可以是任意的Lisp表达式，比如符号、数字、列表、字符串等。有值的符号通常被称作变量。 

符号可以同时有一个函数定义和值。两个是分开的。例： 

(defun test_f () 
"test2" 
(message "bbb")) 

(setq test_f "124") 

test_f          -> 变量值"124" 
(test_f)        -> 函数调用显示"bbb" 

fill-column一个变量的例子 

变量fill-column，每个Emacs缓冲区，这个符号通常被设置成72或70,但也可能有不同的值。可以用C-x C-e对fill-column这个符号求值。 

符号可以有值绑定到上面，我们可以绑定变量到值、数字、字符串、列表甚至是函数定义。 
函数符号未定义时的错误信息 

当我们对fill-column求值时将得到变量的值时并没有在符号外面添加括号。这是因为我们不打算将符号当作函数的名称。 

如果fill-column是列表中的第一个元素或者唯一的元素，Lisp解释器将查找绑定到符号上的函数定义。但fill-column不是一个函数定义。当我们对 

(fill-column) 

求值时将产生错误信息： 

---------- Buffer: *Backtrace* ---------- 
Debugger entered--Lisp error: (void-function fill-column) 
  (fill-column) 
  eval((fill-column)) 
  eval-last-sexp-1(nil) 
  eval-last-sexp(nil) 
  call-interactively(eval-last-sexp) 
---------- Buffer: *Backtrace* ---------- 

函数fill-column未定义。 

按q退出调试器。 
符号没有值时的错误信息 

例如对 

(+ 2 2) 

中的+号求值（光标停留在+的后面，按C-x C-e）时将产生错误信息： 

---------- Buffer: *Backtrace* ---------- 
Debugger entered--Lisp error: (void-variable +) 
  eval(+) 
  eval-last-sexp-1(nil) 
  eval-last-sexp(nil) 
  call-interactively(eval-last-sexp) 
---------- Buffer: *Backtrace* ---------- 

这个错误信息与上节函数未定义时的不同。表示变量+未定义。 
参数 
参数类型 

传递给函数的数据类型依赖于函数需要使用何种信息。比如+函数需要数字类型的参数。concat需要字符串类型的参数。substring是一个特殊一点的函数（称作原子粉碎机），它能把从原子类型中解析出一部分数据。 

(substring "The quick brown fox jumped." 16 19) 

变量值或者列表当作参数 

例： 

(+ 2 fill-column) 
(concat "The " (number-to-string (+ 2 fill-column)) " red foxes.") 

参数数量 

一些函数可以带多个参数，例如：+、*。 

(+)       => 0 

(*)       => 1 

(+ 3)     => 3 

(* 3)     => 3 

(+ 3 4 5) => 12 

(* 3 4 5) => 60 


使用错误类型的参数 

当传递了错误的参数类型时Lisp解释器将产生错误信息。例如对 

(+ 2 'hello) 

求值的结果： 

---------- Buffer: *Backtrace* ---------- 
Debugger entered--Lisp error: 
         (wrong-type-argument number-or-marker-p hello) 
  +(2 hello) 
  eval((+ 2 (quote hello))) 
  eval-last-sexp-1(nil) 
  eval-last-sexp(nil) 
  call-interactively(eval-last-sexp) 
---------- Buffer: *Backtrace* ---------- 

错误信息的第一部分直截告诉我们参数类型错误(wrong-type-argument。第二个部分看起来有些迷惑number-or-marker-p，这部分告诉了我们+函数所需要的参数类型。 

符号number-or-marker-p说明Lisp解释器检查提供给函数的信息（参数的值）是否是数字或marker（C-@或C-< SPC>设置的位置，mark可以被当作数字进行处理－mark在缓冲区中的字符位置）。Emacs Lisp中+可以将数字和作为数字的marker位置相加。 

number-of-marker-p中的p是早期Lisp程序中的用法。p是'predicate'的简写。是早期Lisp研究者所使用的术语， predicate指明了函数用于决定一些属性是true还是false。因此p告诉我们number-or-marker-p是一个根据参数是否为数字或者marker而返回true或者false的函数。另一个以p结尾的Lisp符号包括zerop，这是一个检查参数值是否为0的函数，listp则是一个检测参数是否为一个列表（list）的函数。 

最后，错误信息的其它部分将显示出符号hello。这是传递给+的参数值。 
message函数 

message函数显示信息到回显区。占位符%s表示字符串，%d为整数。例子： 

(message "This message appears in the echo area!") 
(message "The name of this buffer is: %s." (buffer-name)) 
(message "The value of fill-column is %d." fill-column) 
(message "There are %d %s in the office!" 
         (- fill-column 14) "pink elephants") 
(message "He saw %d %s" 
         (- fill-column 34) 
         (concat "red " 
                 (substring 
                  "The quick brown foxes jumped." 16 21) 
                 " leaping.")) 

设置变量值 

有几种方法给变量赋值。set或setq函数，let函数。 
使用set 

要把符号flowers的值设置为列表'(rose violet daisy buttercup)，可以执行下面的语句： 

(set 'flowers '(rose violet daisy buttercup)) 

列表(rose violet daisy buttercup)将显示在回显区。这是set函数的返回值。另一方面符号flowers被绑定到列表；这样符号flower可以看作一个变量，它具有那个列表值。 

在对set语句求值后，就可以对符号flowers求值，它将返回set设置的值。当对： 

flowers 

求值时，回显区将显示(ros violet daisy buttercup)。 

这时如果对'flowers求值，将在回显区看到符号自身flowers。 

当使用set时，需要在两个参数前加单引号，除非你想对它们进行求值。如果没有加单引号，则解释器将先对参数进行求值，例如对flowers求值，如果flowers之前未赋过值，则将报错，如果对flowers的求值返回了值，则后面的变量值将赋给对flowers求值所返回的值上。这种情况非常少见。 

(set 'flowers 'aaa) 
(set flowers "123") 
(message aaa)       ->显示"123" 

使用setq 

setq与set类似，但setq将自动给第一个参数前加单引号。另一方面，setq允许在一条语句中同时设置多个不同的变量值。例： 

(setq carnivores '(lion tiger leopard)) 

与 

(set 'carnivores '(lion tiger leopard)) 

相同。 

setq可以给多个变量赋值，例： 

(setq trees '(pine fir oak maple) 
      herbivores '(gazelle antelope zebra)) 

尽管我们一直在用赋值（'assign'），但有另一种方式思考set和setq；即set和setq使一个符号指向（point）一个列表。 
计数器 

这是一个在计数器中使用setq的例子。 

(setq counter 0) ; 初始化 
(setq counter (+ counter 1)) ; 增加 
counter 

小结 

    * Lisp程序由表达式组成，表达式可以是列表或者原子。 
    * 列表由零个或者多个原子或内部列表组成，各元素由空白分隔，被括号包括。列表可以为空。 
    * 原子是多个字符符号，比如：forward-paragraph，单字符比如+，双引号间的字符串，数字。 
    * 对自身求值的数字。 
    * 双引号间的字符串也将对自身求值。 
    * 当对符号自身求值时，将返回它指向的值。 
    * 当对列表求值时，Lisp解释器查看列表中的第一个符号所绑定的函数定义。然后按定义的指令执行。 
    * 单引号，'，告诉Lisp解释器应该把后面的表达式按原样返回，不对它进行求值。 
    * 参数是传递给函数的信息。函数是列表中的第一个元素，其它元素被求值并作为参数传递给函数。