From 9c23ca4755058be7808f5e5b7704309356b8e168 Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Thu, 14 Jan 2010 15:37:13 +0100 Subject: [PATCH] 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. --- lisp/ChangeLog | 5 +++++ lisp/hexl.el | 6 +++--- 2 files changed, 8 insertions(+), 3 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 833a25c39a8..70bb9bce334 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2010-01-14 Juanma Barranquero + + * hexl.el (hexl-printable-character): Fix check of `hexl-iso', + which is always a string. (Bug#5313) + 2010-01-14 Juanma Barranquero * progmodes/ada-xref.el (ada-default-prj-properties): diff --git a/lisp/hexl.el b/lisp/hexl.el index 2854ca12d45..7edf5ec10ac 100644 --- a/lisp/hexl.el +++ b/lisp/hexl.el @@ -779,11 +779,11 @@ This discards the buffer's undo information." (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)))) -- 2.39.2