В emacs, как совместить регулярное выражение в конце буфера

Question

В текстовом буфере я хочу проверить, заканчивается ли файл с помощью строки «abc», за которым следует только от нуля до двух строк (а затем удалять конечные символы) ,

Мне нужно что-то вроде looking-at-backwards или я хочу совместить в конце файла (а не в конце строки). Какой простой способ достичь этого?

Answer 1

looking-back это функция, которую вы ищете, чтобы соответствовать задом

использовать общий оператор postifx к \{m,n\} в соответствии с 2 строками новой строки:

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

Answer 2

То, что вы описали, не требует для того, что обычно называется регулярным выражением поиск в Emacs. Он вызывает сопоставление регулярного выражения в конце буфера (eob). Я отредактировал название вопроса и текст соответственно.

Для этого вы просто временно переходите к концу буфера и используете looking-back, чтобы проверить соответствие регулярного выражения.

(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))))) 

Если вы хотите, чтобы буфер не будет рассматриваться вновь модифицирована затем использовать это:

(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)))