217 |
(intern (upcase name)))))) |
(intern (upcase name)))))) |
218 |
arglist))) |
arglist))) |
219 |
|
|
220 |
;;; Could be this, if we make symbol-file do the work below. |
;; Could be this, if we make symbol-file do the work below. |
221 |
;;; (defun help-C-file-name (subr-or-var kind) |
;; (defun help-C-file-name (subr-or-var kind) |
222 |
;;; "Return the name of the C file where SUBR-OR-VAR is defined. |
;; "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." |
;; KIND should be `var' for a variable or `subr' for a subroutine." |
224 |
;;; (symbol-file (if (symbolp subr-or-var) subr-or-var |
;; (symbol-file (if (symbolp subr-or-var) subr-or-var |
225 |
;;; (subr-name subr-or-var)) |
;; (subr-name subr-or-var)) |
226 |
;;; (if (eq kind 'var) 'defvar 'defun))) |
;; (if (eq kind 'var) 'defvar 'defun))) |
227 |
;;;###autoload |
;;;###autoload |
228 |
(defun help-C-file-name (subr-or-var kind) |
(defun help-C-file-name (subr-or-var kind) |
229 |
"Return the name of the C file where SUBR-OR-VAR is defined. |
"Return the name of the C file where SUBR-OR-VAR is defined. |
715 |
|
|
716 |
(provide 'help-fns) |
(provide 'help-fns) |
717 |
|
|
718 |
;;; arch-tag: 9e10331c-ae81-4d13-965d-c4819aaab0b3 |
;; arch-tag: 9e10331c-ae81-4d13-965d-c4819aaab0b3 |
719 |
;;; help-fns.el ends here |
;;; help-fns.el ends here |