Mercurial > emacs
comparison lisp/hexl.el @ 7387:57d7a275b60d
(hexl-insert-char): Increment `address' for every character inserted.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Sat, 07 May 1994 02:33:33 +0000 |
| parents | 96e1b1cd7c51 |
| children | abb02a91f4cb |
comparison
equal
deleted
inserted
replaced
| 7386:60b718b9aac6 | 7387:57d7a275b60d |
|---|---|
| 555 (insert (format "%02x" ch)) | 555 (insert (format "%02x" ch)) |
| 556 (goto-char | 556 (goto-char |
| 557 (+ (* (/ address 16) 68) 52 (% address 16))) | 557 (+ (* (/ address 16) 68) 52 (% address 16))) |
| 558 (delete-char 1) | 558 (delete-char 1) |
| 559 (insert (hexl-printable-character ch)) | 559 (insert (hexl-printable-character ch)) |
| 560 (if (eq address hexl-max-address) | 560 (or (eq address hexl-max-address) |
| 561 (hexl-goto-address address) | 561 (setq address (1+ address))) |
| 562 (hexl-goto-address (1+ address))) | 562 (hexl-goto-address address) |
| 563 (setq num (1- num))))) | 563 (setq num (1- num))))) |
| 564 | 564 |
| 565 ;; hex conversion | 565 ;; hex conversion |
| 566 | 566 |
| 567 (defun hexl-insert-hex-char (arg) | 567 (defun hexl-insert-hex-char (arg) |