Commit b15e6e45 authored by Glenn Morris's avatar Glenn Morris

Merge from origin/emacs-26

f721084f (origin/emacs-26) Avoid errors in erc-dcc.el when erc-dcc-ver...
3cba92d4 Fix faces in compilation messages
parents 613f9740 f721084f
Pipeline #778 failed with stage
in 51 minutes and 19 seconds
......@@ -979,17 +979,20 @@ rather than every 1024 byte block, but nobody seems to care."
(let ((inhibit-read-only t)
(goto-char (point-max))
(insert (string-make-unibyte str))
(if str
(insert (string-make-unibyte str)))
(when (> (point-max) erc-dcc-receive-cache)
(erc-dcc-append-contents (current-buffer) erc-dcc-file-name))
(setq received-bytes (+ (buffer-size) erc-dcc-byte-count))
(setq received-bytes (buffer-size))
(if erc-dcc-byte-count
(setq received-bytes (+ received-bytes erc-dcc-byte-count)))
(and erc-dcc-verbose
nil 'notice erc-server-process
?f (file-name-nondirectory buffer-file-name)
?f (file-name-nondirectory (buffer-name))
?b (number-to-string received-bytes)))
((and (> (plist-get erc-dcc-entry-data :size) 0)
......@@ -997,7 +1000,7 @@ rather than every 1024 byte block, but nobody seems to care."
nil '(notice error) 'active
?f (file-name-nondirectory buffer-file-name))
?f (file-name-nondirectory (buffer-name)))
(delete-process proc))
......@@ -1401,17 +1401,17 @@ to `compilation-error-regexp-alist' if RULES is nil."
file line end-line col end-col (or type 2) fmt))
(when (integerp file)
(setq type (if (consp type)
(compilation-type type)
(or type 2)))
(compilation--note-type type)
file 'font-lock-face
(symbol-value (aref [compilation-info-face
(let ((this-type (if (consp type)
(compilation-type type)
(or type 2))))
(compilation--note-type type)
file 'font-lock-face
(symbol-value (aref [compilation-info-face
line 'font-lock-face compilation-line-face)
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment