diff options
| author | Karl Heuer | 1994-05-07 02:33:33 +0000 |
|---|---|---|
| committer | Karl Heuer | 1994-05-07 02:33:33 +0000 |
| commit | ab180fb6f258ac0db4b5e4b058b98cb381d224be (patch) | |
| tree | 049801a20b03665d8ee5532d0c01831b458a1131 | |
| parent | 21f4aec6915b5543b6630f7deda6b065aae919df (diff) | |
| download | emacs-ab180fb6f258ac0db4b5e4b058b98cb381d224be.tar.gz emacs-ab180fb6f258ac0db4b5e4b058b98cb381d224be.zip | |
(hexl-insert-char): Increment `address' for every character inserted.
| -rw-r--r-- | lisp/hexl.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/hexl.el b/lisp/hexl.el index ebb283f6e01..d7e7cd44baa 100644 --- a/lisp/hexl.el +++ b/lisp/hexl.el | |||
| @@ -557,9 +557,9 @@ You may also type up to 3 octal digits, to insert a character with that code" | |||
| 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 |