From: yamaoka <yamaoka>
Date: Wed, 23 Oct 2002 09:49:26 +0000 (+0000)
Subject: Fix last change.
X-Git-Tag: t-gnus-6_15_8-05-quimby~11
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=0a871e70e99ed22bd3c449f60794342f58f9c2a2;p=elisp%2Fgnus.git-

Fix last change.
---

diff --git a/lisp/lpath.el b/lisp/lpath.el
index 5f11c24..9b25534 100644
--- a/lisp/lpath.el
+++ b/lisp/lpath.el
@@ -68,13 +68,13 @@
 (let ((functions
        (cond
 	((featurep 'xemacs)
-	 nil)
+	 '(frame-char-height frame-char-width))
 	((>= emacs-major-version 21)
 	 '(function-max-args smiley-encode-buffer))
 	((boundp 'MULE)
-	 '(coding-system-get
-	   coding-system-list coding-system-to-mime-charset compose-mail
-	   file-name-extension find-coding-systems-for-charsets
+	 '(charsetp
+	   coding-system-get coding-system-list coding-system-to-mime-charset
+	   compose-mail file-name-extension find-coding-systems-for-charsets
 	   find-coding-systems-region function-max-args get-charset-property
 	   smiley-encode-buffer smtpmail-send-it))
 	(t
@@ -84,11 +84,12 @@
       (variables
        (cond
 	((featurep 'xemacs)
-	 nil)
+	 '(font-lock-defaults))
 	((>= emacs-major-version 21)
 	 nil)
 	((boundp 'MULE)
-	 nil)
+	 '(adaptive-fill-first-line-regexp
+	   default-enable-multibyte-characters enable-multibyte-characters))
 	(t
 	 nil)))
       (common-vars