comparison lisp/help-fns.el @ 85303:6830ce7af289

(describe-function-1): Find source of advised functions.

85302:bc8b741390b0

	src-file
      file-name)))

;;;###autoload
(defun describe-function-1 (function)
  (let* ((def (if (symbolp function)
		  (symbol-function function)
		function))
	 file-name string
	 (beg (if (commandp def) "an interactive " "a ")))
    (setq string
	  (cond ((or (stringp def)

      ;; Make a hyperlink to the library.
      (with-current-buffer standard-output
        (save-excursion
	  (re-search-backward "`\\([^`']+\\)'" nil t)
	  (help-xref-button 1 'help-function-def function file-name))))
    (princ ".")
    (terpri)
    (when (commandp function)
      (if (and (eq function 'self-insert-command)
	       (eq (key-binding "a") 'self-insert-command)

          (let* ((use (cond
                        (usage (setq doc (cdr usage)) (car usage))
                        ((listp arglist)
                         (format "%S" (help-make-usage function arglist)))
                        ((stringp arglist) arglist)
                        ;; Maybe the arglist is in the docstring of the alias.
                        ((let ((fun function))
                           (while (and (symbolp fun)
                                       (setq fun (symbol-function fun))
                                       (not (setq usage (help-split-fundoc
                                                         (documentation fun)
                                                         function)))))

85303:6830ce7af289

	src-file
      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))
	 file-name string
	 (beg (if (commandp def) "an interactive " "a ")))
    (setq string
	  (cond ((or (stringp def)

      ;; Make a hyperlink to the library.
      (with-current-buffer standard-output
        (save-excursion
	  (re-search-backward "`\\([^`']+\\)'" nil t)
	  (help-xref-button 1 'help-function-def real-function file-name))))
    (princ ".")
    (terpri)
    (when (commandp function)
      (if (and (eq function 'self-insert-command)
	       (eq (key-binding "a") 'self-insert-command)

          (let* ((use (cond
                        (usage (setq doc (cdr usage)) (car usage))
                        ((listp arglist)
                         (format "%S" (help-make-usage function arglist)))
                        ((stringp arglist) arglist)
                        ;; Maybe the arglist is in the docstring of a symbol
			;; this one is aliased to.
                        ((let ((fun real-function))
                           (while (and (symbolp fun)
                                       (setq fun (symbol-function fun))
                                       (not (setq usage (help-split-fundoc
                                                         (documentation fun)
                                                         function)))))