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 | ab180fb6f258ac0db4b5e4b058b98cb381d224be (patch) | |
| tree | 049801a20b03665d8ee5532d0c01831b458a1131 /lisp/hexl.el | |
| parent | 21f4aec6915b5543b6630f7deda6b065aae919df (diff) | |
| download | emacs-ab180fb6f258ac0db4b5e4b058b98cb381d224be.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 |