# HG changeset patch
# User Juanma Barranquero <lekktu@gmail.com>
# Date 1263479833 -3600
# Node ID a3b4c6fc276c47031f8e0514bb4231228969d6d2
# Parent  7d6d38782123b983352f631bb358b9fd9e683a89
Fix bug#5313: editing files in hexl-mode corrupts file

* hexl.el (hexl-printable-character): Fix check of `hexl-iso',
  which is always a string.

diff -r 7d6d38782123 -r a3b4c6fc276c lisp/ChangeLog
--- a/lisp/ChangeLog	Thu Jan 14 14:16:40 2010 +0100
+++ b/lisp/ChangeLog	Thu Jan 14 15:37:13 2010 +0100
@@ -1,3 +1,8 @@
+2010-01-14  Juanma Barranquero  <lekktu@gmail.com>
+
+	* hexl.el (hexl-printable-character): Fix check of `hexl-iso',
+	which is always a string.  (Bug#5313)
+
 2010-01-14  Juanma Barranquero  <lekktu@gmail.com>
 
 	* progmodes/ada-xref.el (ada-default-prj-properties):
diff -r 7d6d38782123 -r a3b4c6fc276c lisp/hexl.el
--- a/lisp/hexl.el	Thu Jan 14 14:16:40 2010 +0100
+++ b/lisp/hexl.el	Thu Jan 14 15:37:13 2010 +0100
@@ -779,11 +779,11 @@
 
 (defun hexl-printable-character (ch)
   "Return a displayable string for character CH."
-  (format "%c" (if hexl-iso
-		   (if (or (< ch 32) (and (>= ch 127) (< ch 160)))
+  (format "%c" (if (equal hexl-iso "")
+		   (if (or (< ch 32) (>= ch 127))
 		       46
 		     ch)
-		 (if (or (< ch 32) (>= ch 127))
+		 (if (or (< ch 32) (and (>= ch 127) (< ch 160)))
 		     46
 		   ch))))