emacs-diffs
[Top][All Lists]
Advanced

[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)


reply via email to

[Prev in Thread] Current Thread [Next in Thread]