Function: pages-directory-goto

pages-directory-goto is an interactive and byte-compiled function defined in page-ext.el.gz.

Signature

(pages-directory-goto &optional EVENT)

Documentation

Go to the corresponding line in the pages buffer.

Key Bindings

Aliases

pages-directory-goto-with-mouse (obsolete since 26.1)

Source Code

;; Defined in /usr/src/emacs/lisp/textmodes/page-ext.el.gz
(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 (list last-nonmenu-event))
  (if event (mouse-set-point event))
  (if (or (not pages-buffer)
	  (not (buffer-name pages-buffer)))
      (progn
	(setq pages-buffer nil
	      pages-pos-list nil)
	(error "Buffer in which pages were found is deleted")))
  (beginning-of-line)
  (let* ((pages-number (1- (count-lines (point-min) (point))))
	 (pos (nth pages-number pages-pos-list))
         (end-of-directory-p (eobp))
         (narrowing-p  pages-directory-buffer-narrowing-p))
    (pop-to-buffer pages-buffer)
    (widen)
    (goto-char (if end-of-directory-p
                   (point-max)
                 (marker-position pos)))
    (if narrowing-p (narrow-to-page))))