diff options
| author | Vivek Dasmohapatra <vivek@etla.org> | 2012-04-14 00:31:23 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2012-04-14 00:31:23 +0200 |
| commit | b472a59444c5ac74c85ccba53889b0c5a79324df (patch) | |
| tree | cb67f50445f0dd7467f856cd4a13fe6b6dd366c4 /lisp/hexl.el | |
| parent | 09b95ce39ba378b3fe116379c85af5a5a42599cd (diff) | |
| download | emacs-b472a59444c5ac74c85ccba53889b0c5a79324df.tar.gz | |
* hexl.el (hexl-insert-char): Make display sizes other than 16 work.
Diffstat (limited to 'lisp/hexl.el')
| -rw-r--r-- | lisp/hexl.el | 6 |
1 files changed, 1 insertions, 5 deletions
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) |