131 |
;;;###autoload |
;;;###autoload |
132 |
(defvar warning-series nil |
(defvar warning-series nil |
133 |
"Non-nil means treat multiple `display-warning' calls as a series. |
"Non-nil means treat multiple `display-warning' calls as a series. |
134 |
An integer is a position in the warnings buffer |
A marker indicates a position in the warnings buffer |
135 |
which is the start of the current series. |
which is the start of the current series; it means that |
136 |
t means the next warning begins a series (and stores an integer here). |
additional warnings in the same buffer should not move point. |
137 |
|
t means the next warning begins a series (and stores a marker here). |
138 |
A symbol with a function definition is like t, except |
A symbol with a function definition is like t, except |
139 |
also call that function before the next warning.") |
also call that function before the next warning.") |
140 |
(put 'warning-series 'risky-local-variable t) |
(put 'warning-series 'risky-local-variable t) |
228 |
(goto-char (point-max)) |
(goto-char (point-max)) |
229 |
(when (and warning-series (symbolp warning-series)) |
(when (and warning-series (symbolp warning-series)) |
230 |
(setq warning-series |
(setq warning-series |
231 |
(prog1 (point) |
(prog1 (point-marker) |
232 |
(unless (eq warning-series t) |
(unless (eq warning-series t) |
233 |
(funcall warning-series))))) |
(funcall warning-series))))) |
234 |
(unless (bolp) |
(unless (bolp) |
246 |
(fill-column 78)) |
(fill-column 78)) |
247 |
(fill-region start (point)))) |
(fill-region start (point)))) |
248 |
(setq end (point)) |
(setq end (point)) |
249 |
(when warning-series |
(when (and (markerp warning-series) |
250 |
|
(eq (marker-buffer warning-series) buffer)) |
251 |
(goto-char warning-series))) |
(goto-char warning-series))) |
252 |
(if (nth 2 level-info) |
(if (nth 2 level-info) |
253 |
(funcall (nth 2 level-info))) |
(funcall (nth 2 level-info))) |
264 |
(warning-numeric-level warning-minimum-level)) |
(warning-numeric-level warning-minimum-level)) |
265 |
(warning-suppress-p group warning-suppress-types) |
(warning-suppress-p group warning-suppress-types) |
266 |
(let ((window (display-buffer buffer))) |
(let ((window (display-buffer buffer))) |
267 |
(when warning-series |
(when (and (markerp warning-series) |
268 |
|
(eq (marker-buffer warning-series) buffer)) |
269 |
(set-window-start window warning-series)) |
(set-window-start window warning-series)) |
270 |
(sit-for 0))))))) |
(sit-for 0))))))) |
271 |
|
|