diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2021-11-07 23:45:14 +0100 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2021-11-07 23:45:14 +0100 |
| commit | 67276f3403588718a11441ef5a43989b3f3d1cb7 (patch) | |
| tree | be87eff51119503e4a1147b00a9a7250e636d345 /lisp/emacs-lisp/ert.el | |
| parent | 9e34efb29a72d0f9a7074a4066c16dd5c1381115 (diff) | |
| download | emacs-67276f3403588718a11441ef5a43989b3f3d1cb7.tar.gz emacs-67276f3403588718a11441ef5a43989b3f3d1cb7.tar.bz2 emacs-67276f3403588718a11441ef5a43989b3f3d1cb7.zip | |
Make debugging ert--erts-specifications easier
* lisp/emacs-lisp/ert.el (ert--erts-specifications): Strip text
properties from specs to make debugging easier.
Diffstat (limited to 'lisp/emacs-lisp/ert.el')
| -rw-r--r-- | lisp/emacs-lisp/ert.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/ert.el b/lisp/emacs-lisp/ert.el index aff38040271..8ebc81fd418 100644 --- a/lisp/emacs-lisp/ert.el +++ b/lisp/emacs-lisp/ert.el @@ -2759,7 +2759,7 @@ TRANSFORM will be called to get from before to after." (while (looking-at "[ \t]+\\(.*\\)") (setq value (concat value (match-string 1))) (forward-line 1)) - (push (cons name value) specs)) + (push (cons name (substring-no-properties value)) specs)) (forward-line 1))) (nreverse specs)))) |