comparison lisp/help-fns.el @ 86265:22dc0bc9daf8

* frame.el (msdos-mouse-p): * generic-x.el (w32-shell-name): * files.el (msdos-long-file-names, w32-long-file-name) (msdos-long-file-names, dired-get-filename, dired-unmark) (dired-do-flagged-delete, dos-8+3-filename, vms-read-directory) (view-mode-disable): * term/mac-win.el (mac-code-convert-string, mac-coerce-ae-data) (mac-resume-apple-event, mac-font-panel-mode) (mac-atsu-font-face-attributes, mac-ae-set-reply-parameter) (mac-clear-font-name-table): * term/pc-win.el (msdos-remember-default-colors) (w16-set-clipboard-data, w16-get-clipboard-data): * term/w32-win.el (w32-send-sys-command, w32-select-font) (set-message-beep): * w32-fns.el (set-message-beep, w32-get-clipboard-data) (w32-get-locale-info, w32-get-valid-locale-ids) (w32-set-clipboard-data): * help-fns.el (ad-get-advice-info): * font-lock.el (fast-lock-after-fontify-buffer) (fast-lock-after-unfontify-buffer, fast-lock-mode) (lazy-lock-after-fontify-buffer) (lazy-lock-after-unfontify-buffer, lazy-lock-mode): * net/browse-url.el (w32-shell-execute): * dos-fns.el (int86, msdos-long-file-names): * dos-w32.el (default-printer-name): Declare as functions.

86264:2c09cdee14d7

			(string-match ";;; from file \\(.*\\.el\\)" str)
			(match-string 1 str))))
    (if (and src-file (file-readable-p src-file))
	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, use the symbol that has the

86265:22dc0bc9daf8

			(string-match ";;; from file \\(.*\\.el\\)" str)
			(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