diff options
| author | Stefan Monnier | 2005-07-14 02:06:30 +0000 |
|---|---|---|
| committer | Stefan Monnier | 2005-07-14 02:06:30 +0000 |
| commit | d4b4dfc6c224a19009ee0911f383f6fbd9ad37e6 (patch) | |
| tree | 5b129d641476483f2ee5b40eb6b6ba8b9aa80503 | |
| parent | c94112bff881ab5f180fda245f1cd38e920fbcca (diff) | |
| download | emacs-d4b4dfc6c224a19009ee0911f383f6fbd9ad37e6.tar.gz emacs-d4b4dfc6c224a19009ee0911f383f6fbd9ad37e6.zip | |
Fix up commenting style.
| -rw-r--r-- | lisp/help-fns.el | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/lisp/help-fns.el b/lisp/help-fns.el index 6160391df95..93c34af7a5c 100644 --- a/lisp/help-fns.el +++ b/lisp/help-fns.el | |||
| @@ -217,13 +217,13 @@ ARGLIST can also be t or a string of the form \"(FUN ARG1 ARG2 ...)\"." | |||
| 217 | (intern (upcase name)))))) | 217 | (intern (upcase name)))))) |
| 218 | arglist))) | 218 | arglist))) |
| 219 | 219 | ||
| 220 | ;;; Could be this, if we make symbol-file do the work below. | 220 | ;; Could be this, if we make symbol-file do the work below. |
| 221 | ;;; (defun help-C-file-name (subr-or-var kind) | 221 | ;; (defun help-C-file-name (subr-or-var kind) |
| 222 | ;;; "Return the name of the C file where SUBR-OR-VAR is defined. | 222 | ;; "Return the name of the C file where SUBR-OR-VAR is defined. |
| 223 | ;;; KIND should be `var' for a variable or `subr' for a subroutine." | 223 | ;; KIND should be `var' for a variable or `subr' for a subroutine." |
| 224 | ;;; (symbol-file (if (symbolp subr-or-var) subr-or-var | 224 | ;; (symbol-file (if (symbolp subr-or-var) subr-or-var |
| 225 | ;;; (subr-name subr-or-var)) | 225 | ;; (subr-name subr-or-var)) |
| 226 | ;;; (if (eq kind 'var) 'defvar 'defun))) | 226 | ;; (if (eq kind 'var) 'defvar 'defun))) |
| 227 | ;;;###autoload | 227 | ;;;###autoload |
| 228 | (defun help-C-file-name (subr-or-var kind) | 228 | (defun help-C-file-name (subr-or-var kind) |
| 229 | "Return the name of the C file where SUBR-OR-VAR is defined. | 229 | "Return the name of the C file where SUBR-OR-VAR is defined. |
| @@ -715,5 +715,5 @@ BUFFER should be a buffer or a buffer name." | |||
| 715 | 715 | ||
| 716 | (provide 'help-fns) | 716 | (provide 'help-fns) |
| 717 | 717 | ||
| 718 | ;;; arch-tag: 9e10331c-ae81-4d13-965d-c4819aaab0b3 | 718 | ;; arch-tag: 9e10331c-ae81-4d13-965d-c4819aaab0b3 |
| 719 | ;;; help-fns.el ends here | 719 | ;;; help-fns.el ends here |