Mercurial > hg > xemacs-beta

comparison lisp/egg/egg-jsymbol.el @ 98:0d2f883870bc r20-1b1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b1
author cvs
date Mon, 13 Aug 2007 09:13:56 +0200
parents 131b0175ea99
children
comparison
equal deleted inserted replaced
97:498bf5da1c90 98:0d2f883870bc
820 (let ((result nil) (ku 116)) 820 (let ((result nil) (ku 116))
821 (while (< 32 ku) 821 (while (< 32 ku)
822 (let ((ten 126)) 822 (let ((ten 126))
823 (while (< 32 ten) 823 (while (< 32 ten)
824 (setq result (cons 824 (setq result (cons
825 (let ((str (make-string 3 0))) 825 (let ((str (make-string 1 0)))
826 (aset str 0 lc-jp) 826 (aset str 0 (make-char (find-charset 'japanese-jisx0208) ku ten))
827 (aset str 1 (+ 128 ku))
828 (aset str 2 (+ 128 ten))
829 (cons str str)) 827 (cons str str))
830 result)) 828 result))
831 (setq ten (1- ten)))) 829 (setq ten (1- ten))))
832 (setq ku (1- ku))) 830 (setq ku (1- ku)))
833 result)) 831 result))
836 (let ((result nil) (ku 79)) 834 (let ((result nil) (ku 79))
837 (while (<= 48 ku) 835 (while (<= 48 ku)
838 (let ((ten 126)) 836 (let ((ten 126))
839 (while (<= 33 ten) 837 (while (<= 33 ten)
840 (setq result (cons 838 (setq result (cons
841 (let ((str (make-string 3 0))) 839 (let ((str (make-string 1 0)))
842 (aset str 0 lc-jp) 840 (aset str 0 (make-char (find-charset 'japanese-jisx0208) ku ten))
843 (aset str 1 (+ 128 ku))
844 (aset str 2 (+ 128 ten))
845 (cons str str)) 841 (cons str str))
846 result)) 842 result))
847 (setq ten (1- ten)))) 843 (setq ten (1- ten))))
848 (setq ku (1- ku))) 844 (setq ku (1- ku)))
849 result)) 845 result))
852 (let ((result nil) (ku 116)) 848 (let ((result nil) (ku 116))
853 (while (<= 80 ku) 849 (while (<= 80 ku)
854 (let ((ten 126)) 850 (let ((ten 126))
855 (while (<= 33 ten) 851 (while (<= 33 ten)
856 (setq result (cons 852 (setq result (cons
857 (let ((str (make-string 3 0))) ; by T.Shingu 853 (let ((str (make-string 1 0))) ; by T.Shingu
858 (aset str 0 lc-jp) 854 (aset str 0 (make-char (find-charset 'japanese-jisx0208) ku ten))
859 (aset str 1 (+ 128 ku))
860 (aset str 2 (+ 128 ten))
861 (cons str str)) 855 (cons str str))
862 result)) 856 result))
863 (setq ten (1- ten)))) 857 (setq ten (1- ten))))
864 (setq ku (1- ku))) 858 (setq ku (1- ku)))
865 result)) 859 result))
868 (let ((result nil) (ku 109)) 862 (let ((result nil) (ku 109))
869 (while (<= 34 ku) 863 (while (<= 34 ku)
870 (let ((ten 126)) 864 (let ((ten 126))
871 (while (<= 33 ten) 865 (while (<= 33 ten)
872 (setq result (cons 866 (setq result (cons
873 (let ((str (make-string 3 0))) 867 (let ((str (make-string 1 0)))
874 (aset str 0 lc-jp2) 868 (aset str 0 (make-char (find-charset 'japanese-jisx0212) ku ten))
875 (aset str 1 (+ 128 ku))
876 (aset str 2 (+ 128 ten))
877 (cons str str)) 869 (cons str str))
878 result)) 870 result))
879 (setq ten (1- ten)))) 871 (setq ten (1- ten))))
880 (setq ku (1- ku))) 872 (setq ku (1- ku)))
881 result)) 873 result))