e lisp 自定义函数

自定义函数

(defun multi-by-seven (number)
  "multi number by seven"
  (interactive "p")
  (message "result is %d" (* 7 number)))

• defun 是定义函数的关键字
• multi-by-sever 是函数的名字
• (number) 是函数的参数，必须有括号
• “multi number by seven”是函数的注释，当用C-h f，输入函数名字后，注释会显示出来
• (interactive "p") 说明是和emacs交互的函数， 参数p的作用是，告诉emacs，这个函数的参数number是需要用C-u来设定
• (message "result is %d" (* 7 number))是函数的实体。message的作用是，把result is %d显示到用户信息行

用法

1，C-u后，输入一个数字（这个数字就是传递个函数的参数），并键入M-x multi-by-seven，回车

如果在C-u后，输入的数字是3，则在用户信息行，显示：result is 21.

如果在C-u后，没有输入任何数字，则取默认值4，所以显示：result is 28.

2，M后，输入一个数字（这个数字就是传递个函数的参数），并键入M-x multi-by-seven，回车

如果在M后，输入的数字是5，则在用户信息行，显示：result is 35

let 表达式

let表达式模板：(let varlist body ...)

(let ((var1 value1)

​ (var2 value2))

(

​ ;body

))

(let ((zebra 'str1)
      (tiger 'str2) )
  (message "one %s %s" zebra tiger))
;执行结果：one str1 str2
(let ((birch 3)
      pine
      fir
      (oak "some"))
  (message "Here are %d variables with %s, %s, and %s value"
           birch pine fir oak))
；执行结果：Here are 3 variables with nil, nil, and some value

if 表达式

nil为false，其余都为true

(if true-or-false-test
    action-to-carry-out-if-test-is-true)
(if (> 5 4)                             ;if-part
    (message "5 is greater than 4!"))   ;then-part

(defun iftest (str)
"this is if test code"
(if (equal str 'da)
    (message "this is %s" str))
)
(iftest 'da)
(iftest 'da1)

if-else 表达式

nil为false，其余都为true

(if true-or-false-test
    action-to-carry-out-if-test-is-true
    action-to-carry-out-if-test-is-false)
(if (> 4 5)                                 ;if-part
    (message "5 is greater than 4!")        ;then-part
    (message "4 is not greater than 5!"))   ;else-part

(defun iftest (str)
"this is if test code"
(if (equal str 'da)
    (message "this is %s" str)
  (message "this is not %s" str))
)
(iftest 'da)
(iftest 'da1)

nil

nil有2种意思，第一种为()，第二种为false

(if ()
    'true
  'false)
;结果为false

(if nil
    'true
  'false)
;结果为false

(if 4
    'true
  'false)
;结果为tre

(if (buffer-size)
    'true
  'false)
;结果为tre

or 函数

or函数可以有很多参数，它逐一对每一个参数求值，并返回第一个其值不是nil的参数的值。一旦遇到其值不是nil的参数后，后面的参数就不会被求值。

(defun simple-inser-buffer (buffer)
"simple insert buffer"
(interactive "*binsert buffer:")
(or (bufferp buffer)
    (setq buffer (get-buffer buffer)))

and 函数

and函数可以有很多参数，它逐一对每一个参数求值，一旦遇到其值是nil的参数后，后面的参数就不会被求值。

save-excursion 函数

这个函数将当前的位点（point）和标记（mark）保存起来，如果在函数体里面，改变了位点和标记的值，函数执行结束后，把位点和标记恢复成函数执行前的值。这个函数的主要目的是使用户避免位点和标记的不必要的移动。

(save-excursion
 first-expression-in-body
 second-expression-in-body
 third-expression-in-body
 ...
 last-expression-in-body)

save-excursion经常出现在一个let表达式中

(let varlist
	(save-excursion
	body...))

标记

标记（mark）是缓冲区中的另外一个位置。它的值可以用一个命令（C-SPACE(set-mark-command)）来设置。如果设置了一个标记，可以用命令C-x C-x（exehange-point-and-mark)使光标从位点跳到标记处，并将光标当初所处的位置设置成当前的标记。另外，标记也是存放在标记环中的，可以多次用C-u C-SPACE命令来使光标跳到被保存的标记处（和M-y的用法一样）

interactive

• "p" 前缀参数，通过C-u传入
• “P” 未加工的前缀参数，使用前需要调用函数(prefix-numeric-value arg),arg是参数
• “B” 传入缓冲区的名字给参数，可以是不存在的缓冲区。
• “r” 传入域(region)的开始位置和终了位置给参数
• “¥n" 分割参数的作用
• "*" 如果要编辑的是只读缓冲区，会显示错误消息到回显区。但是测试后，发现不加也会出错误信息。
• ”b” 要求输入一个缓冲区的名字给参数，必须是存在的缓冲区才行