diff options
| -rw-r--r-- | lisp/emacs-lisp/backtrace.el | 4 |
1 files 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." | |||
| 413 | (overlay-put o 'evaporate t)))) | 413 | (overlay-put o 'evaporate t)))) |
| 414 | 414 | ||
| 415 | (defun backtrace--change-button-skip (beg end value) | 415 | (defun backtrace--change-button-skip (beg end value) |
| 416 | "Change the skip property on all buttons between BEG and END. | 416 | "Change the `skip' property on all buttons between BEG and END. |
| 417 | Set it to VALUE unless the button is a `cl-print-ellipsis' button." | 417 | Set it to VALUE unless the button is a `cl-print-ellipsis' button." |
| 418 | (let ((inhibit-read-only t)) | 418 | (let ((inhibit-read-only t)) |
| 419 | (setq beg (next-button beg)) | 419 | (setq beg (next-button beg)) |
| 420 | (while (and beg (< beg end)) | 420 | (while (and beg (< beg end)) |
| 421 | (unless (eq (button-type beg) cl-print-ellipsis) | 421 | (unless (eq (button-type beg) 'cl-print-ellipsis) |
| 422 | (button-put beg 'skip value)) | 422 | (button-put beg 'skip value)) |
| 423 | (setq beg (next-button beg))))) | 423 | (setq beg (next-button beg))))) |
| 424 | 424 | ||