From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Wed, 19 Oct 2005 19:09:58 +0000 (+0000)
Subject: (savehist-coding-system): Revert to checking XEmacs.
X-Git-Tag: emacs-pretest-22.0.90~6500
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e27e4e7a3b9aea1478806ea5d29c0db23e413cd0;p=emacs.git

(savehist-coding-system): Revert to checking XEmacs.
---

diff --git a/lisp/savehist.el b/lisp/savehist.el
index de0f1504ff8..efbc1e934a6 100644
--- a/lisp/savehist.el
+++ b/lisp/savehist.el
@@ -138,7 +138,12 @@ the user's privacy."
   :type 'integer
   :group 'savehist)
 
-(defvar savehist-coding-system (if (coding-system-p 'utf-8) 'utf-8 'iso-2022-8)
+(defvar savehist-coding-system
+  ;; UTF-8 is usually preferable to ISO-2022-8 when available, but under
+  ;; XEmacs, UTF-8 is provided by external packages, and may not always be
+  ;; available, so even if it currently is available, we prefer not to
+  ;; use is.
+  (if (featurep 'xemacs) 'iso-2022-8 'utf-8)
   "The coding system savehist uses for saving the minibuffer history.
 Changing this value while Emacs is running is supported, but considered
 unwise, unless you know what you are doing.")