diff options
| author | Stefan Monnier | 2023-07-13 21:51:03 -0400 |
|---|---|---|
| committer | Stefan Monnier | 2023-07-13 21:51:23 -0400 |
| commit | badbfd57cdaf9ea22aa9b64ff6bdc55da18b864c (patch) | |
| tree | f2925ebc2bfdc1c81c844ff861956bebe5058f4d | |
| parent | 2716dd13cedb41f677be6481414a9710dfcc1857 (diff) | |
| download | emacs-badbfd57cdaf9ea22aa9b64ff6bdc55da18b864c.tar.gz emacs-badbfd57cdaf9ea22aa9b64ff6bdc55da18b864c.zip | |
* lisp/emacs-lisp/backtrace.el (backtrace--change-button-skip): Typo)
| -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 | ||