Remove newline from erc-fill regexp
* lisp/erc/erc-fill.el (erc-fill): Remove newline from character
alternative in pattern for skipping past blank and whitespace-only
lines. It seems that as of e61a0398
"regex.c: Consolidate the two
analysis functions", Emacs no longer sees a newline-dollar sequence as
matching an empty line. Also lose `save-match-data', which doesn't
appear to serve any purpose here.
This commit is contained in:
parent
ad2bb3e9f3
commit
019baf2859
1 changed files with 2 additions and 3 deletions
|
@ -158,9 +158,8 @@ You can put this on `erc-insert-modify-hook' and/or `erc-send-modify-hook'."
|
|||
(when (or erc-fill--function erc-fill-function)
|
||||
;; skip initial empty lines
|
||||
(goto-char (point-min))
|
||||
(save-match-data
|
||||
(while (and (looking-at "[ \t\n]*$")
|
||||
(= (forward-line 1) 0))))
|
||||
(while (and (looking-at (rx bol (* (in " \t")) eol))
|
||||
(zerop (forward-line 1))))
|
||||
(unless (eobp)
|
||||
(save-restriction
|
||||
(narrow-to-region (point) (point-max))
|
||||
|
|
Loading…
Add table
Reference in a new issue