大家可能注意到用阅读器读取rss的时候代码看不清(没有背景色的缘故),所以修改了一下代码的输出:

添加两个函数来插入代码:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
(defun i-babel-quote (beg end str1 str2)
(goto-char end)
(forward-line 1)
(insert str2)
(newline)
(goto-char beg)
(forward-line -1)
(newline)
(insert str1)
)


(defun isrc (St Ed)
"Enclose code for Emacser.cn"
(interactive "r")
(let ((beg St) (end Ed))
(message "%s %s" beg end)
(i-babel-quote beg end

知识共享授权条款
本著作Chen, Zai-Chun制作,以知识共享 姓名标示-相同方式分享 4.0 国际 授权条款释出

留言

Nov 2 2011