emacs/sekka.el in sekka-0.8.4 vs emacs/sekka.el in sekka-0.8.5
- old
+ new
@@ -653,12 +653,12 @@
;; 確定文字列の作成
(setq sekka-last-fix insert-word)
;; 選択中の場所を装飾する。
- (overlay-put ov 'face 'default)
(when select-mode
+ (overlay-put ov 'face 'default)
(overlay-put ov 'face 'highlight))
(setq sekka-markers (cons start end))
(sekka-debug-print (format "insert:[%s] point:%d-%d\n" insert-word (marker-position start) (marker-position end))))))
;; fenceの範囲を設定する
@@ -836,23 +836,25 @@
(lambda (x)
(let ((sym (nth sekka-kind-index x)))
(when (eq sym _type)
(push x lst))))
sekka-henkan-kouho-list)
- (sekka-debug-print (format "filterd-lst = %S\n" (reverse lst)))
- (car (reverse lst))))
+ (sekka-debug-print (format "filtered-lst = %S\n" (reverse lst)))
+ (if (null lst)
+ nil
+ (car (reverse lst)))))
;; 指定された type の候補が存在するか調べる
(defun sekka-include-typep ( _type )
- (not (null (sekka-select-by-type-filter _type))))
+ (sekka-select-by-type-filter _type))
;; 指定された type の候補に強制的に切りかえる
;; 切りかえが成功したかどうかを t or nil で返す。
(defun sekka-select-by-type ( _type )
(let ((kouho (sekka-select-by-type-filter _type)))
- (if (null kouho)
- (begin
+ (if (not kouho)
+ (progn
(cond
((eq _type 'j)
(message "Sekka: 漢字の候補はありません。"))
((eq _type 'h)
(message "Sekka: ひらがなの候補はありません。"))
@@ -860,11 +862,13 @@
(message "Sekka: カタカナの候補はありません。"))
((eq _type 'l)
(message "Sekka: 半角の候補はありません。"))
((eq _type 'z)
(message "Sekka: 全角の候補はありません。"))
- nil))
+ ((eq _type 'n)
+ (message "Sekka: 数字混在の候補はありません．")))
+ nil)
(let ((num (nth sekka-id-index kouho)))
(setq sekka-cand-cur num)
(sekka-select-update-display)
t))))
@@ -1411,10 +1415,10 @@
;; input-method として登録する。
(set-language-info "Japanese" 'input-method "japanese-sekka")
(setq default-input-method "japanese-sekka")
(defconst sekka-version
- "0.8.4" ;;SEKKA-VERSION
+ "0.8.5" ;;SEKKA-VERSION
)
(defun sekka-version (&optional arg)
"入力モード変更"
(interactive "P")
(message sekka-version))