mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-26 07:11:34 -08:00
Code Issues Projects Releases Wiki Activity

ert--explain-format-atom fix for non-characters

Browse source 
* lisp/emacs-lisp/ert.el (ert--explain-format-atom):
Don't try to print non-characters as characters.

Fixes: debbugs:13543
This commit is contained in:
Glenn Morris 2013-02-03 23:46:22 -08:00
parent 69d52b98fc
commit 84a06b500f
2 changed files with 7 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -1,3 +1,8 @@
2013-02-04 Glenn Morris <rgm@gnu.org>
* emacs-lisp/ert.el (ert--explain-format-atom):
Don't try to print non-characters as characters. (Bug#13543)
2013-02-03 Michael Albinus <michael.albinus@gmx.de>
* net/tramp.el (tramp-debug-message): Extend function exclude list.

3
lisp/emacs-lisp/ert.el
View file

@ -568,7 +568,8 @@ failed."
(defun ert--explain-format-atom (x)
"Format the atom X for `ert--explain-equal'."
(cl-typecase x
(fixnum (list x (format "#x%x" x) (format "?%c" x)))
(character (list x (format "#x%x" x) (format "?%c" x)))
(fixnum (list x (format "#x%x" x)))
(t x)))
(defun ert--explain-equal-rec (a b)