From b472a59444c5ac74c85ccba53889b0c5a79324df Mon Sep 17 00:00:00 2001 From: Vivek Dasmohapatra Date: Sat, 14 Apr 2012 00:31:23 +0200 Subject: [PATCH] * hexl.el (hexl-insert-char): Make display sizes other than 16 work. --- lisp/ChangeLog | 4 ++++ lisp/hexl.el | 6 +----- 2 files changed, 5 insertions(+), 5 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index e8fc25121fd..f6213bbd186 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2012-04-13 Vivek Dasmohapatra + + * hexl.el (hexl-insert-char): Make display sizes other than 16 work. + 2012-04-13 Masatake YAMATO * minibuffer.el (minibuffer-local-filename-syntax): New variable diff --git a/lisp/hexl.el b/lisp/hexl.el index f8ab156d9eb..6c4d8d6dc34 100644 --- a/lisp/hexl.el +++ b/lisp/hexl.el @@ -964,11 +964,7 @@ CH must be a unibyte character whose value is between 0 and 255." (error "Invalid character 0x%x -- must be in the range [0..255]" ch)) (let ((address (hexl-current-address t))) (while (> num 0) - (let ((hex-position - (+ (* (/ address 16) (hexl-line-displen)) - 10 (point-min) - (* 2 (% address 16)) - (/ (% address 16) 2))) + (let ((hex-position (hexl-address-to-marker address)) (ascii-position (+ (* (/ address 16) (hexl-line-displen)) (hexl-ascii-start-column) -- 2.39.2