# HG changeset patch # User Stefan Monnier # Date 1121306790 0 # Node ID 4ca52e899ec680899d8e4e7470f5962360bbc103 # Parent e2e79eb7ab712697f3556391dccb1ea60ad33c42 Fix up commenting style. diff -r e2e79eb7ab71 -r 4ca52e899ec6 lisp/help-fns.el --- a/lisp/help-fns.el Thu Jul 14 01:19:10 2005 +0000 +++ b/lisp/help-fns.el Thu Jul 14 02:06:30 2005 +0000 @@ -217,13 +217,13 @@ (intern (upcase name)))))) arglist))) -;;; Could be this, if we make symbol-file do the work below. -;;; (defun help-C-file-name (subr-or-var kind) -;;; "Return the name of the C file where SUBR-OR-VAR is defined. -;;; KIND should be `var' for a variable or `subr' for a subroutine." -;;; (symbol-file (if (symbolp subr-or-var) subr-or-var -;;; (subr-name subr-or-var)) -;;; (if (eq kind 'var) 'defvar 'defun))) +;; Could be this, if we make symbol-file do the work below. +;; (defun help-C-file-name (subr-or-var kind) +;; "Return the name of the C file where SUBR-OR-VAR is defined. +;; KIND should be `var' for a variable or `subr' for a subroutine." +;; (symbol-file (if (symbolp subr-or-var) subr-or-var +;; (subr-name subr-or-var)) +;; (if (eq kind 'var) 'defvar 'defun))) ;;;###autoload (defun help-C-file-name (subr-or-var kind) "Return the name of the C file where SUBR-OR-VAR is defined. @@ -715,5 +715,5 @@ (provide 'help-fns) -;;; arch-tag: 9e10331c-ae81-4d13-965d-c4819aaab0b3 +;; arch-tag: 9e10331c-ae81-4d13-965d-c4819aaab0b3 ;;; help-fns.el ends here