branch: externals/poke
commit 084424df42757ff999de90f977b1e46833d1b905
Author: Jose E. Marchesi <[email protected]>
Commit: Jose E. Marchesi <[email protected]>
poke.el: add a few commentary
---
poke.el | 12 +++++++++---
1 file changed, 9 insertions(+), 3 deletions(-)
diff --git a/poke.el b/poke.el
index 35c7b0dfc6..363c46b1d3 100644
--- a/poke.el
+++ b/poke.el
@@ -84,6 +84,12 @@
(defface poke-iter-string-face '((t :bold t))
"Face for iteration separator in *poke-out* buffer.")
+;;;; Poke styling classes
+
+;; GNU poke uses named styling classes in order to style the output we
+;; get through the pokelets. The following variable associates Poke
+;; styling class names with Emacs faces.
+
(defvar poke-styling-faces
'(("integer" poke-integer-face)
("string" poke-string-face)
@@ -162,8 +168,8 @@
1
(- (process-get proc 'pokelet-msg-length)
1))))
(apply (process-get proc 'pokelet-msg-handler) (list proc cmd
msg-data)))
- ;; Discard used portion of poke-elval-buf and go back to
- ;; waiting for a message length.
+ ;; Discard used portion of the buffer and go back to waiting
+ ;; for a message length.
(process-put proc
'pokelet-buf
(substring (process-get proc 'pokelet-buf)
@@ -318,7 +324,7 @@ Commands:
(poke-make-pokelet-process-new "poke-out" "\x81"
#'poke-out-handle-cmd))
(process-put poke-out-process 'poke-out-styles nil)
- (process-put poke-out-process 'poke-out-iter-begin 0)
+ (process-put poke-out-process 'poke-out-iter-begin 1)
(process-put poke-out-process 'poke-out-eval nil)
(process-put poke-out-process 'poke-out-emitted-iter-string nil)
(save-excursion
