diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ChangeLog | 4 | ||||
| -rw-r--r-- | 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 <vivek@etla.org> + + * hexl.el (hexl-insert-char): Make display sizes other than 16 work. + 2012-04-13 Masatake YAMATO <yamato@redhat.com> * 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) |