In Emacs, wie eine Regexp am Ende des Puffers zutreffen

Question

In einem Text-Puffer möchte ich überprüfen, ob eine Datei mit der Zeichenfolge "abc" gefolgt nur von null bis zwei Zeilenumbrüche (und dann löschen diese Endzeichen) .

So brauche ich so etwas wie looking-at-backwards oder ich möchte am Ende der Datei (nicht am Ende der Zeile) übereinstimmen. Was ist ein einfacher Weg, dies zu erreichen?

Answer 1

looking-back ist die Funktion, die Sie suchen, passen rückwärts

Verwenden der allgemeinen Postifx Operator \{m,n\} für bis zu 2 Zeilenumbrüche:

(save-excursion 
    (goto-char (point-max)) 
    (when (looking-back "^abc\n\\{,2\\}") 
    (delete-region (match-beginning 0) (match-end 0)))) 

Answer 2

Was Sie beschreiben, fordert nicht, was normalerweise eine Regexp Suche in Emacs genannt wird. Es fordert die Übereinstimmung eines Regexp am Ende des Puffers (eob). Ich habe den Titel und den Text Ihrer Frage entsprechend bearbeitet.

Dafür müssen Sie nur vorübergehend zum Ende des Puffers wechseln und looking-back verwenden, um nach einem regulären Ausdruck zu suchen.

(defun delete-abc-SPC-<-3-newlines() 
    "Delete `abc ' followed by up to 2 newlines at eob." 
    (interactive) 
    (let ((ends-w-<-3-newlines nil)) 
    (save-excursion 
     (goto-char (point-max)) 
     (setq ends-w-<-3-newlines (looking-back "abc \n?\n?\n?"))) 
    (when ends-w-<-3-newlines 
     (delete-region (match-beginning 0) (match-end 0))))) 

Wenn Sie den Puffer nicht neu dann diese verwenden geändert berücksichtigt werden:

(defun delete-abc-SPC-<-3-newlines() 
    "Delete `abc ' followed by up to 2 newlines at eob." 
    (interactive) 
    (let ((ends-w-<-3-newlines nil) 
     (mod-buf    (buffer-modified-p))) 
    (save-excursion 
     (goto-char (point-max)) 
     (setq ends-w-<-3-newlines (looking-back "abc \n?\n?\n?"))) 
    (when ends-w-<-3-newlines 
     (delete-region (match-beginning 0) (match-end 0))) 
    (set-buffer-modified-p mod-buf)))