[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/trunk r111671: ert--explain-format-atom fix
From: |
Glenn Morris |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/trunk r111671: ert--explain-format-atom fix for non-characters |
Date: |
Sun, 03 Feb 2013 23:46:22 -0800 |
User-agent: |
Bazaar (2.5.0) |
------------------------------------------------------------
revno: 111671
fixes bug: http://debbugs.gnu.org/13543
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Sun 2013-02-03 23:46:22 -0800
message:
ert--explain-format-atom fix for non-characters
* lisp/emacs-lisp/ert.el (ert--explain-format-atom):
Don't try to print non-characters as characters.
modified:
lisp/ChangeLog
lisp/emacs-lisp/ert.el
=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog 2013-02-03 16:49:37 +0000
+++ b/lisp/ChangeLog 2013-02-04 07:46:22 +0000
@@ -1,3 +1,8 @@
+2013-02-04 Glenn Morris <address@hidden>
+
+ * emacs-lisp/ert.el (ert--explain-format-atom):
+ Don't try to print non-characters as characters. (Bug#13543)
+
2013-02-03 Michael Albinus <address@hidden>
* net/tramp.el (tramp-debug-message): Extend function exclude list.
=== modified file 'lisp/emacs-lisp/ert.el'
--- a/lisp/emacs-lisp/ert.el 2013-01-11 10:40:54 +0000
+++ b/lisp/emacs-lisp/ert.el 2013-02-04 07:46:22 +0000
@@ -568,7 +568,8 @@
(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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/trunk r111671: ert--explain-format-atom fix for non-characters,
Glenn Morris <=