Index: emacs/lisp/help-fns.el
diff -c emacs/lisp/help-fns.el:1.71 emacs/lisp/help-fns.el:1.72
*** emacs/lisp/help-fns.el:1.71 Mon Jul 4 23:08:54 2005
--- emacs/lisp/help-fns.el Thu Jul 14 02:06:30 2005
***************
*** 217,229 ****
(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)))
;;;###autoload
(defun help-C-file-name (subr-or-var kind)
"Return the name of the C file where SUBR-OR-VAR is defined.
--- 217,229 ----
(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)))
;;;###autoload
(defun help-C-file-name (subr-or-var kind)
"Return the name of the C file where SUBR-OR-VAR is defined.
***************
*** 715,719 ****
(provide 'help-fns)
! ;;; arch-tag: 9e10331c-ae81-4d13-965d-c4819aaab0b3
;;; help-fns.el ends here
--- 715,719 ----
(provide 'help-fns)
! ;; arch-tag: 9e10331c-ae81-4d13-965d-c4819aaab0b3
;;; help-fns.el ends here
_______________________________________________
Emacs-diffs mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/emacs-diffs
