From ab180fb6f258ac0db4b5e4b058b98cb381d224be Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Sat, 7 May 1994 02:33:33 +0000 Subject: [PATCH] (hexl-insert-char): Increment `address' for every character inserted. --- lisp/hexl.el | 6 +++--- 1 file 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 -- 2.39.5