|
|
发表于 2004-7-28 19:20:46
|
显示全部楼层
最初由 WhereToGo 发表
还有一个问题就是,输入时,一行到头了它会自动下到下一行,那们我使用上下箭头移动时这两行就看成一行了,上下箭头直接跳过去了,除非每次到了一排的最后回车换行,上下箭头才会一排一排的走,
有没有这种实现,就是还是自动换行,但用上下箭头时一排一排的走/?? 我给你写了一个,你试试
[PHP]
(defun my-next-line (&optional line)
"next-line over continuation lines"
(interactive "p")
(let ((oldpoint (point))
fromstarttopoint)
(vertical-motion 0)
(setq fromstarttopoint (- oldpoint (point)))
(vertical-motion line)
(save-excursion
(vertical-motion 0)
(if (< (- (line-end-position) (point)) fromstarttopoint)
(setq fromstarttopoint (- (line-end-position) (point)))))
(forward-char fromstarttopoint)))
(defun my-previous-line (&optional line)
"previous-line over continuation lines"
(interactive "p")
(my-next-line (- 0 line)))
[/PHP]
加入.emacs中并且绑定就可以了。
(global-set-key [?\s-n] 'my-next-line)
(global-set-key [?\s-p] 'my-previous-line)
这样绑到Win-n和Win-p。 |
|