Bewegen Sie sich weiter bis zum Ende der Zeilen

Die Standardeinstellung für die Schlüsselbindung C-a/C-eist nur für eine Sache: Verschieben Sie zum Anfang / Ende der Zeile. Gibt es ein Paket, das Emacs dazu bringen kann, sich so zu verhalten:

1. Wenn ich nicht am Ende einer Zeile bin, C-egehe ich zum Ende der Zeile, andernfalls gehe ich zum Ende der nächsten Zeile
2. Wenn ich nicht am Anfang einer Zeile bin, C-agehe ich zum Anfang der Zeile, andernfalls gehe ich zum Anfang der nächsten Zeile.

Der Punkt ist, dass Sie einfach weiter schlagen können C-a/e, um zum Anfang / Ende jeder Linie zu gelangen, ohne Ihren Finger zu bewegen, um zu erreichen C-n/p.

Und mit einem Präfix ( C-u) gehen sie in entgegengesetzter Richtung zum Anfang / Ende der Zeile.

Ich kenne kein Paket, das dieses Verhalten ermöglichen würde, aber hier ist eine Möglichkeit, dies zu tun.

Drücken Sie, C-h k C-aum herauszufinden, dass dies C-agebunden ist move-beginning-of-line. Dies ist die Funktion, die wir ändern müssen --- oder nur verwenden, um den Teil "Zum Anfang bewegen" zu implementieren. Ebenso kann C-h kich mit finden forward-line, welche verwendet werden, um sich auf / ab zu bewegen.

Um eine Funktion an einen Schlüssel binden zu können, müssen wir sie zu einem Befehl machen , daher müssen wir das interactivespezielle Formular verwenden (siehe Verwenden von Interactive ). Um das C-uPräfixargument zu verwenden, benötigen wir das "P"Codezeichen.

Wenn wir dies kombinieren mit bolp(prüfen, ob am Anfang einer Zeile) und eolp(prüfen, ob am Ende einer Zeile), können wir schreiben:

(defun my-move-beginning-of-line (arg)
  (interactive "P")
  (when (bolp) (previous-line (if arg -1 1)))
  (move-beginning-of-line nil))

(defun my-move-end-of-line (arg)
  (interactive "P")
  (when (eolp) (forward-line (if arg -1 1)))
  (move-end-of-line nil))

Jetzt können wir diese neu binden C-aund C-eaufrufen:

(global-set-key [remap move-beginning-of-line] #'my-move-beginning-of-line)
(global-set-key [remap move-end-of-line] #'my-move-end-of-line)

Alternativ könnte man Ratschläge zu move-beginning-of-lineund hinzufügenmove-end-of-line .

Bibliothek misc-cmds.elhat diese Funktion schon lange.

Dies sind die relevanten Befehle und vorgeschlagenen Tastenkombinationen (diese Bindungen werden in hergestellt setup-keys.el).

(cond ((fboundp 'move-beginning-of-line)
       (substitute-key-definition 'move-beginning-of-line 'beginning-of-line+ global-map)
       (substitute-key-definition 'move-end-of-line 'end-of-line+ global-map))
      (t
       (substitute-key-definition 'beginning-of-line 'beginning-of-line+ global-map)
       (substitute-key-definition 'end-of-line 'end-of-line+ global-map)))
(when (boundp 'visual-line-mode-map)
  (define-key visual-line-mode-map [remap move-beginning-of-line] nil)
  (define-key visual-line-mode-map [remap move-end-of-line]       nil)
  (define-key visual-line-mode-map [home] 'beginning-of-line+)
  (define-key visual-line-mode-map [end]  'end-of-line+)
  (define-key visual-line-mode-map "\C-a" 'beginning-of-visual-line+)
  (define-key visual-line-mode-map "\C-e" 'end-of-visual-line+)))

Hier ist, was C-h f end-of-line+als ein Beispiel sagt:

end-of-line+ is an interactive compiled Lisp function in
`misc-cmds.el'.

It is bound to C-e, end.

(end-of-line+ &optional N)

Move cursor to end of current line or end of next line if repeated.
This is similar to `end-of-line', but:
  If called interactively with no prefix arg:
     If the previous command was also `end-of-line+', then move to the
     end of the next line.  Else, move to the end of the current line.
  Otherwise, move to the end of the Nth next line (Nth previous line
     if N<0).  Command `end-of-line', by contrast, moves to the end of
     the (N-1)th next line.

Die folgenden zwei Funktionen führen die gewünschten Aktionen aus.

(defun move-beginning-of-line-or-previous (&optional pre)
  "Move to the start of the line. If we are already at the start
of the line, move to the start of the previous line or, if called 
with a prefix argument, the next line."
  (interactive "P")
  (let* ((pos (point)))
    (move-beginning-of-line nil)
    (if (= (point) pos)
        (if pre
            (next-line)
          (previous-line)))))

(defun move-end-of-line-or-next (&optional pre)
  "Move to the end of the line. If we are already at the end of
the line, move to the end of the next line or, if called with a 
prefix argument, the previous line."
  (interactive "P")
  (let* ((pos (point)))
    (move-end-of-line nil)
    (if (= (point) pos)
        (if pre
            (previous-line)
          (next-line)))))