aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorReuben Thomas2016-12-04 14:35:42 +0000
committerReuben Thomas2016-12-13 19:43:49 +0000
commit8245e5b9b00b4a839aa201d7883d5e55e8f66879 (patch)
tree113571e891f809314801dc7ddd60f1bfddd9a44d
parentff5deddc83ea07916c161457920bee301dc3e5f8 (diff)
downloademacs-8245e5b9b00b4a839aa201d7883d5e55e8f66879.tar.gz
emacs-8245e5b9b00b4a839aa201d7883d5e55e8f66879.zip
Remove XEmacs-specific code dealing with enable-multibyte-characters
* lisp/textmodes/ispell.el (ispell-decode-string): (ispell-init-process): Remove XEmacs-specific guard.
-rw-r--r--lisp/textmodes/ispell.el19
1 files changed, 3 insertions, 16 deletions
diff --git a/lisp/textmodes/ispell.el b/lisp/textmodes/ispell.el
index 6a28db624d5..f0bb5693515 100644
--- a/lisp/textmodes/ispell.el
+++ b/lisp/textmodes/ispell.el
@@ -1451,17 +1451,8 @@ used as key in `ispell-local-dictionary-alist' and `ispell-dictionary-alist'.")
1451This is passed to the Ispell process using the `-p' switch.") 1451This is passed to the Ispell process using the `-p' switch.")
1452 1452
1453(defun ispell-decode-string (str) 1453(defun ispell-decode-string (str)
1454 "Decodes multibyte character strings. 1454 "Decodes multibyte character strings."
1455Protects against bogus binding of `enable-multibyte-characters' in XEmacs." 1455 (decode-coding-string str (ispell-get-coding-system)))
1456 ;; FIXME: enable-multibyte-characters is read-only, so bogus bindings are
1457 ;; really nasty (they signal an error in Emacs): Who does that? --Stef
1458 (if (and (or (featurep 'xemacs)
1459 (and (boundp 'enable-multibyte-characters)
1460 enable-multibyte-characters))
1461 (fboundp 'decode-coding-string)
1462 (ispell-get-coding-system))
1463 (decode-coding-string str (ispell-get-coding-system))
1464 str))
1465 1456
1466;; Return a string decoded from Nth element of the current dictionary. 1457;; Return a string decoded from Nth element of the current dictionary.
1467(defun ispell-get-decoded-string (n) 1458(defun ispell-get-decoded-string (n)
@@ -2871,11 +2862,7 @@ Keeps argument list for future Ispell invocations for no async support."
2871 2862
2872 (if ispell-async-processp 2863 (if ispell-async-processp
2873 (set-process-filter ispell-process 'ispell-filter)) 2864 (set-process-filter ispell-process 'ispell-filter))
2874 ;; Protect against XEmacs bogus binding of `enable-multibyte-characters'. 2865 (if (and enable-multibyte-characters
2875 (if (and (or (featurep 'xemacs)
2876 (and (boundp 'enable-multibyte-characters)
2877 enable-multibyte-characters))
2878 (fboundp 'set-process-coding-system)
2879 ;; Evidently, some people use the synchronous mode even 2866 ;; Evidently, some people use the synchronous mode even
2880 ;; when async subprocesses are supported, in which case 2867 ;; when async subprocesses are supported, in which case
2881 ;; set-process-coding-system is bound, but 2868 ;; set-process-coding-system is bound, but