diff options
| author | Karl Heuer <kwzh@gnu.org> | 1994-05-07 02:33:33 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1994-05-07 02:33:33 +0000 |
| commit | bbe446a4be5d8c6926065406dfb54f1e8fa547fa (patch) | |
| tree | bc70cbb4646907937a6b77dac5e8602ec0534b3c /lisp/hexl.el | |
| parent | ed90108d0211949ec17eb792002cbb5ce5f43ba8 (diff) | |
| download | emacs-bbe446a4be5d8c6926065406dfb54f1e8fa547fa.tar.gz | |
(hexl-insert-char): Increment `address' for every character inserted.
Diffstat (limited to 'lisp/hexl.el')
| -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" (+ (* (/ address 16) 68) 52 (% address 16))) (delete-char 1) (insert (hexl-printable-character ch)) - (if (eq address hexl-max-address) - (hexl-goto-address address) - (hexl-goto-address (1+ address))) + (or (eq address hexl-max-address) + (setq address (1+ address))) + (hexl-goto-address address) (setq num (1- num))))) ;; hex conversion |