emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/crdt 7ebbd5e 05/80: cleanup debug code


From: ELPA Syncer
Subject: [elpa] externals/crdt 7ebbd5e 05/80: cleanup debug code
Date: Sat, 28 Aug 2021 10:57:30 -0400 (EDT)

branch: externals/crdt
commit 7ebbd5e3f92c91ee323c1e81f5cbc3d19938b3f9
Author: Qiantan Hong <qhong@mit.edu>
Commit: Qiantan Hong <qhong@mit.edu>

    cleanup debug code
---
 crdt.el | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/crdt.el b/crdt.el
index 761c676..4531392 100644
--- a/crdt.el
+++ b/crdt.el
@@ -125,8 +125,8 @@
 ;; For base IDs, last two bytes are always representing site ID
 ;; Stored strings are BASE-ID:OFFSETs. So the last two bytes represent offset,
 ;; and second last two bytes represent site ID
-;; (defconst crdt--max-value (lsh 1 16))
-(defconst crdt--max-value 16)
+(defconst crdt--max-value (lsh 1 16))
+;; (defconst crdt--max-value 16)
 ;; for debug
 (defconst crdt--low-byte-mask 255)
 (defsubst crdt--get-two-bytes (string index)
@@ -429,8 +429,7 @@ Returns a list of (insert type) messages to be sent."
        (let* ((not-end (< outer-end (point-max)))
               (ending-id (when not-end (crdt--get-starting-id outer-end))))
          (when (and not-end (eq starting-id (crdt--get-starting-id outer-end)))
-           (crdt--set-id outer-end (crdt--id-replace-offset starting-id (+ 1 
left-offset (length crdt--changed-string))))))
-       ))
+           (crdt--set-id outer-end (crdt--id-replace-offset starting-id (+ 1 
left-offset (length crdt--changed-string))))))))
     (crdt--with-insertion-information
      ((length crdt--changed-string) outer-end crdt--changed-string nil 0 nil)
      (crdt--split-maybe)))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]