From: yamaoka <yamaoka>
Date: Tue, 24 Feb 2004 09:14:32 +0000 (+0000)
Subject: Synch to No Gnus 200402240913.
X-Git-Tag: t-gnus-6_17_4-quimby-~1064
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=ef7f191afabd011e55eb07ee5da9d58086c9e291;p=elisp%2Fgnus.git-

Synch to No Gnus 200402240913.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 29b96d7..4eceb64 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2004-02-24  Katsumi Yamaoka  <yamaoka@jpl.org>
 
+	* dgnushack.el (with-syntax-table): Redefine it for XEmacs 21.5.
+
 	* message.el (message-setup-fill-variables): Add mml tags to
 	paragraph-start and paragraph-separate.  Suggested by Andrew Korty
 	<ajk@iu.edu>.
diff --git a/lisp/dgnushack.el b/lisp/dgnushack.el
index 7b530a5..0b09ff6 100644
--- a/lisp/dgnushack.el
+++ b/lisp/dgnushack.el
@@ -245,6 +245,27 @@ Try to re-configure with --with-addpath=FLIM_PATH and run make again.
 	   load-path)))
 (add-path "semi")
 
+(when (and (featurep 'xemacs)
+	   (let ((table (copy-syntax-table emacs-lisp-mode-syntax-table)))
+	     (modify-syntax-entry ?= " " table)
+	     (with-temp-buffer
+	       (with-syntax-table table
+		 (insert "foo=bar")
+		 (goto-char (point-min))
+		 (forward-sexp 1)
+		 (eolp)))))
+  ;; The original `with-syntax-table' uses `copy-syntax-table' which
+  ;; doesn't seem to copy modified syntax entries in XEmacs 21.5.
+  (defmacro with-syntax-table (syntab &rest body)
+    "Evaluate BODY with the SYNTAB as the current syntax table."
+    `(let ((stab (syntax-table)))
+       (unwind-protect
+	   (progn
+	     ;;(set-syntax-table (copy-syntax-table ,syntab))
+	     (set-syntax-table ,syntab)
+	     ,@body)
+	 (set-syntax-table stab)))))
+
 (push srcdir load-path)
 (load (expand-file-name "lpath.el" srcdir) nil t t)