# HG changeset patch
# User gongo
# Date 1194690992 -32400
# Node ID e85a0075d6b1ebc70dee38618b2866c05d51a655
# Parent  e7ad3b65a55332bc82c88339d6ce40d7735558fa
fix

diff -r e7ad3b65a553 -r e85a0075d6b1 redit-client-sm.el
--- a/redit-client-sm.el	Sat Nov 10 19:15:07 2007 +0900
+++ b/redit-client-sm.el	Sat Nov 10 19:36:32 2007 +0900
@@ -83,10 +83,10 @@
 (defvar redit-quit-ack-command       "54")
 
 ;; Queue struct
-;; (defstruct Queue (front nil) (rear nil))
-;; (setq redit-client-command-queue (make-Queue))
-;; (setq redit-client-receive-queue (make-Queue))
-;; (setq redit-client-send-queue (make-Queue))
+(defstruct Queue (front nil) (rear nil))
+(setq redit-client-command-queue (make-Queue))
+(setq redit-client-receive-queue (make-Queue))
+(setq redit-client-send-queue (make-Queue))
 
 ;; line translated queue
 ;; (setq after-CQ (make-Queue))
@@ -177,11 +177,15 @@
   ;; called when the process receive packet
   (set-process-filter redit-client-process 'redit-client-process-filter)
 
-  ;; Code that is the process input/output buffer is rep-string-encoding
+  ;; Code of the process input/output buffer is rep-string-encoding
   (set-process-coding-system redit-client-process rep-string-encoding rep-string-encoding)
 
-  ;; ???
-  ;; (set-process-query-on-exit-flag redit-client-process nil)
+  ;; プロセスが生きてるとき、 emacs を終了しようとすると
+  ;; 「processがうんたらで、本当に切ってもいいの y/n」
+  ;; って聞かれる。nil てやっておくと聞かれない。
+  ;; quit を入れるんなら t にして有効にすべきなんだろうか。
+  ;; 今は nil で
+  (set-process-query-on-exit-flag redit-client-process nil)
     
   ;; not necessary since Emacs 21.1
   ;; (make-local-hook 'before-change-functions)
@@ -603,6 +607,7 @@
       (setq redit-client-previous-edited-line 1)
       (setq redit-client-after-edited-line 1)
       (setq redit-client-previous-line 1)
+
       ;;(add-hook 'before-change-functions
       ;;'redit-client-before-change-function t t)
       ;;(add-hook 'after-change-functions
diff -r e7ad3b65a553 -r e85a0075d6b1 redit-client-sm.elc
Binary file redit-client-sm.elc has changed