mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-29 19:48:19 +00:00
Code Issues Releases Activity

(hexl-insert-char): Increment `address' for every character inserted.

Browse Source
This commit is contained in:
Karl Heuer 1994-05-07 02:33:33 +00:00
parent 21f4aec691
commit ab180fb6f2
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/hexl.el
View File

@ -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