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” 要求输入一个缓冲区的名字给参数，必须是存在的缓冲区才行

秒客网