/[emacs]/emacs/lisp/warnings.el
ViewVC logotype

Diff of /emacs/lisp/warnings.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.7 by rms, Wed Aug 7 14:26:28 2002 UTC revision 1.8 by rms, Thu Aug 29 16:46:11 2002 UTC
# Line 131  the beginning of the warning.") Line 131  the beginning of the warning.")
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)
# Line 227  See also `warning-series', `warning-pref Line 228  See also `warning-series', `warning-pref
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)
# Line 245  See also `warning-series', `warning-pref Line 246  See also `warning-series', `warning-pref
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)))
# Line 262  See also `warning-series', `warning-pref Line 264  See also `warning-series', `warning-pref
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    

Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26