[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master badbfd57cda: * lisp/emacs-lisp/backtrace.el (backtrace--change-bu
|
From: |
Stefan Monnier |
|
Subject: |
master badbfd57cda: * lisp/emacs-lisp/backtrace.el (backtrace--change-button-skip): Typo) |
|
Date: |
Thu, 13 Jul 2023 21:52:12 -0400 (EDT) |
branch: master
commit badbfd57cdaf9ea22aa9b64ff6bdc55da18b864c
Author: Stefan Monnier <monnier@iro.umontreal.ca>
Commit: Stefan Monnier <monnier@iro.umontreal.ca>
* 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)))))
| [Prev in Thread] |
Current Thread |
[Next in Thread] |
- master badbfd57cda: * lisp/emacs-lisp/backtrace.el (backtrace--change-button-skip): Typo),
Stefan Monnier <=