[Emacs-diffs] Changes to emacs/lisp/ps-print.el

[Juanma Barranquero]

Index: emacs/lisp/ps-print.el
diff -c emacs/lisp/ps-print.el:1.156 emacs/lisp/ps-print.el:1.157
*** emacs/lisp/ps-print.el:1.156        Tue Mar 29 05:06:48 2005
--- emacs/lisp/ps-print.el      Mon Jun  6 15:17:32 2005
***************
*** 3019,3025 ****
     NUMBER     It's a real value between 0.0 (black) and 1.0 (white) that
                indicate the gray color.
  
!    COLOR-NAME It's a string wich contains the color name.  For example:
                \"yellow\".
  
     LIST               It's a list of RGB values, that is a list of three real 
values
--- 3019,3025 ----
     NUMBER     It's a real value between 0.0 (black) and 1.0 (white) that
                indicate the gray color.
  
!    COLOR-NAME It's a string which contains the color name.  For example:
                \"yellow\".
  
     LIST               It's a list of RGB values, that is a list of three real 
values
***************
*** 3059,3065 ****
     NUMBER     It's a real value between 0.0 (black) and 1.0 (white) that
                indicate the gray color.
  
!    COLOR-NAME It's a string wich contains the color name.  For example:
                \"yellow\".
  
     LIST               It's a list of RGB values, that is a list of three real 
values
--- 3059,3065 ----
     NUMBER     It's a real value between 0.0 (black) and 1.0 (white) that
                indicate the gray color.
  
!    COLOR-NAME It's a string which contains the color name.  For example:
                \"yellow\".
  
     LIST               It's a list of RGB values, that is a list of three real 
values
***************
*** 6155,6161 ****
      (if (and (boundp 'ucs-mule-8859-to-mule-unicode)
           (char-table-p ucs-mule-8859-to-mule-unicode))
        (map-char-table
!        #'(lambda (k v) 
             (if (and v (eq (char-charset v) 'latin-iso8859-1) (/= k v))
                 (aset tbl k v)))
         ucs-mule-8859-to-mule-unicode))
--- 6155,6161 ----
      (if (and (boundp 'ucs-mule-8859-to-mule-unicode)
           (char-table-p ucs-mule-8859-to-mule-unicode))
        (map-char-table
!        #'(lambda (k v)
             (if (and v (eq (char-charset v) 'latin-iso8859-1) (/= k v))
                 (aset tbl k v)))
         ucs-mule-8859-to-mule-unicode))