有关 Emacs 使用技巧的内容请在这个帖子讨论。

retuor

elisp 推广：

用 elisp 来处理这个问题:

http://bbs.chinaunix.net/thread-1253307-1-1.html

1. 
   
2. (setq h (make-hash-table))
   
3. (mapcar (lambda (x) (puthash (expt 2 x) x h))
   
4.           (number-sequence 0 7))
   
5. 
   
6. (gethash 8 h)
   

复制代码

projoy

我想下一个最新的emacs，可是每次去cvs里面都是显示几个月前更新的，怎么找到几周前更新的？
我找的CVS地址如下
http://cvs.savannah.gnu.org/view ... rev=emacs-unicode-2
截图

retuor

python 版的这个帖

[ 删除重复行]

想用 emacs 来做，没找到现成的函数。自己写了一个：

1. 
   
2. (defun unique (bufname)
   
3.   (interactive "b")
   
4.   (let ((buf (get-buffer bufname))
   
5.         (h (make-hash-table :test 'equal))
   
6.         (new (get-buffer-create "*new*")))
   
7.     (set-buffer new)
   
8.     (delete-region (point-min) (point-max))
   
9.     (set-buffer buf)
   
10.     (goto-char (point-min))
    
11.     (let ((f (lambda (x y)
    
12.                (if (not (eobp))
    
13.                    (progn
    
14.                      (let* ((s (point-at-bol))
    
15.                             (e (point-at-eol))
    
16.                             (l (buffer-substring s e)))
    
17.                        (if (gethash l h)
    
18.                            (next-line)
    
19.                          (progn
    
20.                            (puthash l t h)
    
21.                            (princ (concat l "\n") y)
    
22.                            (next-line)))
    
23.                        (funcall f x y)))))))
    
24.           (funcall f buf new)
    
25.           (switch-to-buffer new))))
    

复制代码

大意是用一个函数 f 按行遍历一个 buf，把读入的行与 hash 表中的比较。如果在其中，就换到下一行；如果不在其中，就把此行放入 hash 表，然后在 *new* buffer 中输出此行。

这段代码写得不好，请给点修改意见。

retuor

稍微修改了一下，直接改动指定 buf ，这样更 emacs 一点。

1. 
   
2. (defun unique (bufname)
   
3.   (interactive "b")
   
4.   (let ((buf (get-buffer bufname))
   
5.         (h (make-hash-table :test 'equal)))
   
6.     (set-buffer buf)
   
7.     (goto-char (point-min))
   
8.     (let ((f (lambda (x)
   
9.                (if (not (eobp))
   
10.                    (progn
    
11.                      (let* ((s (point-at-bol))
    
12.                             (e (point-at-eol))
    
13.                             (l (buffer-substring s e)))
    
14.                        (if (gethash l h)
    
15.                            (progn
    
16.                              (kill-region s e) (kill-line))
    
17.                          (progn
    
18.                            (puthash l t h)
    
19.                            (next-line)))
    
20.                        (funcall f x)))))))
    
21.           (funcall f buf))))
    

复制代码

只有在空行的情况下， kill-line 才删除换行符号。有没有一次到位，连内容带换行都删掉的？

retuor

不用递归，往代码里加点糖，

1. 
   
2. (defun unique (bufname)
   
3.   (interactive "b")
   
4.   (let ((buf (get-buffer bufname))
   
5.         (h (make-hash-table :test 'equal)))
   
6.     (set-buffer buf)
   
7.     (goto-char (point-min))
   
8.     (while (not (eobp))
   
9.       (let ((l (buffer-substring (point-at-bol) (point-at-eol))))
   
10.         (if (gethash l h) (progn (kill-line) (kill-line))
    
11.           (progn (puthash l t h) (next-line)))))))
    

复制代码

[ 本帖最后由 retuor 于 2008-8-27 17:06 编辑 ]

doonething

emacs虽然不会煮饭，但是会很调皮的给你庆祝生日。
搜遍了英文的文档也没找到，最后用ctrl+x 3 两个窗口，
然后用 M+x ,然后用ctrl+x o 切换到tab之后列表的窗口，
最后用ctrl+s，用模糊匹配找到了，命令。大家可以用以下步骤：
1  M-x animate-birthday-present   
2  Name (default Sarah): zhou____
结果是一些闪烁的字母，拼凑成一段话，如下：





                                                       Happy Birthday,
                                                          zhou____


                              You are my sunshine,
                              My only sunshine.
                              I'm awful sad that
                              You've moved away.

                              Let's talk together
                              And love more deeply.
                              Please bring back
                                  my sunshine
                                  to stay!
ps:我的机器没办法抓图。
不然看一眼就明白了。

30003000

外国大牛都是拿30几寸的大显示器来CODE，，，嘿嘿

nhuczp

哪位有没有试过copy啊??

emacs copy 很麻烦

lgfang

原帖由 nhuczp 于 2008-9-21 23:00 发表
哪位有没有试过copy啊??

emacs copy 很麻烦

什么意思？copy、paste？编辑文本哪离得开这个？

问题能否说详细点？