GNU emacs Lisp小结3

chapter4 与缓冲区有关的函数
4.1 查找更多的信息
C-h f 函数名   ;查询函数
C-h v 变量名   ;查询变量
find-tags 函数 ;跳到响应函数
M-. 函数名     ;同上
上面函数需要定义一个标记表(tags table),这是一个名为"TAGS"的文件。
可以使用M-x visit-tages-table来指定
C-h p 命令让你用主题关键字搜索EMacs Lisp标准库。

4.2 简化的beginning-of-buffer函数定义
beginning-of-buffer => M-<
end-of-buffer => M->

(defun simple-beginning-of-buffer ()
"Move point to the beginning of the buffer;
leave mark at previous position."
(interactive)
(push-mark)
(Goto-char (point-min)))
你可以使用C-h f fun来查询具体函数。
C-x C-x可以回到原来位置。
end-of-buffer 只需要把point-min换成point-max.

4.3 mark-whole-buffer函数
快捷键：C-x h

(defun mark-whole-buffer ()
"Put point at beginning and mark at end of buffer."
(interactive)
(push-mark (point))
(push-mark (point-max))
(goto-char (point-min)))

4.4 append-to-buffer函数的定义
(defun append-to-buffer (buffer start end)
"Append to specified buffer the next of the region.
It is insert into that buffer before its point.
When calling from a program, give three arguments:
a buffer or the name of one, and two character numbers
specifying the portion of the current buffer to be copied."
(interactive "BAppend to buffer:\nr")
(let ((oldbuf (current-buffer)))        
(save-excursion
(set-buffer (get-buffer-create buffer))
(insert-buffer-substring oldbuf start end))))

4.5回顾
1.descibe-function, describe-variable
C-h f, C-h v
2.find-tag
M-.
3.save-excursion
保存当前的位点，标记，缓冲区，执行参数，最后返回原状态。
4.push-mark
在指定位置设置一个标记，并在标记环中记录原来标记的值。
5.goto-char
将位点设置为由参量指定的位置。
6.insert-buffer-substring
将一个来自缓冲区的文本域拷贝到当前缓冲区。
7.mark-whole-buffer
C-x h
8.set-buffer
将Emacs的注意力转移到另一个缓冲区，但是不改变显示的窗口。
9.get-buffer-create, get-buffer
寻找一个已指定名字的缓冲区，或当指定名字的缓冲区不存在时就创建它。


chapter5 更复杂的函数
5.1 copy-to-buffer函数的定义
(defun copy-to-buffer (buffer, start, end)
"...."
(interactive "BCopy to buffer:\nr")
(let ((oldbuf (current-buffer)))
 (save-excursion
   (set-buffer (get-buffer-create buffer))
   (erase-buffer)
   (save-excursion
     (insert-buffer-substring oldbuf start end)))))

5.2 insert-buffer函数的定义
(defun insert-buffer (buffer)
"Insert after point the contents of BUFFER.
Puts mark after the inserted text.
BUFFER may be a buffer or a buffer name."
 (interactive "*bInsert buffer:")
 (or (bufferp buffer))
   (setq buffer (get-buffer buffer))
 (let (start end newmark)
   (save-excursion
     (save-excursion
       (set-buffer buffer)
       (setq start (point-min) end (point-max)))
     (insert-buffer-substring buffer start end)
     (setq newmark (point)))
   (push-mark newmark)))

5.2.1 insert-buffer函数中的交互表达式
1.只读缓冲区
“*”用于缓冲区是一个只读缓冲区。
2.交互表达式中的“b”
传送给insert-buffer函数的参量应是一个存在的缓冲区或者这个缓冲区的名字。
大写的“B”可以允许参量传送不存在的缓存区。

5.2.2 insert-buffer 函数体
or表达式的目地是为了确保buffer参量真正与一个缓冲区绑定在一起，而不是绑定缓冲区的名字。

5.2.3 用if表达式（而不是or表达式）编写的insert-buffer函数
(if (not (bufferp buffer))                ;if-part
   (setq buffer (get-buffer buffer)))    ;then-part

5.2.4 函数体中的or表达式
一个or函数可以有很多参量。它逐一对每一个参量并返回第一个其值不是nil的参量的值。
一旦遇到其值不是nil的参量之后，or表达式就不再对后续的参量的求值。

5.2.5 insert-buffer 函数中的let表达式

5.3 biginning-of-buffer函数的完整定义
C-u 7 M-<  将光标移动到从缓冲区开始的这个缓冲区的70%处，如果大于10，则移到末尾。

(defun beginning-of-buffer (&optional arg)
 "Move point to the beginning of the buffer;
 leave mark at previous position.
 With arg N, put point N/10 of the way
 from the true beginning.
 Don't use this in Lisp programs!
 \(goto-char (point-min)) is faster
 and does not set the mark."
 (interactive "P")
 (push-mark)
 (goto-char
   (if arg
     (if  (> (buffer-size) 10000)
        ;;Avoid overflow for large buffer sizes!
        (* (prefix-numeric-value arg) (/ (buffer-size) 10))
        (/ (+ 10 (* (buffer-size) (prefix-numeric-value arg))) 10))
     (point-min)))
 (if arg (forward-line 1)))

5.4 回顾
1.or
逐一对每一个参量求值，直到返回第一个非空值。
2.and
逐一对每一个参量求值，直到有一个参量的值是nil
3.&optional
在函数定义中用于指出一个参量是可选参量。
4.prefix-numeric-value
将一个由(interactive "P")产生的未加工的前缀参量转换成一个数值。
5.forward-line
将光标移到下一行的行首，如果参数大于1，则移动多行。
6.erase-buffer
删除当前缓冲区的全部内容
7.bufferp
如果其参量是一个缓冲区则返回“真”，否则返回“假”。

chapter 6 变窄和曾宽
6.1 save-restriction特殊表
跟踪变窄开启的部分。
(save-restriction
body....)

(save-excursion
(save-restriction
body...))
如果需要同时使用，顺序不能错。

6.2 what-line函数
这个函数告诉你光标所在的行数。
(defun what-line ()
 "Print the current line number (in the buffer) of point."
 (interactive)
 (save-restriction
   (widen)
   (save-recursion
     (beginning-of-line)
     (message "Line %d" (1+(count-lines 1 (point)))))))


增补：
C-x n n
   Narrow down to between point and mark (narrow-to-region).
C-x n w
   Widen to make the entire buffer accessible again (widen).
C-x n p
   Narrow down to the current page (narrow-to-page).
C-x n d
   Narrow down to the current defun (narrow-to-defun).