Hello Yabuki-san
I wrote this patch to work yc.el on Emacs 23. But it works Emacs >= 23 only.
And I found similar patch on http://www.yoshidam.net/diary/200908.html
Regards
Kouichi ONO
--- /usr/share/emacs/site-lisp/yc-el/yc.el 2009-07-06 00:16:10.000000000
+0900
+++ yc.el 2008-10-20 13:51:18.046687177 +0900
@@ -549,15 +549,18 @@
(defun yc-l2n (int)
+ (string-make-unibyte
(concat (list (logand (ash int -24) 255)
(logand (ash int -16) 255)
(logand (ash int -8) 255)
- (logand int 255))))
+ (logand int 255)))))
(defun yc-s2n (int)
+ (string-make-unibyte
(concat (list (logand (ash int -8) 255)
- (logand int 255))))
+ (logand int 255)))))
(defun yc-c2n (int)
- (concat (list (logand int 255))))
+ (string-make-unibyte
+ (concat (list (logand int 255)))))
(defun yc-a2n (str)
(concat str (yc-c2n 0)))
(defun yc-w2n (str)
@@ -592,8 +595,8 @@
(setq dst (concat
dst
(decode-coding-string
- (concat (and (/= (car src) 0) (char-to-string (car src)))
- (char-to-string (cadr src)))
+ (concat (and (/= (car src) 0) (char-to-string
(unibyte-char-to-multibyte (car src))))
+ (char-to-string (unibyte-char-to-multibyte (cadr
src))))
yc-coding))
src (cddr src)))
dst))
@@ -2360,11 +2363,11 @@
(setq yc-selected-window (cons (selected-window) yc-selected-window))
(unless (featurep 'xemacs)
(set-minibuffer-window (minibuffer-window)))
+ (set-window-buffer (minibuffer-window) (get-buffer-create yc-select-buffer))
(yc-redirect-frame-focus
(window-frame (car yc-selected-window))
(window-frame (select-window (minibuffer-window))))
(raise-frame (window-frame (select-window (minibuffer-window))))
- (set-window-buffer (minibuffer-window) (get-buffer-create yc-select-buffer))
(let ((l lst))
(while l
(setq yc-select-markers (cons (point-marker) yc-select-markers))
--
To UNSUBSCRIBE, email to debian-bugs-dist-requ...@lists.debian.org
with a subject of "unsubscribe". Trouble? Contact listmas...@lists.debian.org
