Fix goto page from page directory (Bug#28909)

* lisp/textmodes/page-ext.el (pages-directory-goto): Use the
interactive spec as in `occur-mode-goto-occurrence'.

diff --git a/lisp/textmodes/page-ext.el b/lisp/textmodes/page-ext.el
index 8a41bc37422e00a34eb1f67168bd662a172cdc78..fbdae5892a1e6099ee741c0926115320601ce157 100644 (file)
--- a/lisp/textmodes/page-ext.el
+++ b/lisp/textmodes/page-ext.el
@@ -699,7 +699,7 @@ to the same line in the pages buffer."
 (defun pages-directory-goto (&optional event)
   "Go to the corresponding line in the pages buffer."
   ;; This function is mostly a copy of `occur-mode-goto-occurrence'
-  (interactive "@e")
+  (interactive (list last-nonmenu-event))
   (if event (mouse-set-point event))
   (if (or (not pages-buffer)
          (not (buffer-name pages-buffer)))