Emacs的智能家居

作者: 句号了哦哦
发布时间: 2024-04-18 01:21:59 (8天前)
转自：

7 条回复

0#
回复此人
Hey ou | 2019-08-31 10-32

<div class =“post-text”itemprop =“text”> <P> 这适用于GNU Emacs，我没有尝试使用XEmacs。 </p> <pre> <code> (defun My-smart-home () "Odd home to beginning of line, even home to beginning of text/code." (interactive) (if (and (eq last-command 'My-smart-home) (/= (line-beginning-position) (point))) (beginning-of-line) (beginning-of-line-text)) ) (global-set-key [home] 'My-smart-home) </code> </pre> </DIV>

编辑
1#
回复此人
你咖喱人biss嗷 | 2019-08-31 10-32

<div class =“post-text”itemprop =“text”> <P> 现在有一个包可以做到这一点， <a href="https://github.com/alezost/mwim.el" rel="nofollow"> <code> mwim </code> </A> （移动我的意思） </p> </DIV>

编辑
2#
回复此人
时间 | 2019-08-31 10-32

<div class =“post-text”itemprop =“text”> <P> 感谢这个方便的功能。我现在一直使用它并喜欢它。我做了一个小改动：（互动）变为：（互动“^”） </p> <P> 来自emacs帮助：如果字符串以。开头 <code> ^' and </code> shift-select-mode'是非零的，Emacs首先调用函数`handle-shift-select'。 </p> <P> 基本上，如果使用shift-select-mode，这会使shift-home从当前位置选择到行的开头。它在迷你缓冲器中特别有用。 </p> </DIV>

编辑
3#
回复此人
猫南北 | 2019-08-31 10-32

<div class =“post-text”itemprop =“text”> <pre> <code> (defun smart-beginning-of-line () "Move point to first non-whitespace character or beginning-of-line. Move point to the first non-whitespace character on this line. If point was already at that position, move point to beginning of line." (interactive "^") ; Use (interactive) in Emacs 22 or older (let ((oldpos (point))) (back-to-indentation) (and (= oldpos (point)) (beginning-of-line)))) (global-set-key [home] 'smart-beginning-of-line) </code> </pre> <P> 我不太确定聪明的结局会做什么。你通常有很多尾随空格吗？ </p> <P> 的<strong> 注意： </强> 这个函数和Robert Vukovi之间的主要区别在于，即使光标已经存在，他总是会移动到第一个按键上的第一个非空白字符。在这种情况下，我将移至第0列。 </p> <P> 而且，他用过 <code> (beginning-of-line-text) </code> 我用过的地方 <code> (back-to-indentation) </code> 。这些非常相似，但它们之间存在一些差异。 <code> (back-to-indentation) </code> 始终移动到一行上的第一个非空白字符。 <code> (beginning-of-line-text) </code> 有时会移动它认为无关紧要的非空白字符。例如，在仅注释行上，它移动到注释文本的第一个字符，而不是注释标记。但是，根据您喜欢的行为，可以在我们的任何一个答案中使用任一函数。 </p> </DIV>

编辑
4#
回复此人
一号位 | 2019-08-31 10-32

<div class =“post-text”itemprop =“text”> <P> 请注意，已经有一个返回缩进功能，可以执行您希望第一个智能家庭功能执行的操作，即转到该行上的第一个非空白字符。它默认绑定到M-m。 </p> </DIV>

编辑
5#
回复此人
威斯特 | 2019-08-31 10-32

<div class =“post-text”itemprop =“text”> <P> 我改编@Vucovic代码跳转到 <code> beggining-of-line </code> 第一： </p> <pre> <code> (defun my-smart-beginning-of-line () "Move point to beginning-of-line. If repeat command it cycle position between `back-to-indentation' and `beginning-of-line'." (interactive "^") (if (and (eq last-command 'my-smart-beginning-of-line) (= (line-beginning-position) (point))) (back-to-indentation) (beginning-of-line))) (global-set-key [home] 'my-smart-beginning-of-line) </code> </pre> </DIV>

编辑

登录后才能参与评论