Improve interopability with Emacs 23.

diff --git a/gettext-tools/misc/ChangeLog b/gettext-tools/misc/ChangeLog
index 1aeaeb3b92fb0dcbca43f888d9e2dece635ba70f..85022958718f9421ada2806754334724ac958ae4 100644 (file)
--- a/gettext-tools/misc/ChangeLog
+++ b/gettext-tools/misc/ChangeLog
@@ -1,3 +1,12 @@
+2010-08-30  Bruno Haible  <bruno@clisp.org>
+
+       Improve interopability with Emacs 23.
+       * po-compat.el (po-find-file-coding-system-guts): Don't use codepages
+       API in Emacs >= 23.
+       * po-mode.el (po-mode-version-string): Bump to 2.21.
+       (po-ediff-buffers-exit-recursive, po-send-mail): Use
+       insert-buffer-substring instead of insert-buffer.
+
 2010-06-06  Bruno Haible  <bruno@clisp.org>
 
        New options --with-xz and --with-bzip2 for compressing the archive.

diff --git a/gettext-tools/misc/po-compat.el b/gettext-tools/misc/po-compat.el
index 02feafdbc4f2be3e41a9bd1410f02afb2b070770..64701ba8aade954a293bec39577de842056596d4 100644 (file)
--- a/gettext-tools/misc/po-compat.el
+++ b/gettext-tools/misc/po-compat.el
@@ -1,6 +1,6 @@
 ;;; po-compat.el --- basic support of PO translation files -*- coding: latin-1; -*-
 
-;; Copyright (C) 1995-1999, 2000-2002 Free Software Foundation, Inc.
+;; Copyright (C) 1995-1999, 2000-2002, 2010 Free Software Foundation, Inc.
 
 ;; Authors: François Pinard <pinard@iro.umontreal.ca>,
 ;;          Greg McGary <gkm@magilla.cichlid.com>,
@@ -201,6 +201,7 @@ Called through file-coding-system-alist, before the file is visited for real."
                 (list (cond ((and try-symbol (coding-system-p try-symbol))
                              try-symbol)
                             ((and po-EMACS20
+                                  (not (string-lessp "23" emacs-version))
                                   (string-match "\\`cp[1-9][0-9][0-9]?\\'"
                                                 try-string)
                                   (assoc (substring try-string 2)

diff --git a/gettext-tools/misc/po-mode.el b/gettext-tools/misc/po-mode.el
index a95644b91141e232d7a1b428184dcc1bff48e84b..0e6ef99bdeee26099fa5b4fa4c4bf4cd119df85a 100644 (file)
--- a/gettext-tools/misc/po-mode.el
+++ b/gettext-tools/misc/po-mode.el
@@ -62,7 +62,7 @@
 
 ;;; Code:
 \f
-(defconst po-mode-version-string "2.2" "\
+(defconst po-mode-version-string "2.21" "\
 Version number of this version of po-mode.el.")
 
 ;;; Emacs portability matters - part I.
@@ -2275,7 +2275,7 @@ For more info cf. `po-subedit-ediff'."
   (recursive-edit)
   (pop-to-buffer oldbuf)
   (delete-region (point-min) end)
-  (insert-buffer b2)
+  (insert-buffer-substring b2)
   (mapc 'kill-buffer `(,b1 ,b2))
   (display-buffer entry-buffer t))
 
@@ -3494,7 +3494,7 @@ Write to your team?  ('n' if writing to the Translation Project robot) ")))
             (re-search-forward
              (concat "^" (regexp-quote mail-header-separator) "\n"))
             (save-excursion
-              (insert-buffer buffer)
+              (insert-buffer-substring buffer)
               (shell-command-on-region
                (region-beginning) (region-end)
                (concat po-gzip-uuencode-command " " name ".gz") t))))))