Mercurial > hg > xemacs-beta

comparison 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
comparison
equal deleted inserted replaced
2136:9d6ec778e1e8 2137:67e24d0cc80f
1008 \\[view-sample-init-el] View the sample init.el that comes with XEmacs. 1008 \\[view-sample-init-el] View the sample init.el that comes with XEmacs.
1009 \\[help-with-tutorial] XEmacs learn-by-doing tutorial. 1009 \\[help-with-tutorial] XEmacs learn-by-doing tutorial.
1010 \\[describe-no-warranty] Information on absence of warranty for XEmacs." 1010 \\[describe-no-warranty] Information on absence of warranty for XEmacs."
1011 ) 1011 )
1012 help-map) 1012 help-map)
1013
1014 (defmacro with-syntax-table (syntab &rest body)
1015 "Evaluate BODY with the SYNTAB as the current syntax table."
1016 `(let ((stab (syntax-table)))
1017 (unwind-protect
1018 (progn
1019 (set-syntax-table (copy-syntax-table ,syntab))
1020 ,@body)
1021 (set-syntax-table stab))))
1022 (put 'with-syntax-table 'lisp-indent-function 1)
1023 (put 'with-syntax-table 'edebug-form-spec '(form body))
1024 1013
1025 (defun function-called-at-point () 1014 (defun function-called-at-point ()
1026 "Return the function which is called by the list containing point. 1015 "Return the function which is called by the list containing point.
1027 If that gives no function, return the function whose name is around point. 1016 If that gives no function, return the function whose name is around point.
1028 If that doesn't give a function, return nil." 1017 If that doesn't give a function, return nil."