From badbfd57cdaf9ea22aa9b64ff6bdc55da18b864c Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Thu, 13 Jul 2023 21:51:03 -0400 Subject: [PATCH] * lisp/emacs-lisp/backtrace.el (backtrace--change-button-skip): Typo) --- lisp/emacs-lisp/backtrace.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/emacs-lisp/backtrace.el b/lisp/emacs-lisp/backtrace.el index af06577fe56..1beeb523f08 100644 --- a/lisp/emacs-lisp/backtrace.el +++ b/lisp/emacs-lisp/backtrace.el @@ -413,12 +413,12 @@ the buffer." (overlay-put o 'evaporate t)))) (defun backtrace--change-button-skip (beg end value) - "Change the skip property on all buttons between BEG and END. + "Change the `skip' property on all buttons between BEG and END. Set it to VALUE unless the button is a `cl-print-ellipsis' button." (let ((inhibit-read-only t)) (setq beg (next-button beg)) (while (and beg (< beg end)) - (unless (eq (button-type beg) cl-print-ellipsis) + (unless (eq (button-type beg) 'cl-print-ellipsis) (button-put beg 'skip value)) (setq beg (next-button beg))))) -- 2.39.5