forked from pool/emacs
bc0b8fdb3a
Copy from editors/emacs based on submit request 17729 from user WernerFink OBS-URL: https://build.opensuse.org/request/show/17729 OBS-URL: https://build.opensuse.org/package/show/openSUSE:Factory/emacs?expand=0&rev=35
36 lines
1.5 KiB
Diff
36 lines
1.5 KiB
Diff
--- lisp/ps-mule.el
|
|
+++ lisp/ps-mule.el 2009-08-11 14:41:44.493901698 +0200
|
|
@@ -183,6 +183,8 @@ See also the variable `ps-font-info-data
|
|
|
|
(defconst ps-mule-font-info-database-latin
|
|
'((iso-8859-1
|
|
+ (normal nil nil))
|
|
+ (iso-8859-15
|
|
(normal nil nil)))
|
|
"Sample setting of `ps-mule-font-info-database' to use latin fonts.")
|
|
|
|
--- lisp/textmodes/ispell.el
|
|
+++ lisp/textmodes/ispell.el 2007-05-15 18:20:20.000000000 +0200
|
|
@@ -1298,10 +1298,18 @@ Protects against bogus binding of `enabl
|
|
(defun ispell-get-extended-character-mode ()
|
|
(nth 6 (or (assoc ispell-current-dictionary ispell-local-dictionary-alist)
|
|
(assoc ispell-current-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 (or (assoc ispell-current-dictionary ispell-local-dictionary-alist)
|
|
+; (assoc ispell-current-dictionary ispell-dictionary-alist))))
|
|
(defun ispell-get-coding-system ()
|
|
- (nth 7 (or (assoc ispell-current-dictionary ispell-local-dictionary-alist)
|
|
- (assoc ispell-current-dictionary ispell-dictionary-alist))))
|
|
-
|
|
+ (let ((sys (nth 7 (or (assoc ispell-current-dictionary ispell-local-dictionary-alist)
|
|
+ (assoc ispell-current-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.")
|