/[emacs]/emacs/lisp/international/quail.el
ViewVC logotype

Diff of /emacs/lisp/international/quail.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.144 by handa, Tue Oct 25 06:10:23 2005 UTC revision 1.145 by jurta, Fri Oct 28 05:47:31 2005 UTC
# Line 1598  Quail map for the sequence." Line 1598  Quail map for the sequence."
1598    (or (and (consp def) (aref (cdr def) (car (car def))))    (or (and (consp def) (aref (cdr def) (car (car def))))
1599        def        def
1600        (and (> len 1)        (and (> len 1)
1601             (let ((str (quail-get-current-str             (let* ((str (quail-get-current-str
1602                         (1- len)                          (1- len)
1603                         (quail-map-definition (quail-lookup-key                          (quail-map-definition (quail-lookup-key
1604                                                quail-current-key (1- len))))))                                                 quail-current-key (1- len)))))
1605                      (substr1 (substring quail-current-key (1- len) len))
1606                      (str1 (and (quail-deterministic)
1607                                 (quail-get-current-str
1608                                  1
1609                                  (quail-map-definition (quail-lookup-key
1610                                                         substr1 1))))))
1611               (if str               (if str
1612                   (concat (if (stringp str) str (char-to-string str))                   (concat (if (stringp str) str (char-to-string str))
1613                           (substring quail-current-key (1- len) len)))))))                           (if str1
1614                                 (if (stringp str1) str1 (char-to-string str1))
1615                               substr1)))))))
1616    
1617  (defvar quail-guidance-translations-starting-column 20)  (defvar quail-guidance-translations-starting-column 20)
1618    

Legend:
Removed from v.1.144  
changed lines
  Added in v.1.145

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26