comparison lisp/help-fns.el @ 87109:c5028f32763a

Remove directory part from filenames in function declarations.

87108:b7147cb1c966

			(match-string 1 str))))
    (if (and src-file (file-readable-p src-file))
	src-file
      file-name)))

(declare-function ad-get-advice-info "emacs-lisp/advice" (function))

;;;###autoload
(defun describe-function-1 (function)
  (let* ((advised (and (featurep 'advice) (ad-get-advice-info function)))
	 ;; If the function is advised, use the symbol that has the

87109:c5028f32763a

			(match-string 1 str))))
    (if (and src-file (file-readable-p src-file))
	src-file
      file-name)))

(declare-function ad-get-advice-info "advice" (function))

;;;###autoload
(defun describe-function-1 (function)
  (let* ((advised (and (featurep 'advice) (ad-get-advice-info function)))
	 ;; If the function is advised, use the symbol that has the