Mercurial > hg > RemoteEditor > emacs

changeset 17:c213eff29303

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
fix
author shinobu
date Sat, 10 Nov 2007 15:51:38 +0900
parents cf36410f06c2
children 3e6fcaaa7b5e
files redit-client-sm.el
diffstat 1 files changed, 5 insertions(+), 5 deletions(-) [+]
line wrap: on
line diff
--- a/redit-client-sm.el	Sat Nov 10 15:47:45 2007 +0900
+++ b/redit-client-sm.el	Sat Nov 10 15:51:38 2007 +0900
@@ -47,7 +47,7 @@
 (defvar redit-max-string-length 1004
   "Read-Write max length of string.")
 
-; REP が使用する文字コード
+;; REP が使用する文字コード
 (defvar rep-string-encoding 'utf-8)
 
 (defvar redit-open-command           "1")
@@ -303,8 +303,8 @@
 		(progn (goto-line linenum) (beginning-of-line) (point)))
 	  (setq endp
 		(progn (goto-line linenum) (end-of-line) (point)))
-	  ; (setq length (- endp beginp))
-      ; rep-string-encoding に変換してから長さを求める
+	  ;; (setq length (- endp beginp))
+      ;; rep-string-encoding に変換してから長さを求める
 	  (setq length (string-bytes (encode-coding-string (buffer-substring beginp endp) rep-string-encoding)))
 
 	  ;; トークンが回ってくるのを待つ場合は、
@@ -323,8 +323,8 @@
 	  (process-send-string
 	   redit-client-process
 	   (concat (format "%10d%10d%10d%10d%10d%10d" (string-to-number redit-write-command) redit-client-session-id redit-client-editor-id (gen-seqno) linenum length)
-		   ; (buffer-substring beginp endp)
-           ; rep-string-encoding に変換
+		   ;; (buffer-substring beginp endp)
+           ;; rep-string-encoding に変換
 		   (encode-coding-string (buffer-substring beginp endp) rep-string-encoding)
 		   (if (eq isnewline t) "\n")
 		   "\n"))