* egg.el(egg-version) updated 5.0.6.0 -> 5.0.7.0
* NEWS: added 5.0.7.0
*** imported FreeBSD's tamago-emacs24-4.0.6.0.
20041122.19_12. (#34861)
Hiroki Sato <hrs@allbsd.org> updated FreeBSD' tamago.
So I imported it.
** used (with-current-buffer) instead of (save-excursion)
* egg-com.el(pre-write-encode-fixed-euc-china)
(comm-call-with-proc)
* egg.el(egg-activate-keymap-after-command)
* egg/anthy.el(anthy-egg-new-environment)
(anthy-egg-add-word)
* egg/anthyipc.el(anthyipc-call-with-proc)
* egg/canna.el(canna-open)
* egg/cannarpc.el(cannarpc-call-with-environment)
* egg/sj3.el(sj3-open)
* egg/sj3rpc.el(sj3rpc-call-with-environment)
* egg/wnn.el(wnn-open)
* egg/wnnrpc.el(wnnrpc-file-receive)
* menudiag.el(menudiag-selection-goto-internal)
* egg.el(egg-mode): used (fboundp) insted of (boundp)
(egg-exit-from-minibuffer): used (fboundp) insted of (boundp)
* egg/canna.el(canna-make-backend): quoted (fboundp)'s argument
* egg/wnn.el(wnn-make-backend): quoted (fboundp)'s argument
* egg/anthy.el: added copyright 2015 Hiroki Sato <hrs@allbsd.org>
* egg/anthyipc.el: added copyright 2015 Hiroki Sato <hrs@allbsd.org>
* egg/canna.el: added copyright 2015 Hiroki Sato <hrs@allbsd.org>
* egg/cannarpc.el: added copyright 2015 Hiroki Sato <hrs@allbsd.org>
* egg/sj3.el: added copyright 2015 Hiroki Sato <hrs@allbsd.org>
* egg/sj3rpc.el: added copyright 2015 Hiroki Sato <hrs@allbsd.org>
* egg/wnn.el: added copyright 2015 Hiroki Sato <hrs@allbsd.org>
2015-02-02 Mitsutoshi NAKANO <bkbin005@rinku.zaq.ne.jp>
+ * egg.el(egg-version) updated 5.0.6.0 -> 5.0.7.0
+ * NEWS: added 5.0.7.0
+
+ *** imported FreeBSD's tamago-emacs24-4.0.6.0.20041122.19_12. (#34861)
+ Hiroki Sato <hrs@allbsd.org> updated FreeBSD' tamago.
+ So I imported it.
+
+ ** used (with-current-buffer) instead of (save-excursion)
+ * egg-com.el(pre-write-encode-fixed-euc-china)
+ (comm-call-with-proc)
+ * egg.el(egg-activate-keymap-after-command)
+ * egg/anthy.el(anthy-egg-new-environment)
+ (anthy-egg-add-word)
+ * egg/anthyipc.el(anthyipc-call-with-proc)
+ * egg/canna.el(canna-open)
+ * egg/cannarpc.el(cannarpc-call-with-environment)
+ * egg/sj3.el(sj3-open)
+ * egg/sj3rpc.el(sj3rpc-call-with-environment)
+ * egg/wnn.el(wnn-open)
+ * egg/wnnrpc.el(wnnrpc-file-receive)
+ * menudiag.el(menudiag-selection-goto-internal)
+
+ * egg.el(egg-mode): used (fboundp) insted of (boundp)
+ (egg-exit-from-minibuffer): used (fboundp) insted of (boundp)
+
+ * egg/canna.el(canna-make-backend): quoted (fboundp)'s argument
+ * egg/wnn.el(wnn-make-backend): quoted (fboundp)'s argument
+
+ * egg/anthy.el: added copyright 2015 Hiroki Sato <hrs@allbsd.org>
+ * egg/anthyipc.el: added copyright 2015 Hiroki Sato <hrs@allbsd.org>
+ * egg/canna.el: added copyright 2015 Hiroki Sato <hrs@allbsd.org>
+ * egg/cannarpc.el: added copyright 2015 Hiroki Sato <hrs@allbsd.org>
+ * egg/sj3.el: added copyright 2015 Hiroki Sato <hrs@allbsd.org>
+ * egg/sj3rpc.el: added copyright 2015 Hiroki Sato <hrs@allbsd.org>
+ * egg/wnn.el: added copyright 2015 Hiroki Sato <hrs@allbsd.org>
+
+
* egg.el(egg-version): updated 5.0.5.0 -> 5.0.6.0
* COPYING *.el */*.el: fixed FSF address (#34859)
http://sourceforge.jp/ticket/browse.php?group_id=9668&tid=34859
NEWS about tamago-tsunagi
=========================
+## 5.0.7.0 imported FreeBSD's tamago-emacs24-4.0.6.0.20041122.19_12. (#34861)
+
+https://sourceforge.jp/ticket/browse.php?group_id=9668&tid=34861
+
## 5.0.6.0 fixed #34859 #34862 by Mitsutoshi NAKANO <bkbin005@rinku.zaq.ne.jp>
### fixed FSF address (#34859)
(set-buffer work)
(erase-buffer)
(if (null (stringp from))
- (save-excursion
- (set-buffer buf)
+ (with-current-buffer buf
(setq from (buffer-substring from to))))
(insert (string-as-multibyte from))
(encode-fixed-euc-china-region 1 (point-max) type)
,@vlist)
(if (and (memq (process-status proc) '(open run))
(buffer-live-p buffer))
- (save-excursion
- (set-buffer buffer)
+ (with-current-buffer buffer
(let ,euc-select
(erase-buffer)
,send-expr
;;; Code:
-(defconst egg-version "5.0.6.0"
+(defconst egg-version "5.0.7.0"
"Version number for this version of Tamago.")
(defconst egg-tsunagi-version egg-version
(defun egg-activate-keymap-after-command ()
(while egg-change-major-mode-buffer
- (save-excursion
- (when (buffer-live-p (car egg-change-major-mode-buffer))
- (set-buffer (car egg-change-major-mode-buffer))
- (egg-activate-keymap))
+ (let ((buf (car egg-change-major-mode-buffer)))
+ (if (buffer-live-p buf)
+ (with-current-buffer buf
+ (egg-activate-keymap)))
(setq egg-change-major-mode-buffer (cdr egg-change-major-mode-buffer))))
(remove-hook 'post-command-hook 'egg-activate-keymap-after-command))
(setq egg-modefull-mode t)
(its-define-select-keys egg-modefull-map))
(setq egg-modeless-mode t))
- (set (if (boundp 'deactivate-current-input-method-function)
+ (set (if (fboundp 'deactivate-current-input-method-function)
'deactivate-current-input-method-function
'inactivate-current-input-method-function)
'egg-mode)
(run-hooks 'egg-mode-hook)))
(defun egg-exit-from-minibuffer ()
- (if (boundp 'deactivate-input-method)
+ (if (fboundp 'deactivate-input-method)
(deactivate-input-method)
(inactivate-input-method))
(if (<= (minibuffer-depth) 1)
;;; Input Method Architecture
;; Copyright (C) 2002 The Free Software Initiative of Japan
+;; 2015 Hiroki Sato <hrs@allbsd.org>
;; Author: NIIBE Yutaka <gniibe@m17n.org>
(set-process-coding-system anthy-egg-proc cs cs)
(set-process-sentinel anthy-egg-proc 'anthy-egg-proc-sentinel)
(set-marker-insertion-type (process-mark anthy-egg-proc) t)
- (save-excursion
- (set-buffer buf)
+ (with-current-buffer buf
(erase-buffer)
(buffer-disable-undo))
(anthyipc-get-greeting anthy-egg-proc)))
(let ((buf (get-buffer-create anthy-egg-dic-buffer-name))
(cs (if anthy-egg-use-utf8 'utf-8-unix 'euc-japan-unix))
proc)
- (save-excursion
- (set-buffer buf)
+ (with-current-buffer buf
(setq proc (apply 'start-process "anthy-egg-dic" buf
anthy-egg-dic-util-command
(if anthy-egg-use-utf8
;;; Input Method Architecture
;; Copyright (C) 2002 The Free Software Initiative of Japan
+;; 2015 Hiroki Sato <hrs@allbsd.org>
;; Author: NIIBE Yutaka <gniibe@m17n.org>
,@vlist)
(if (and (eq (process-status proc) 'run)
(buffer-live-p buffer))
- (save-excursion
- (set-buffer buffer)
+ (with-current-buffer buffer
(erase-buffer)
,send-expr
(goto-char (point-max))
;;; Egg Input Method Architecture
;; Copyright (C) 1999, 2000 Free Software Foundation, Inc
+;; 2015 Hiroki Sato <hrs@allbsd.org>
;; Author: NIIBE Yutaka <gniibe@chroot.org>
(defun canna-make-backend (lang env &optional source-lang converted-lang)
(let ((finalize (canna-backend-func-name "canna-finalize-backend" lang))
(backend (canna-backend-func-name "canna-backend" lang env)))
- (if (null (fboundp finalize))
+ (if (null (fboundp 'finalize))
(progn
(fset finalize (function (lambda () (canna-finalize-backend))))
(egg-set-finalize-backend (list finalize))))
(unwind-protect
(progn
(setq buf (generate-new-buffer " *CANNA*"))
- (save-excursion
- (set-buffer buf)
+ (with-current-buffer buf
(erase-buffer)
(buffer-disable-undo)
(set-buffer-multibyte nil)
;;; Egg Input Method Architecture
;; Copyright (C) 1999, 2000 Free Software Foundation, Inc
+;; 2015 Hiroki Sato <hrs@allbsd.org>
;; Author: NIIBE Yutaka <gniibe@chroot.org>
(list
'let v
(append
- `(save-excursion
- (set-buffer (process-buffer proc))
+ `(with-current-buffer (process-buffer proc)
(erase-buffer)
,send-expr
(process-send-region proc (point-min) (point-max))
;;; Input Method Architecture
;; Copyright (C) 1999, 2000 Free Software Foundation, Inc
+;; 2015 Hiroki Sato <hrs@allbsd.org>
;; Author: NIIBE Yutaka <gniibe@chroot.org>
(set-process-query-on-exit-flag proc nil)
(set-process-coding-system proc 'binary 'binary)
(set-marker-insertion-type (process-mark proc) t)
- (save-excursion
- (set-buffer buf)
+ (with-current-buffer buf
(erase-buffer)
(buffer-disable-undo)
(set-buffer-multibyte nil))
;; (let* ((buf (generate-new-buffer " *SJ3*"))
;; (msg-form "SJ3: connecting to sj3serv at %s...")
;; hostname proc result msg)
-;; (save-excursion
-;; (set-buffer buf)
+;; (with-current-buffer buf
;; (erase-buffer)
;; (buffer-disable-undo)
;; (setq enable-multibyte-characters nil))
;;; Input Method Architecture
;; Copyright (C) 1999, 2000 Free Software Foundation, Inc
+;; 2015 Hiroki Sato <hrs@allbsd.org>
;; Author: NIIBE Yutaka <gniibe@chroot.org>
(list
'let v
(append
- `(save-excursion
- (set-buffer (process-buffer proc))
+ `(with-current-buffer (process-buffer proc)
(erase-buffer)
,send-expr
(process-send-region proc (point-min) (point-max))
;;; Input Method Architecture
;; Copyright (C) 1999,2000 PFU LIMITED
+;; 2015 Hiroki Sato <hrs@allbsd.org>
;; Author: NIIBE Yutaka <gniibe@chroot.org>
;; KATAYAMA Yoshio <kate@pfu.co.jp>
(defun wnn-make-backend (lang env &optional source-lang converted-lang)
(let ((finalize (wnn-backend-func-name "wnn-finalize-backend" lang))
(backend (wnn-backend-func-name "wnn-backend" lang env)))
- (if (null (fboundp finalize))
+ (if (null (fboundp 'finalize))
(progn
(fset finalize `(lambda () (wnn-finalize-backend ',lang)))
(egg-set-finalize-backend (list finalize))))
(unwind-protect
(progn
(setq buf (generate-new-buffer (wnn-server-buffer-name server-info)))
- (save-excursion
- (set-buffer buf)
+ (with-current-buffer buf
(erase-buffer)
(buffer-disable-undo)
(set-buffer-multibyte nil)
;;; Input Method Architecture
;; Copyright (C) 1999, 2000 Free Software Foundation, Inc
+;; 2015 Hiroki Sato <hrs@allbsd.org>
;; Author: NIIBE Yutaka <gniibe@chroot.org>
;; KATAYAMA Yoshio <kate@pfu.co.jp> ; Korean, Chinese support.
(insert contents)
(if (= result 2)
(insert-file-contents local-filename nil (1- (point))))
- (save-excursion
- (set-buffer (process-buffer proc))
+ (with-current-buffer (process-buffer proc)
(wnnrpc-get-result)))))))))
((quit error)
(wnnrpc-call-with-environment env ()
(defun menudiag-selection-goto-internal ()
(let* ((list menudiag-goto-number-list)
(n (menudiag-selection-item-number list))
- (len (save-excursion
- (set-buffer menudiag-selection-main-buffer)
+ (len (with-current-buffer menudiag-selection-main-buffer
(length menudiag-current-items))))
(setq this-command 'menudiag-selection-goto)
(if (>= n len)