Lines Matching defs:conversions
126 ;; List of the current conversions for `kkc-current-key'.
127 (defvar kkc-current-conversions nil)
135 ;; numbers) of conversions stored in the same order as in
137 (defvar kkc-current-conversions-width nil)
171 ;; Lookup Japanese dictionary to set list of conversions in
172 ;; kkc-current-conversions for key sequence kkc-current-key of length
174 ;; kkc-current-conversions and return nil.
193 kkc-current-conversions-width nil
194 kkc-current-conversions (car entry))
199 kkc-current-conversions-width nil
200 kkc-current-conversions (cons 1 entry))
202 ;; Store this conversions in the cache.
204 (set-nested-alist kkc-current-key kkc-current-conversions
210 kkc-current-conversions-width nil
211 kkc-current-conversions (cons 0 nil)))))))
266 (>= (length kkc-current-conversions) 3))
314 "Exit from KKC mode by canceling any conversions."
333 (let ((idx (1+ (car kkc-current-conversions))))
336 (if (>= idx (length kkc-current-conversions))
338 (setcar kkc-current-conversions idx)
341 (set-nested-alist kkc-current-key kkc-current-conversions
344 (if (or kkc-current-conversions-width
352 (let ((idx (1- (car kkc-current-conversions))))
354 (setq idx (1- (length kkc-current-conversions))))
355 (setcar kkc-current-conversions idx)
358 (set-nested-alist kkc-current-key kkc-current-conversions
361 (if (or kkc-current-conversions-width
370 (if kkc-current-conversions-width
372 (maxlen (- (aref (aref kkc-current-conversions-width 0) 1)
373 (aref (aref kkc-current-conversions-width 0) 0)))
384 (setcar kkc-current-conversions
385 (+ (aref (aref kkc-current-conversions-width 0) 0) idx))
395 (setcar kkc-current-conversions -1)
401 (setcar kkc-current-conversions 0)
483 ;; We'll show users a list of available conversions in echo area with
487 ;; Set `kkc-current-conversions-width'.
488 (defun kkc-setup-current-conversions-width ()
489 (let ((convs (cdr kkc-current-conversions))
490 (len (length kkc-current-conversions))
492 (setq kkc-current-conversions-width (make-vector len nil))
495 (aset kkc-current-conversions-width 0 (vector len -2 nil))
498 (aset kkc-current-conversions-width idx
504 "Show list of available conversions in echo area with index numbers.
505 If the list is already shown, show the next group of conversions,
508 (if (< (length kkc-current-conversions) 3)
510 (if kkc-current-conversions-width
511 (let ((next-idx (aref (aref kkc-current-conversions-width 0) 1)))
512 (if (< next-idx (length kkc-current-conversions-width))
513 (setcar kkc-current-conversions next-idx)
514 (setcar kkc-current-conversions 1))
517 (kkc-setup-current-conversions-width)
521 "Show list of available conversions in echo area with index numbers.
522 If the list is already shown, show the previous group of conversions,
525 (if (< (length kkc-current-conversions) 3)
527 (if kkc-current-conversions-width
528 (let ((this-idx (aref (aref kkc-current-conversions-width 0) 0)))
530 (setcar kkc-current-conversions (1- this-idx))
531 (setcar kkc-current-conversions
532 (1- (length kkc-current-conversions-width))))
535 (kkc-setup-current-conversions-width)
540 (or kkc-current-conversions-width
541 (kkc-setup-current-conversions-width))
542 (let* ((current-idx (car kkc-current-conversions))
543 (first-slot (aref kkc-current-conversions-width 0))
558 (let ((len (length kkc-current-conversions))
560 (width-table kkc-current-conversions-width)
566 ;; in MSG, and reflect it in kkc-current-conversions-width.
577 ;; kkc-current-conversions-width.
585 (setq l (nthcdr this-idx kkc-current-conversions))
624 (cond ((= (car kkc-current-conversions) 0) ; Hiragana
629 ((= (car kkc-current-conversions) -1) ; Katakana
635 (insert (nth (car kkc-current-conversions) kkc-current-conversions))))
643 (if (= (car kkc-current-conversions) -1)