mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-06 06:20:55 -08:00
Code Issues Projects Releases Wiki Activity

(display-warning): If we create the buffer displaying the warning,

Browse source 
disable undo there.
This commit is contained in:
Glenn Morris 2007-03-31 19:41:46 +00:00
parent c581350323
commit 0eae9f3ba9
1 changed files with 10 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

13
lisp/emacs-lisp/warnings.el
View file

@ -218,8 +218,9 @@ Default is :warning.
but raise suspicion of a possible problem.
:debug -- info for debugging only.
BUFFER-NAME, if specified, is the name of the buffer for logging the
warning. By default, it is `*Warnings*'.
BUFFER-NAME, if specified, is the name of the buffer for logging
the warning. By default, it is `*Warnings*'. If this function
has to create the buffer, it disables undo in the buffer.
See the `warnings' custom group for user customization features.
@ -227,16 +228,22 @@ See also `warning-series', `warning-prefix-function' and
`warning-fill-prefix' for additional programming features."
(unless level
(setq level :warning))
(unless buffer-name
(setq buffer-name "*Warnings*"))
(if (assq level warning-level-aliases)
(setq level (cdr (assq level warning-level-aliases))))
(or (< (warning-numeric-level level)
(warning-numeric-level warning-minimum-log-level))
(warning-suppress-p type warning-suppress-log-types)
(let* ((typename (if (consp type) (car type) type))
(buffer (get-buffer-create (or buffer-name "*Warnings*")))
(old (get-buffer buffer-name))
(buffer (get-buffer-create buffer-name))
(level-info (assq level warning-levels))
start end)
(with-current-buffer buffer
;; If we created the buffer, disable undo.
(unless old
(setq buffer-undo-list t))
(goto-char (point-max))
(when (and warning-series (symbolp warning-series))
(setq warning-series