[Emacs-diffs] Changes to emacs/lisp/help-fns.el

[Stefan Monnier]

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