File emacs-21.3-ps-mule.patch of Package emacs

Overview Repositories Revisions Requests Users Attributes Meta

File emacs-21.3-ps-mule.patch of Package emacs (Revision 7f0cf5af07e419bd4b72a917789e7062)

Currently displaying revision 7f0cf5af07e419bd4b72a917789e7062 , Show latest

--- lisp/ps-mule.el
+++ lisp/ps-mule.el	2003-07-22 13:18:56.000000000 +0200
@@ -300,7 +300,9 @@
 
 (defconst ps-mule-font-info-database-latin
   '((latin-iso8859-1
-     (normal nil nil iso-latin-1)))
+     (normal nil nil iso-latin-1))
+    (latin-iso8859-15
+     (normal nil nil iso-latin-9)))
   "Sample setting of `ps-mule-font-info-database' to use latin fonts.")
 
 (defcustom ps-mule-font-info-database-default
--- lisp/textmodes/ispell.el
+++ lisp/textmodes/ispell.el	2003-07-24 12:49:02.000000000 +0200
@@ -1031,9 +1031,17 @@
   (nth 5 (assoc ispell-dictionary ispell-dictionary-alist)))
 (defun ispell-get-extended-character-mode ()
   (nth 6 (assoc ispell-dictionary ispell-dictionary-alist)))
+;;
+;; Most languages in ISO-8859-15 for EURO symbols uses ISO-8859-1 chars
+;(defun ispell-get-coding-system ()
+;  (nth 7 (assoc ispell-dictionary ispell-dictionary-alist)))
+;;
 (defun ispell-get-coding-system ()
-  (nth 7 (assoc ispell-dictionary ispell-dictionary-alist)))
-
+  (let ((sys (nth 7 (assoc ispell-dictionary ispell-dictionary-alist))))
+       (if (and (boundp 'buffer-file-coding-system)
+                (eq buffer-file-coding-system 'iso-latin-9)
+                (eq sys 'iso-latin-1))
+           'iso-latin-9 sys)))
 
 (defvar ispell-pdict-modified-p nil
   "Non-nil means personal dictionary has modifications to be saved.")

Places

File emacs-21.3-ps-mule.patch of Package emacs (Revision 7f0cf5af07e419bd4b72a917789e7062)

Places