# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 768278013 0
# Node ID 57d7a275b60d321ee9a935336b7f2e837088d6e9
# Parent  60b718b9aac60d696ab747a71bd26c66f13fb4ef
(hexl-insert-char): Increment `address' for every character inserted.

diff -r 60b718b9aac6 -r 57d7a275b60d lisp/hexl.el
--- a/lisp/hexl.el	Sat May 07 02:26:40 1994 +0000
+++ b/lisp/hexl.el	Sat May 07 02:33:33 1994 +0000
@@ -557,9 +557,9 @@
        (+ (* (/ 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