Fix maintainer email. Emacs 20/21 compatibility.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index aff4ab051e21b0c0bfcafe1dc3dc8885d3587edd..aadf13bedbe5ca3cc0c0371567e1736f4f88bcec 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,15 @@
+2006-11-29  Vinicius Jose Latorre  <viniciusjl@ig.com.br>
+
+       * ps-bdf.el : Fix maintainer email.
+
+       * ps-mule.el : Fix maintainer email.  Define functions for Emacs 20
+       compatibility.
+
+       * ps-print.el : Fix maintainer email.  Define functions for Emacs 20 &
+       21 compatibility.
+       (ps-print-quote): Replace '?\s' by '?\ ' to keep compatibility with
+       Emacs 20 & 21.
+
 2006-11-29  J.D. Smith  <jdsmith@as.arizona.edu>
 
        * progmodes/idlwave.el (idlwave-auto-fill): Remove

diff --git a/lisp/ps-bdf.el b/lisp/ps-bdf.el
index 0c3736fab9e8bcad091b2c390de677f57e582ea9..154566312aba82e649f5bd60b6c283da15785622 100644 (file)
--- a/lisp/ps-bdf.el
+++ b/lisp/ps-bdf.el
@@ -6,7 +6,7 @@
 ;;   Registration Number H14PRO021
 
 ;; Keywords: wp, BDF, font, PostScript
-;; Maintainer: Kenichi Handa <handa@etl.go.jp>
+;; Maintainer: Kenichi Handa <handa@m17n.org>
 ;; Time-stamp: <2003/07/11 21:13:44 vinicius>
 
 ;; This file is part of GNU Emacs.

diff --git a/lisp/ps-mule.el b/lisp/ps-mule.el
index c4a19cd387105f72e38e6719a6ce4887d3aaa110..5d2e3be573f523a0fa468e485ab33a2575244e45 100644 (file)
--- a/lisp/ps-mule.el
+++ b/lisp/ps-mule.el
@@ -3,12 +3,12 @@
 ;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004,
 ;;   2005, 2006 Free Software Foundation, Inc.
 
-;; Author: Vinicius Jose Latorre <vinicius@cpqd.com.br>
-;;     Kenichi Handa <handa@etl.go.jp> (multi-byte characters)
-;; Maintainer: Kenichi Handa <handa@etl.go.jp> (multi-byte characters)
-;;     Vinicius Jose Latorre <vinicius@cpqd.com.br>
+;; Author: Vinicius Jose Latorre <viniciusjl@ig.com.br>
+;;     Kenichi Handa <handa@m17n.org> (multi-byte characters)
+;; Maintainer: Kenichi Handa <handa@m17n.org> (multi-byte characters)
+;;     Vinicius Jose Latorre <viniciusjl@ig.com.br>
 ;; Keywords: wp, print, PostScript, multibyte, mule
-;; Time-stamp: <2003/05/14 22:19:41 vinicius>
+;; Time-stamp: <2006/11/11 16:58:10 vinicius>
 
 ;; This file is part of GNU Emacs.
 
@@ -163,7 +163,34 @@
       (defalias 'string-make-multibyte 'copy-sequence))
   (or (fboundp 'encode-char)
       (defun encode-char (ch ccs)
-       ch)))
+       ch))
+
+  ;; For Emacs 20 compatibility
+  (if (and (boundp 'mule-version)
+          (string< (symbol-value 'mule-version) "5.0"))
+      ;; mule package is loaded and mule version is lesser than 5.0
+      (progn
+       (or (fboundp 'encode-composition-rule)
+           (defun encode-composition-rule (rule)
+             (if (= (car rule) 4) (setcar rule 10))
+             (if (= (cdr rule) 4) (setcdr rule 10))
+             (+ (* (car rule) 12) (cdr rule))))
+       (or (fboundp 'find-composition)
+           (defun find-composition (pos &rest ignore)
+             (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))))))))
+    ;; mule package isn't loaded
+    (or (fboundp 'encode-composition-rule)
+       (defun encode-composition-rule (rule)
+         130))
+    (or (fboundp 'find-composition)
+       (defun find-composition (pos &rest ignore)
+         nil))
+    ))
 
 
 ;;;###autoload

diff --git a/lisp/ps-print.el b/lisp/ps-print.el
index 32f2b88189026cddb82b07959c6a8daf2280b3e3..27f727d743f6c62807af8c9f5337887086fd12bb 100644 (file)
--- a/lisp/ps-print.el
+++ b/lisp/ps-print.el
@@ -6,8 +6,8 @@
 ;; Author: Jim Thompson (was <thompson@wg2.waii.com>)
 ;;     Jacques Duthen (was <duthen@cegelec-red.fr>)
 ;;     Vinicius Jose Latorre <viniciusjl@ig.com.br>
-;;     Kenichi Handa <handa@etl.go.jp> (multi-byte characters)
-;; Maintainer: Kenichi Handa <handa@etl.go.jp> (multi-byte characters)
+;;     Kenichi Handa <handa@m17n.org> (multi-byte characters)
+;; Maintainer: Kenichi Handa <handa@m17n.org> (multi-byte characters)
 ;;     Vinicius Jose Latorre <viniciusjl@ig.com.br>
 ;; Keywords: wp, print, PostScript
 ;; Time-stamp: <2005/06/27 00:57:22 vinicius>
@@ -1545,7 +1545,13 @@ Please send all bug fixes and enhancements to
        (defun ps-face-background-name (face)
         (ps-xemacs-color-name (face-background face)))
        )
-      (t                               ; emacs
+      ((<= emacs-major-version 21)     ; emacs 20 & 21
+       (defvar mark-active nil)
+       (defun ps-mark-active-p ()
+        mark-active)
+       (defalias 'ps-face-foreground-name 'face-foreground)
+       (defalias 'ps-face-background-name 'face-background))
+      (t                               ; emacs 22 or higher
        (defvar mark-active nil)
        (defun ps-mark-active-p ()
         mark-active)
@@ -3760,7 +3766,9 @@ If `ps-prefix-quote' is nil, it's set to t after generating string."
                "(setq ")
              key
              (if (> col len)
-                 (make-string (- col len) ?\s)
+                 ;; to keep compatibility with Emacs 20 & 21:
+                 ;; DO NOT REPLACE `?\ ' BY `?\s'
+                 (make-string (- col len) ?\ )
                " ")
              (ps-value-string val))))
    (t "")