~ubuntu-branches/ubuntu/oneiric/dictionaries-common/oneiric

#! /bin/sh /usr/share/dpatch/dpatch-run

## 470_ispell.el_XEmacs-non-unified-chars-latin01.dpatch by Agustin Martin Domingo <agmartin@debian.org>

##

## All lines beginning with `## DP:' are a description of the patch.

## DP: Work around iso-8859-{1,15} charset unification problems in XEmacs. Very hackish!

 

Redefine ispell-get-coding-system function in ispell.el so if emacs

buffer-file-coding-system is set to iso-8859-15 and ispell-coding-system is selected as

iso-8859-1, this last is set to iso-8859-15. This should work around the iso-8859-{1,15}

emacs unification problem. 

 

This in practice means do not reencode in this case. Do nothing with utf-8 buffers.

 

@DPATCH@

diff -urNad '--exclude=CVS' '--exclude=.svn' '--exclude=.git' '--exclude=.arch' '--exclude=.hg' '--exclude=_darcs' '--exclude=.bzr' dictionaries-common~/support/emacsen/ispell.el dictionaries-common/support/emacsen/ispell.el

--- dictionaries-common~/support/emacsen/ispell.el      2011-02-24 15:01:42.000000000 +0100

+++ dictionaries-common/support/emacsen/ispell.el       2011-02-24 15:02:12.000000000 +0100

@@ -1338,6 +1338,36 @@

   (nth 7 (or (assoc ispell-current-dictionary ispell-local-dictionary-alist)

             (assoc ispell-current-dictionary ispell-dictionary-alist))))

 

+;;; Redefine this function. We do not overwrite previous definition just

+;;; to make patches cleaner

+(setq debian-xemacs-last-coding-message nil)

+(defun ispell-get-coding-system ()

+  (let* ((ispell-dict-encoding

+         (nth 7 (or (assoc ispell-current-dictionary ispell-local-dictionary-alist)

+                    (assoc ispell-current-dictionary ispell-dictionary-alist))))

+        (emacs-buffer-encoding (ispell-get-mime-charset))

+        (return-coding

+         (if (and (featurep 'xemacs)

+                  (string-equal emacs-buffer-encoding "iso-8859-15")

+                  (string-equal ispell-dict-encoding "iso-8859-1"))

+             emacs-buffer-encoding

+           ispell-dict-encoding)))

+    ;; Write some debugging code if asked so

+    (when (and (boundp 'debian-dict-common-debug)

+              debian-dict-common-debug)

+      (let ((tmp-debug-string

+            (format "- codings: bfcs: %s, ebcs: %s, idcs: %s"

+                    (if (boundp 'buffer-file-coding-system)

+                        buffer-file-coding-system

+                      "unbound")

+                    emacs-buffer-encoding

+                    return-coding)))

+       (unless (string-equal tmp-debug-string debian-xemacs-last-coding-message)

+         (message "%s" tmp-debug-string)

+         (setq debian-xemacs-last-coding-message tmp-debug-string))))

+    ;; and return coding-system value

+    return-coding))

+

 

 (defvar ispell-pdict-modified-p nil

   "Non-nil means personal dictionary has modifications to be saved.")