Mercurial > emacs

changeset 7387:57d7a275b60d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(hexl-insert-char): Increment `address' for every character inserted.
author Karl Heuer <kwzh@gnu.org>
date Sat, 07 May 1994 02:33:33 +0000
parents 60b718b9aac6
children 846bf8868a98
files lisp/hexl.el
diffstat 1 files changed, 3 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- 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