diff options
| -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 |