Stoppen Sie am Anfang eines Wortes auf "Vorwärtswort"

Ich verwende oft mehrere Aufrufe von forward-wordgefolgt von einem einzelnen backward-word, um den Punkt an den Anfang eines Wortes in einer Zeile zu verschieben. Ich glaube, ich habe mich nie daran gewöhnt, wie forward-wordsich Vims unterscheiden, wund selbst nach Jahren mit Emacs kann ich mich nicht an den Unterschied gewöhnen.

Gibt es eine Funktion, die ich verwenden könnte, um forward-wordnicht über Wörter zu springen, sondern auch am Anfang eines Wortes anzuhalten? Gibt es andere Strategien, um an den Anfang eines Wortes zu springen, wenn Sie einen Punkt nach vorne bewegen, ohne wiederholt ausgeführt zu werden forward-char?

Das miscPaket (im Lieferumfang von Emacs enthalten) verfügt über die eingebaute Funktion forward-to-word, die genau das tut, was Sie sich wünschen:

forward-to-word is an interactive compiled Lisp function in `misc.el'.

It is bound to M-f.

(forward-to-word ARG)

Move forward until encountering the beginning of a word.
With argument, do this that many times.

Um es zu benutzen, füge es zuerst (require 'misc)deiner Konfigurationsdatei hinzu.

Sie können die folgende Funktion an M-fund das Original forward-wordan binden M-F. Diese Funktion übernimmt einfach die argund leitet sie an die forward-wordFunktion weiter. Die universellen Argumente funktionieren also genauso gut wie mit der ursprünglichen Funktion.

(defun modi/forward-word-begin (arg)
  "Move forward a word and end up with the point being at the beginning of the
next word.  Move point forward ARG words (backward if ARG is negative).
If ARG is omitted or nil, move point forward one word."
  (interactive "p")
  (forward-word arg)
  (forward-word 1)
  (backward-word 1))

Achtung, obgleich die oben genannte Funktion möglicherweise nicht immer das Richtige tut . es hängt sehr davon ab, ob sich der Punkt bereits am Anfang eines Wortes befindet oder nicht.

Hier ist eine andere Art und Weise der Umsetzung von oben , wo das Wort Grenze ist nicht gemäß der Syntaxtabelle aber streng auf Leerzeichen Trennung:

(defun modi/forward-word-begin (arg)
  "Move forward ARG (defaults to 1) number of words.
Here 'words' are defined as characters separated by whitespace."
  (interactive "p")
  (dotimes (_ arg)
    (forward-whitespace 1)))

Kredit geht an @glucas für diese Idee.

Nach einer langen und schmerzhaften Suche nach den perfekten 'Vorwärts / Rückwärts-Wort'-Funktionen habe ich folgendes gefunden, mit dem ich jetzt sehr zufrieden bin:

(progn
  (defun boundary ()
    (and      (= (char-syntax (char-after))  ?w)
         (not (= (char-syntax (char-before)) ?w))))
  (defun my-forward-word ()
    (interactive) 
    (while (progn (forward-char)  (not (boundary)))))
  (defun my-backward-word ()
    (interactive) 
    (while (progn (backward-char) (not (boundary)))))
  (global-set-key [M-right] 'my-forward-word)
  (global-set-key [M-left]  'my-backward-word)
  )

Wenn Sie bereit sind evil, wim normalen Zustand zu verwenden evil-forward-word-begin, ist das die Vim-artige Funktionalität, die Sie suchen.

Ich verwende oft mehrere Aufrufe des Vorwärtsworts, gefolgt von einem einzelnen Rückwärtswort, um den Punkt an den Anfang eines Wortes in einer Zeile zu verschieben.

Wie Sie bereits erwähnt haben, besteht der Trick darin, zwei Wörter vorwärts und dann ein Wort rückwärts zu gehen.

Das Folgende sollte den Trick machen und andere Modi wie den Subword-Modus respektieren.

(define-key global-map (kbd  "M-f")
  (lambda ()
    (interactive)
    (forward-word)
    (forward-word)
    (backward-word)))

Dies ist eine rudimentäre Version von /emacs//a/4272/508 , die einige Fälle nicht abdeckt, aber einfacher zu verstehen ist.