Mercurial > hg > xemacs-beta
changeset 2137:67e24d0cc80f
[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 | 9d6ec778e1e8 |
| children | 2f37290328b0 |
| files | lisp/ChangeLog lisp/help.el |
| diffstat | 2 files changed, 4 insertions(+), 11 deletions(-) [+] |
line wrap: on
line diff
--- 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
--- 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.