參考：Learning GNU
Emacs 3/e，9.8.The Lisp Modes，11.Emacs Lisp Programming
Emacs有三種Lisp模式，其命令名稱如下：
| emacs-lisp-mode | 用于Emacs Lisp代碼的編輯（文件名.emacs或后綴.el） |
| lisp-mode | 用來編輯另一個Lisp系統的Lisp代碼（后綴.l或.lisp） |
| lisp-interaction-mode | 用來編輯和運行Emacs Lisp代碼（交互模式） |
本文只討論 lisp-interaction-mode模式。
缺省情況下*scratch*就是處于這種模式，無后綴的文件名一般也會讓Emacs進入Lisp交互模式，當然你可以使用變量auto-mode-alist進行設置。
鍵
入 M-x lisp-interaction-mode
Enter（回車）可以讓任何buffer進入Lisp交互模式；如要新建一個Lisp交互buffer，只需鍵入C-x
b（即switch-to-buffer命令），輸入buffer名，然后令該buffer進入Lisp交互模式。
Lisp交互模式和
Emacs
Lisp模式完全一致，除一個重要特性外：C-j已綁定到eval-print-last-sexp命令上。該命令提取point之前的那個S-
expression，對其進行評估，然后在buffer里打印結果。如果要使用其它模式里綁定到C-j的常見功能newline-and-
indent，你必須按下Enter，并緊跟Tab鍵。
記住
S-expression是任何符合Lisp語法的表達式。因此，可以使用
Lisp交互模式的C-j來檢查變量的值，確認函數定義，運行函數等等。比如，如果你輸入auto-save-interval并按下C-j，就會顯示該
變量的值（缺省為300）。如果你輸入一個defun并在其最右邊的括號后按下C-j，Emacs會保存所定義的函數（供以后調用）并輸出其名稱；這種情
況下，C-j類似C-M-x（即eval-defun命令），不過光標必須位于所定義的函數之后（因為有可能在定義前或中間）。如果你調用了一個函數，
Emacs就會評估（運行）該表達式并顯示函數的所有返回值。
Lisp交互模式的C-j提供了很棒的功能，你可以用它來增量方式開發和調試Emacs Lisp代碼；因為Emacs Lisp是種“真正的”Lisp，它甚至可用來開發其它Lisp系統的代碼片斷。
基本Lisp實體
你需要熟悉Lisp基本元素包括函數、變量和atom（原子）。函數是Lisp的唯一程序單元（program unit），涵蓋了其它語言的過程、子程序、程序甚至操作符等標記。
函
數被定義作上述實體的列表（list），通常是對其它現存函數調用的列表。所有函數都有返回值（return
value）（類似Perl函數和non-void
Java函數）；函數的返回值就是list里最后一項的值，一般是最后調用的函數返回的值。在其它函數里的函數調用等價于其它語言的語句
（statement），函數的語法如下：
(function-name argument1 argument2 ...)等價于Java的：
method_name (argument1, argument2, ...);這一語法用于所有函數，包括那些等價于其它語言的算術或比較運算符。例如，在Java或Perl里2加4，你會用表達式2+4，而在Lisp里你會使用如下寫法：
(+ 2 4)類似的，4 >= 2的Lisp方式：
(>= 4 2)Lisp中的變量和其它語言的相似，不過沒有類型。Lisp變量能夠推測任何類型的值（值本身沒有類型，不過變量對其能存放的內容不加任何限制）。
原子（atom）是個任意類型的值，包括整數、浮點（實）數、字符、字符串、布爾值、符號（symbol）和Emacs特殊類型如buffer、window和process。各種atom的語法如下：
- 整數：和你常用的一樣，有符號，范圍-2+27至2+27 - 1；
- 浮點數：可用十進制和科學計數法表示的實數。例如5489可寫成5489、5.489e3、546.9e1等；
- 字符：以問號開頭，如 ?a 。Esc、Newline和Tab可分別簡寫為\e、\n和\t；其它控制字符可以加\C-前綴來表示，例如C-a表示為?\C-a。整數也可用來表示字符，如ASCII表等。
- 字符串：用雙引號包圍；字符串里的引號標記和\需要加上\，"Jane said, \"See Dick run.\""是個合法字符串。字符串可以分割成多行，不需特殊語法。結束引號前的所有內容包括所有斷行符都是字符串值的一部分。
- 布爾值：大部分情況下真值為t，假值為nil，如果能預估到布爾值，則任何非nil值都被看作真值。nil也被用作null或nonvalue。
- 符號：Lisp實體名，如變量或函數名。有時需要引用實體的名字而非其值，這時可以在名字前加上單引號（'）。
setq用來賦值給變量，是個函數，而不象其它語言里用來賦值的專門語法=或:=。setq接收兩個參數：一個變量名和一個值。也可以進行多次賦值，如：
(setq thisvar thisvalue
thatvar thatvalue
theothervar theothervalue)
也可用其它方法設置值或變量，不過setq是使用最廣的方法。
函數定義
首先熟悉一下Lisp語法的特殊表示。- 用作“割斷”字符用來分隔變量、函數等名稱里的字（word），這是Lisp編程慣用法，類似C和Ada里的“_”。
A
more important issue has to do with all of the parentheses in Lisp
code. Lisp is an old language that was designed before anyone gave much
thought to language syntax (it was still considered amazing that you
could use any language other than the native processor's binary
instruction set), so its syntax is not exactly programmer-friendly. Yet
Lisp's heavy use of lists?aand thus its heavy use of parentheses?ahas
its advantages, as we'll see toward the end of this chapter.
讓我們從一個實例開始。
1 (defun count-words-buffer ( )
2 (let ((count 0))
3 (save-excursion
4 (goto-char (point-min))
5 (while (< (point) (point-max))
6 (forward-word 1)
7 (setq count (1+ count)))
8 (message "buffer contains %d words." count))))
defun：
指定函數名和參數來定義函數。注意defun本身是一個函數――被調用時，定義一個新函數。（defun返回把所定義的函數作為一個symbol返回。）
函數的參數顯示為在括號內的一個名字list；本例，函數沒有參數。如果在參數前加關鍵字&optional就表示參數是optional（可選
的）。如果參數是optional的，在函數調用時未指定該參數，則認為其值為nil。
(let ((var1 value1) (var2 value2) ... )
statement-block)
let：1.定義（或聲明）一個變量list；2.變量設置初始值，同setq；3.創建一個語句塊（類似函數體），在此塊內這些變量可用，let塊即這些變量的scope（作用域）。let里定義的變量可用setq改變其值，不過要小心使用setq。
save
-excursion：Emacs內建函數，保存光標原來的位置（因為 count-words-buffer函數要移動光標以便計算字數）。調用
save-excursion就是要求Emacs記住實例函數開始執行時的光標位置，并在執行完函數體內的所有語句后返回至初始光標位置。
goto
-char：Emacs內建函數，其參數是個（內嵌）函數調用，調用內建函數point-min。point是Emacs內部名稱，表示光標的當前位置。
point-min返回當前buffer里第一個字符的位置值，幾乎總是1；這樣goto-char調用時其參數值為1，效果等同于把point移至
buffer起始處。
(while condition statement-block)和let
及save-excursion一樣，while也建立了一個語句塊。condition是個值（atom、變量或返回一個值的函數）。while對這個
值進行測試，如果其值不是nil，則認為條件（condition）為真，語句塊得以執行，然后condition再次被測試，之后重復上述過程。當然也
可以寫個無限循環，如果你試圖執行這樣的語句，Emacs會掛起，鍵入C-g終止。
在實例函數中，condition是函數 <
，即帶兩個參數的小于函數，類似Java或Perl里的<運算符。第一個參數是另一個函數，它返回point的當前字符位置；第二個參數返回 buffer里的最大（最后）字符位置，即buffer的長度。函數="">< （和其它關系函數）返回一個布爾值，t 或 nil。
上
述循環的語句塊由兩條語句組成。第6行會把point往前移動一個字（word，即相當于M-f）。第7行，循環計數器加一；函數 1+ 是(+ 1
variable-name)的簡寫方式。注意第三個右括號（第7行）和while前面的左括號匹配。這樣，在計算字數時，while循環會讓Emacs
一次一個字（word）遍歷整個當前buffer。
實例函數的最后一個語句使用內建函數message在minibuffer里打印一行信息，提示buffer所含的字數。message函數的格式類似C語言。
Message格式字符串| 格式字符串 | 含義 |
|---|
| %s | 字符串或symbol |
| %c | 字符 |
| %d | 整數 |
| %e | 科學計數法表示的浮點數 |
| %f | 十進制表示的浮點數 |
| %g | 任意格式的浮點數，產生最短的字符串 |
將Lisp函數變為Emacs命令
函
數
count-words-buffer已編寫完成，接下來該如何運行？在交互模式中，可以把光標移到函數的結束括號，然后鍵入C-j（或
Linefeed），讓Emacs執行函數定義。你應該看到該函數的名字會再次出現在buffer里；defun函數的返回值就是已定義的符號（即函數名
稱）。
函數定義之后，可以在Lisp交互窗口中輸入一行 (count-words-buffer) ，然后在結束括號后再次按下 C-j 。
如
果你象其它Emacs命令一樣用M-x來執行上述函數，M-x count-words-buffer Enter，會得到錯誤提示信息 [No
match]。這是因為你并未在Emacs中“注冊”該函數，使其可供交互（interactive）使用。實現這一功能的函數是
interactive ，形式如下：
(interactive "prompt-string")上述語句必須出現在函數開始處，即緊隨defun和文檔說明字符串所在行之后。使用 interactive 會讓Emacs把函數注冊為一個命令，并提示用戶輸入defun語句中聲明的參數。提示字符串為可選。
提示字符串有一個特殊的格式：你要為想提示用戶輸入的每個參數都提供一段提示字符串，這些段用“\n”分隔。
用于interactive函數的參數代碼代 碼
| 提示用戶輸入 |
|---|
b
| 現存buffer的名稱 |
e
| 事件（鼠標動作或 function key press） |
f
| 現存文件的名稱 |
n
| 數字（整數） |
s
| 字符串 |
| 上述代碼都有一個大寫的變種 |
| B | 可能不存在的buffer名稱 |
| F | 可能不存在的文件名稱 |
N
| 數字，unless command is invoked with a prefix argument, in which case use the prefix argument and skip this prompt |
| S | 符號 |
示例：
(defun replace-string (from to)
(interactive "sReplace string: \nsReplace string %s with: ")
...)
回
到 count-words-buffer 命令：它不需參數，因此 interactive
命令不需要提示字符串。另外可以再給我們的命令添加一個文檔說明字符串（doc
string），它會顯示在describe-function（C-h f）之類的在線幫助工具中。Doc
string是普通的Lisp字符串，可選，行數長度任意，不過一般來說，第一行是個簡要完整的句子，說明命令的功能。注意字符串里的任意雙引號前必須加
上 \ 。
(defun count-words-buffer ( )
"Count the number of words in the current buffer;
print a message in the minibuffer with the result."
(interactive)
(save-excursion
(let ((count 0))
(goto-char (point-min))
(while (< (point) (point-max))
(forward-word 1)
(setq count (1+ count)))
(message "buffer contains %d words." count))))