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 7450d73332224be20d95dbfcbe970c3a97a16089..48cf435f97cb5cf34b6511168e1be82e3b7544ca 100644 (file)
--- 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)))