Inital 31.1 changes
This commit is contained in:
+2
-2
@@ -90,7 +90,7 @@ PROC and STR are described in `set-process-filter'."
|
||||
(concat (string-join errors "\n") "\n")))))
|
||||
(process-send-string proc "y\n")
|
||||
(process-send-string proc "n\n")))
|
||||
((string-match (rx bos "Error: " (group (+ any)) eol) line)
|
||||
((string-match (rx bos "Error: " (group (+ not-newline)) eol) line)
|
||||
(push (match-string 1 line) errors)))))
|
||||
(with-editor-process-filter proc str t))
|
||||
|
||||
@@ -178,7 +178,7 @@ The name is compared with the field name using TESTFN (defaults to `equal')."
|
||||
(when (and (message-point-in-header-p)
|
||||
(message-beginning-of-header t))
|
||||
(beginning-of-line)
|
||||
(when (and (looking-at (rx bol (group (+? any)) ":" (? " ")))
|
||||
(when (and (looking-at (rx bol (group (+? not-newline)) ":" (? " ")))
|
||||
(funcall (or testfn 'equal) (match-string 1) name))
|
||||
(match-end 0)))))
|
||||
|
||||
|
||||
Reference in New Issue
Block a user