至顶网›软件频道 ›基础软件›emacs入门技巧：常用定制函数

emacs入门技巧：常用定制函数

扫一扫
分享文章到微信
扫一扫
关注官方公众号
至顶头条

下面解释一下常用emacs入门技巧：常用定制函数的几则技巧。

作者： g9 来源：CSDN 2008年2月12日

关键字：定制函数 Emacs

先说说怎么试用这些技巧。Emacs根本就是elisp的解释环境，碰巧实现了编辑器而已。所以和elisp的函数勾兑再容易不过。假设我们打开一个Emacs的缓冲：

现在c-x 2, 增加新的缓冲

接着c-x o, 把光标切换到新增的缓冲里：

再切换到*scratch*缓冲就行了。Emacs提供的*scratch*缓冲的缺省模式是elisp-mode，正适合我们做elisp的编辑和试验。输入命令c-x b, 再敲入scratch, 回车，就成了：

在*scratch*缓冲里输入代码后，m-x eval-buffer, 输入的代码就被装载运行。

下面是Babar提供的技巧：

加强搜索

Emacs下c-s对应渐进搜索。不过我们更多的时候需要搜索某种模式，所以用得最多的还是渐进式的正则表达式搜索。正则表达式搜索有个烦人的问题：搜索结束时光标不一定停留在匹配字串的开端。幸好这个问题容易解决：

(local-set-key [(control s)] 'isearch-forward-regexp)
(local-set-key [(control r)] 'isearch-backward-regexp)

;; Always end searches at the beginning of the matching expression.
(add-hook 'isearch-mode-end-hook 'custom-goto-match-beginning)

(defun custom-goto-match-beginning ()
"Use with isearch hook to end search at first char of match."
(when isearch-forward (goto-char isearch-other-end)))

头两行重新绑定标准搜索键c-s和c-r，把isearch换成regex-isearch。后面三行加入定制函数。关键的语句是(goto-char isearch-other-end)，保证光标停留在匹配字串的开头，而不是缺省的末尾。

自动完成

Emacs的hippie-expansion非常强大，可以帮我们自动完成很多重复输入。我用惯了Eclipse和Vim，所以把自动完成CTRL-Space绑定到自动完成，而把CTRL-ENTER绑定到CTRL-space缺省对应的set-mark了：

(global-set-key [(control space)] 'hippie-expand)
(global-set-key [(control return)] 'set-mark-command)

(require 'hippie-exp)
(setq hippie-expand-try-functions-list
        '(try-expand-dabbrev
             try-expand-dabbrev-all-buffers
               try-expand-dabbrev-from-kill
               try-complete-file-name-partially
               try-complete-file-name
               try-complete-lisp-symbol-partially
               try-complete-lisp-symbol
               try-expand-whole-kill))

括号自动完成

用Emacs的大部分时间都在编程。编程是少有遇到不配对的括号。既然如此，干嘛不让Emacs帮我们配对呢？下面的语句自动完成(, [, {, 和<。

(setq skeleton-pair t)
(local-set-key (kbd "[") 'skeleton-pair-insert-maybe)
(local-set-key (kbd "(") 'skeleton-pair-insert-maybe)
(local-set-key (kbd "{") 'skeleton-pair-insert-maybe)
(local-set-key (kbd "<") 'skeleton-pair-insert-maybe)

移动整行

这个功能是从苹果机里非常流行的编辑器TextMate学来的。在TextMate里，ALT-up会把光标所在的整行文字上移一行，而ALT-down会把光标所在的整行文字下移一行。这在调整语句顺序时非常有用。有了这个功能，我们可以和烦琐的“选中全行―》剪切－》移动鼠标－》换行－》粘贴”告别了。

(local-set-key [(meta up)] 'move-line-up)
(local-set-key [(meta down)] 'move-line-down)

(defun move-line (&optional n)
"Move current line N (1) lines up/down leaving point in place."
(interactive "p")
(when (null n)
    (setq n 1))
(let ((col (current-column)))
    (beginning-of-line)
    (next-line 1)
    (transpose-lines n)
    (previous-line 1)
    (forward-char col)))
(defun move-line-up (n)
"Moves current line N (1) lines up leaving point in place."
(interactive "p")
(move-line (if (null n) -1 (- n))))

(defun move-line-down (n)
"Moves current line N (1) lines down leaving point in place."
(interactive "p")
(move-line (if (null n) 1 n)))

换行对齐

这个看似简单功能太有用了！！！不知道省了多少无谓的光标移动。很多时候，我们修改了一行语句后，想立刻跳到下一行，并且光标自动移到正确缩进的位置。在普通的编辑器里，换行前光标得移动到行尾，然后我们再敲下ENTER。Vi里CTRL-o解决了这个问题，让我们在一行的任何地方换到下一行，自动缩进，而不用担心把上一行分成两半。而Emacs有了下面的配置，也就支持CTRL-o了。够强大吧？

(local-set-key [(control o)] 'vi-open-next-line)

(defun vi-open-next-line (arg)
"Move to the next line (like vi) and then opens a line."
(interactive "p")
(end-of-line)
(open-line arg)
(next-line 1)
(indent-according-to-mode))

括号匹配

也是从Vi来的酷功能。当光标在括号上是，输入%光标自动跳到匹配的另一个括号上。

(local-set-key "%" 'match-paren)
(defun match-paren (arg)
"Go to the matching parenthesis if on parenthesis otherwise insert %."
(interactive "p")
(cond ((looking-at "\\s\(") (forward-list 1) (backward-char 1))
((looking-at "\\s\)") (forward-char 1) (backward-list 1))
(t (self-insert-command (or arg 1)))))

拷贝当前行

很多时候我们想把光标所在的整行语句放到kill-ring(Windows下的剪贴板）里。但选取整行，CTRL-W还是太烦琐。SlickEdit里，如果没有任何区域被选中，COPY命令会自动拷贝光标所在的整行，CUT则剪取光标所在地整行。Emacs下可以这么做：

(defadvice kill-ring-save (before slickcopy activate compile)
"When called interactively with no active region, copy a single line instead."
(interactive
   (if mark-active (list (region-beginning) (region-end))
     (list (line-beginning-position)
   (line-beginning-position 2)))))

(defadvice kill-region (before slickcut activate compile)
"When called interactively with no active region, kill a single line instead."
(interactive
   (if mark-active (list (region-beginning) (region-end))
     (list (line-beginning-position)
   (line-beginning-position 2)))))

查看本文来源

emacs入门技巧：常用定制函数

VIP专区

VIP用户

普通用户

邮件订阅

如果您非常迫切的想了解IT领域最新产品与技术信息，那么订阅至顶网技术邮件将是您的最佳途径之一。

重磅专题

往期文章

emacs入门技巧：常用定制函数

业界热点: