Re: A strange issue with buffer-undo-list

[Stefan Monnier]

> (defun activate-change-group (handle)
>   "Activate a change group made with `prepare-change-group' (which see)."
>   (dolist (elt handle)
>     (with-current-buffer (car elt)
>       (if (eq buffer-undo-list t)
>         (setq buffer-undo-list nil)
>       ;; [huge comment here]
>         (when (numberp (caar buffer-undo-list)) ;; <--- here
>           (push (cons (caar buffer-undo-list) (caar buffer-undo-list))
>                 buffer-undo-list))))))
>
> I guess that `caar' should be (car-safe (car buffer-undo-list)) or so -
> right?

Yup!


        Stefan