/[emacs]/emacs/lisp/ps-mule.el
ViewVC logotype

Diff of /emacs/lisp/ps-mule.el

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

revision 1.32.4.6 by handa, Fri Apr 16 12:50:08 2004 UTC revision 1.32.4.7 by miles, Fri Aug 27 07:00:26 2004 UTC
# Line 204  Any other value is treated as nil." Line 204  Any other value is treated as nil."
204                   (const bdf-font-except-latin) (const :tag "nil" nil))                   (const bdf-font-except-latin) (const :tag "nil" nil))
205    :group 'ps-print-font)    :group 'ps-print-font)
206    
   
 (eval-and-compile  
   ;; For Emacs 20.2 and the earlier version.  
   (if (and (boundp 'mule-version)  
            (not (string< (symbol-value 'mule-version) "4.0")))  
       ;; mule package is loaded  
       (progn  
         (defalias 'ps-mule-next-point '1+)  
         (defalias 'ps-mule-chars-in-string 'length)  
         (defalias 'ps-mule-string-char 'aref)  
         (defsubst ps-mule-next-index (str i) (1+ i)))  
     ;; mule package isn't loaded or mule version lesser than 4.0  
     (defun ps-mule-next-point (arg)  
       (save-excursion (goto-char arg) (forward-char 1) (point)))  
     (defun ps-mule-chars-in-string (string)  
       (/ (length string)  
          (charset-bytes (char-charset (string-to-char string)))))  
     (defun ps-mule-string-char (string idx)  
       (string-to-char (substring string idx)))  
     (defun ps-mule-next-index (string i)  
       (+ i (charset-bytes (char-charset (string-to-char string)))))  
     )  
   (if (boundp 'mule-version)  
       ;; For Emacs 20.4 and the earlier version.  
       (if (string< (symbol-value 'mule-version) "5.0")  
           ;; mule package is loaded and mule version is lesser than 5.0  
           (progn  
             (defun encode-composition-rule (rule)  
               (if (= (car rule) 4) (setcar rule 10))  
               (if (= (cdr rule) 4) (setcdr rule 10))  
               (+ (* (car rule) 12) (cdr rule)))  
             (defun ps-mule-search-composition (from to)  
               (save-excursion  
                 (goto-char from)  
                 (search-forward "\200" to t)))  
             (defun ps-mule-get-composition (pos)  
               (let ((ch (char-after pos)))  
                 (and ch (eq (char-charset ch) 'composition)  
                      (let ((components  
                             (decompose-composite-char ch 'vector t)))  
                        (list pos (ps-mule-next-point pos) components  
                              (integerp (aref components 1)) nil  
                              (char-width ch)))))))  
         (defun ps-mule-search-composition (from to)  
           (let (cmp-info)  
             (while (and (< from to)  
                         (setq cmp-info (find-composition from to))  
                         (not (nth 2 cmp-info)))  
               (setq from (nth 1 cmp-info)))  
             (< from to)))  
         (defun ps-mule-get-composition (pos)  
           (find-composition pos nil nil t)))  
   
     ;; mule package isn't loaded  
     (or (fboundp 'encode-composition-rule)  
         (defun encode-composition-rule (rule)  
           130))  
     (defun ps-mule-search-composition (&rest ignore)  
       nil)  
     (defun ps-mule-get-composition (&rest ignore)  
       nil)  
     ))  
   
207  (defvar ps-mule-font-info-database  (defvar ps-mule-font-info-database
208    nil    nil
209    "Alist of charsets with the corresponding font information.    "Alist of charsets with the corresponding font information.

Legend:
Removed from v.1.32.4.6  
changed lines
  Added in v.1.32.4.7

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