From: Marco Wahl <marcowahlsoft@gmail.com>
Date: Wed, 28 Mar 2018 09:04:08 +0000 (+0200)
Subject: Fix goto page from page directory (Bug#28909)
X-Git-Tag: emacs-27.0.90~5315
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a4291bf287af6ee5a2cf031f8b442674342714df;p=emacs.git

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 8a41bc37422..fbdae5892a1 100644
--- 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)))