branch: externals/poke
commit 7a251a28d3b9225973a09db316c2323c0b916b02
Author: Jose E. Marchesi <[email protected]>
Commit: Jose E. Marchesi <[email protected]>
poke.el: fix problem in append buffer
---
poke.el | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/poke.el b/poke.el
index 672214e942..c9564ea83f 100644
--- a/poke.el
+++ b/poke.el
@@ -454,7 +454,7 @@ Commands:
(let ((buffer-read-only nil))
(delete-region (point-min) (point-max))
(insert (process-get proc 'poke-vu-output))
- (poke-vu-goto-byte current-byte))))
+ (goto-char current-pos))))
(process-put proc 'poke-vu-output ""))
(_ ;; Protocol error
(process-put proc 'pokelet-buf "")
@@ -575,7 +575,7 @@ relative to the beginning of the shown IO space."
;; Scroll so the desired byte is in the first line.
(setq start-byte-offset (- offset
(% offset poke-vu-bytes-per-line)))
- (setq current-byte offset)
+ (setq current-pos byte-pos)
(poke-vu-refresh)
(setq byte-pos (poke-vu-byte-pos offset)))
;; Move the point where the byte at the given offset is.
@@ -655,7 +655,7 @@ Commands:
(setq-local start-byte-offset 0)
(setq-local header-line-format
"76543210 0011 2233 4455 6677 8899 aabb ccdd eeff
0123456789ABCDEF")
- (setq-local current-byte 0)
+ (setq-local current-pos 0)
(setq mode-name "poke-vu")
(setq major-mode 'poke-vu-mode)
(read-only-mode t))
