# HG changeset patch
# User stephent
# Date 1087471391 0
# Node ID 67e24d0cc80f8c8159c1240ddb35bf8b14d0c527
# Parent  9d6ec778e1e8004471aaeed7af4f76371552ef93
[xemacs-hg @ 2004-06-17 11:23:09 by stephent]
remove duplicate with-syntax-table <87oenil9eu.fsf@tleepslib.sk.tsukuba.ac.jp>

diff -r 9d6ec778e1e8 -r 67e24d0cc80f lisp/ChangeLog
--- a/lisp/ChangeLog	Thu Jun 17 03:08:28 2004 +0000
+++ b/lisp/ChangeLog	Thu Jun 17 11:23:11 2004 +0000
@@ -1,3 +1,7 @@
+2004-06-17  Stephen J. Turnbull  <stephen@xemacs.org>
+
+	* help.el (with-syntax-table): Removed.  (Prefer version in subr.el.)
+
 2004-06-16  Jerry James  <james@xemacs.org>
 
 	* cl.el (cl-set-substring): Increment start by the length of the
diff -r 9d6ec778e1e8 -r 67e24d0cc80f lisp/help.el
--- a/lisp/help.el	Thu Jun 17 03:08:28 2004 +0000
+++ b/lisp/help.el	Thu Jun 17 11:23:11 2004 +0000
@@ -1011,17 +1011,6 @@
 )
   help-map)
 
-(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))
-	   ,@body)
-       (set-syntax-table stab))))
-(put 'with-syntax-table 'lisp-indent-function 1)
-(put 'with-syntax-table 'edebug-form-spec '(form body))
-
 (defun function-called-at-point ()
   "Return the function which is called by the list containing point.
 If that gives no function, return the function whose name is around point.