Mercurial > hg > xemacs-beta

diff lisp/help.el @ 2137:67e24d0cc80f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2004-06-17 11:23:09 by stephent] remove duplicate with-syntax-table <87oenil9eu.fsf@tleepslib.sk.tsukuba.ac.jp>
author stephent
date Thu, 17 Jun 2004 11:23:11 +0000
parents 488b2f76d852
children 445bd1969ed0
line wrap: on
line diff
--- 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.