Index: head/japanese/yc.el/Makefile =================================================================== --- head/japanese/yc.el/Makefile (revision 472326) +++ head/japanese/yc.el/Makefile (revision 472327) @@ -1,48 +1,43 @@ # Created by: HONDA Yasuhiro # $FreeBSD$ PORTNAME= yc.el PORTVERSION= 5.2.1 -PORTREVISION= 13 +PORTREVISION= 14 PORTEPOCH= 1 CATEGORIES= japanese elisp MASTER_SITES= http://www.ceres.dti.ne.jp/~knak/ PKGNAMESUFFIX= ${EMACS_PKGNAMESUFFIX} DISTNAME= yc-${PORTVERSION}.el EXTRACT_SUFX= .gz MAINTAINER= t@nakao.org COMMENT= Yet another Canna client for Emacs - -.if ${FLAVOR:U} != devel && ${FLAVOR:U} != devel_nox -# http://pkg.awarnach.mathstat.dal.ca/data/11i386-default/2018-05-30_07h36m11s/logs/errors/ja-yc.el-emacs26-5.2.1_14,1.log -BROKEN= fails to build -.endif EXTRACT_CMD= ${GZCAT} EXTRACT_BEFORE_ARGS= # EXTRACT_AFTER_ARGS= > yc.el NO_WRKSUBDIR= yes USES= emacs EMACS_FLAVORS_EXCLUDE= devel_full devel_nox # fail to build YC_LISPDIR= ${PREFIX}/${EMACS_VERSION_SITE_LISPDIR}/yc PLIST_FILES= ${EMACS_VERSION_SITE_LISPDIR}/yc/yc.el \ ${EMACS_VERSION_SITE_LISPDIR}/yc/yc.elc OPTIONS_DEFINE= ICANNA ICANNA_DESC= Enable icanna support ICANNA_RUN_DEPENDS= icanna:japanese/icanna do-build: @(cd ${WRKSRC} && \ ${EMACS_CMD} -batch -f batch-byte-compile yc.el) do-install: @${MKDIR} ${STAGEDIR}${YC_LISPDIR} (cd ${WRKSRC} && \ ${INSTALL_SCRIPT} yc.el yc.elc ${STAGEDIR}${YC_LISPDIR}) .include Index: head/japanese/yc.el/files/patch-yc.el =================================================================== --- head/japanese/yc.el/files/patch-yc.el (revision 472326) +++ head/japanese/yc.el/files/patch-yc.el (revision 472327) @@ -1,10 +1,19 @@ ---- yc.el.orig 2010-09-30 13:22:22.000000000 +0900 -+++ yc.el 2010-09-30 13:26:09.000000000 +0900 +--- yc.el.orig 2018-06-04 13:46:33.083915000 +0900 ++++ yc.el 2018-06-04 14:48:21.116298000 +0900 @@ -1736,6 +1736,7 @@ (error nil)))) (yc-eval-sexp (car expr))))) (setq files (cdr files))) + (message "") (if romkana-table (setq yc-rH-conv-dic (yc-search-file-first-in-path romkana-table (list "." (getenv "HOME") +@@ -2071,7 +2072,7 @@ + ;; 文節を指定しない場合、現在の文節が対象となる + ;; 読みを取得した文節はその読みをキャッシュする + ;; cut が 非nil の場合、指定文節以降の読みを削除する +-(defun yc-yomi (&optional idx &optional cut) ++(defun yc-yomi (&optional idx cut) + (if (integerp idx) + (yc-put-bunsetsu-yomi idx (yc-get-bunsetsu-yomi idx cut) cut) + (yc-put-bunsetsu-yomi yc-mark (yc-get-bunsetsu-yomi yc-mark cut) cut)))