comparison lisp/help-fns.el @ 85429:f11bfc50b5be

(describe-function-1): Don't use the advice origname if it has no function definition yet.

85428:ad84adc0e027

      file-name)))

;;;###autoload
(defun describe-function-1 (function)
  (let* ((advised (and (featurep 'advice) (ad-get-advice-info function)))
	 ;; If the function is advised, get the symbol that has the
	 ;; real definition.
	 (real-function
	  (if advised (cdr (assq 'origname advised))
	    function))
	 ;; Get the real definition.
	 (def (if (symbolp real-function)
		  (symbol-function real-function)
		function))

85429:f11bfc50b5be

      file-name)))

;;;###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
	 ;; real definition, if that symbol is already set up.
	 (real-function
	  (or (and advised
		   (cdr (assq 'origname advised))
		   (fboundp (cdr (assq 'origname advised)))
		   (cdr (assq 'origname advised)))
	    function))
	 ;; Get the real definition.
	 (def (if (symbolp real-function)
		  (symbol-function real-function)
		function))