Changeset 4001

Show
Ignore:
Timestamp:
12/14/05 10:47:45 (3 years ago)
Author:
shirai
Message:

(mw32-input-method): Avoid byte-compile
warnings; use (car (cddr x)) instead of (caddr x).

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/lisp/ChangeLog.Meadow

    r3998 r4001  
     12005-12-14  Hideyuki SHIRAI  <shirai@meadowy.org> 
     2 
     3        * international/meadow.el (mw32-input-method): Avoid byte-compile 
     4        warnings; use (car (cddr x)) instead of (caddr x). 
     5 
    162005-12-13  Kyotaro HORIGUCHI  <horiguti@meadowy.org> 
    27 

  • trunk/lisp/international/meadow.el

    r3998 r4001  
    525525    (sit-for 0) 
    526526    (fep-force-on) 
    527        (let* ((pos (point)) 
    528                (ov (make-overlay (point) (1+ (point)))) 
    529                (ret (mw32-ime-input-method-function (char-to-string key))) 
    530                (result (append (car ret) nil))) 
    531       ;;; Continue to conversion if composition string cannot be 
    532       ;;; convert into single ascii character. 
    533          (unwind-protect 
    534               (while (or 
    535                       (> (length (cadr ret)) 1) 
    536                       (and 
    537                        (cadr ret) 
    538                        (not (eq (string-to-char (japanese-hankaku (cadr ret))) 
    539                                (caddr ret))))) 
    540                (insert (car ret)) 
    541                (move-overlay ov pos (point)) 
    542                (if input-method-highlight-flag 
    543                     (overlay-put ov 'face 'underline)) 
    544                (sit-for 0) 
    545                (setq ret (mw32-ime-input-method-function)) 
    546                (setq result (append result (append (car ret) nil)))) 
    547             (if (and (cadr ret) 
    548                      (eq (length (cadr ret)) 1) 
    549                      (eq (string-to-char (japanese-hankaku (cadr ret))) 
    550                         (caddr ret))) 
    551                (setq unread-input-method-events 
    552                       (cons (caddr ret) unread-input-method-events))) 
    553             (fep-force-off) 
    554             (delete-region pos (point)) 
    555             (delete-overlay ov)) 
    556          result))) 
     527    (let* ((pos (point)) 
     528           (ov (make-overlay (point) (1+ (point)))) 
     529           (ret (mw32-ime-input-method-function (char-to-string key))) 
     530           (result (append (car ret) nil))) 
     531;;; Continue to conversion if composition string cannot be 
     532;;; convert into single ascii character. 
     533      (unwind-protect 
     534          (while (or 
     535                  (> (length (cadr ret)) 1) 
     536                  (and 
     537                   (cadr ret) 
     538                   (not (eq (string-to-char (japanese-hankaku (cadr ret))) 
     539                            (car (cddr ret)))))) 
     540            (insert (car ret)) 
     541            (move-overlay ov pos (point)) 
     542            (if input-method-highlight-flag 
     543                (overlay-put ov 'face 'underline)) 
     544            (sit-for 0) 
     545            (setq ret (mw32-ime-input-method-function)) 
     546            (setq result (append result (append (car ret) nil)))) 
     547        (if (and (cadr ret) 
     548                 (eq (length (cadr ret)) 1) 
     549                 (eq (string-to-char (japanese-hankaku (cadr ret))) 
     550                     (car (cddr ret)))) 
     551            (setq unread-input-method-events 
     552                  (cons (car (cddr ret)) unread-input-method-events))) 
     553        (fep-force-off) 
     554        (delete-region pos (point)) 
     555        (delete-overlay ov)) 
     556      result))) 
    557557 
    558558;; dummy vals.