Re: to use browse-yank.el

[Hideyuki SHIRAI (白井秀行) <shirai@xxxxxxxxxxxxxxxxxxx>]

こんにちは、白井です。

From: "T.Fukagawa" <fukagawa@xxxxxxxxxxxxx> さん曰く
Subject: to use browse-yank.el
Message-ID: <199910050921.SAA28187@xxxxxxxxxxxxxx>
Date: Tue, 5 Oct 1999 18:21:19 +0900 (JST)

深川> どこからだったか忘れたのですが、browse-yank.el を紹介されまして、便利そう
深川> なのですが、実行したあとの漢字入力がおかしくなってしまいます。

私は、Meadow 1.07b1 なのですが、深川さんのメールで初めて
browse-yank.el というのを聞きまして、探して来ました。

# ftp://ftp.kuis.kyoto-u.ac.jp/GNU/emacs-lisp/browse-yank.el.shar.Z
# にありました。

あまりに古いのですが、

;From mende@xxxxxxxxxxxxxxxxx Mon Oct  3 14:20:43 1988
;From: mende@xxxxxxxxxxxxxxxxx (Bob Mende Pie)
;Newsgroups: gnu.emacs,comp.emacs
;Subject: Kill-Ring-Browser browse-yank.el
;Keywords: here it is...
;Date: 27 Sep 88 17:39:52 GMT
;Organization: Yows `R' us

深川さんのおっしゃっているのは、これのことでしょうか？

深川> ＃「いいい」と入力して、確定すると変なロシア語になってしまいます。

私もそうなりました。^^;;;

原因は、browse-yank-mode に入ったときに minor-mode を壊してしま
い、encoded-kb の設定も *ぱぁ* になってしまうからだと思います。

# だから UNIX では起きなかった。

深川> describe-coding-system をしても、実行前と後で何も変化していないのですが、
深川> どなたか原因とか、対処法とかご存知でしたら教えてください。

3分しかみていないので、なにか落し穴があるかもしれないのですが、
以下のパッチで動いているようです。

# (defmacro for (i lb ub &rest body) は許しがたいけど、、、これ
# は、便利です。感謝。感謝。

-- 
白井秀行 (mailto:shirai@xxxxxxxxxxxxxxxxxxx)



*** browse-yank.el.orig	Tue Oct  5 18:58:21 1999
--- browse-yank.el	Tue Oct  5 18:58:20 1999
***************
*** 124,133 ****
  
    (kill-all-local-variables)
    (make-local-variable 'mode-line-process)
!   (make-local-variable 'minor-mode-alist)
!   (mapcar '(lambda (minmode) 
! 	     (set (car minmode) nil))
! 	  minor-mode-alist)
    (use-local-map browse-yank-mode-map)  
    (setq mode-name "Browse Yank")
    (setq mode-line-process (concat ": "
--- 124,133 ----
  
    (kill-all-local-variables)
    (make-local-variable 'mode-line-process)
!   ;;   (make-local-variable 'minor-mode-alist)
!   ;;   (mapcar '(lambda (minmode) 
!   ;; 		(set (car minmode) nil))
!   ;; 	     minor-mode-alist)
    (use-local-map browse-yank-mode-map)  
    (setq mode-name "Browse Yank")
    (setq mode-line-process (concat ": "