From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Tue, 15 Jun 2021 18:58:01 +0000 (+0200)
Subject: Make help-view-source more robust
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~18^2~2357
X-Git-Url: https://dgit.raspbian.org/?a=commitdiff_plain;h=a8721a333d5cf9080406bd4d9f723bda7a4a8402;p=emacs.git

Make help-view-source more robust

* lisp/help-mode.el (help-view-source): Check the right thing to
see if we can jump to the source file.
---

diff --git a/lisp/help-mode.el b/lisp/help-mode.el
index 7450d733322..48cf435f97c 100644
--- a/lisp/help-mode.el
+++ b/lisp/help-mode.el
@@ -733,7 +733,7 @@ See `help-make-xrefs'."
 (defun help-view-source ()
   "View the source of the current help item."
   (interactive nil help-mode)
-  (unless help-mode--current-data
+  (unless (plist-get help-mode--current-data :file)
     (error "Source file for the current help item is not defined"))
   (help-function-def--button-function (plist-get help-mode--current-data :symbol)
                                       (plist-get help-mode--current-data :file)))