comparison lisp/doc-view.el @ 87850:dd673d4bceda

(doc-view-goto-page): Don't move point any more, now that the hscroll behavior was fixed. (doc-view-mode): Disable auto-hscroll-mode.

87849:8f7e97005eef

;;
;; and modify them to your needs.

;;; Todo:

;; - better menu.
;; - Bind slicing to a drag event.
;; - doc-view-fit-doc-to-window and doc-view-fit-window-to-doc.
;; - zoom the region around the cursor (like xdvi).
;; - get rid of the silly arrow in the fringe.

			 (setq contexts (concat contexts "  - \"" m "\"\n")))
		       contexts)))))
    ;; Update the buffer
    (doc-view-insert-image (nth (1- page) doc-view-current-files)
                           :pointer 'arrow)
    (overlay-put doc-view-current-overlay 'help-echo doc-view-current-info)
    (goto-char (point-min))
    ;; This seems to be needed for set-window-hscroll (in
    ;; image-forward-hscroll) to do something useful, I don't have time to
    ;; debug this now.  :-(  --Stef
    (forward-char)))

(defun doc-view-next-page (&optional arg)
  "Browse ARG pages forward."
  (interactive "p")
  (doc-view-goto-page (+ doc-view-current-page (or arg 1))))

	    (lambda () (delete-overlay doc-view-current-overlay))
	    nil t)
  (set (make-local-variable 'mode-line-position)
       '(" P" (:eval (number-to-string doc-view-current-page))
	 "/" (:eval (number-to-string (length doc-view-current-files)))))
  (set (make-local-variable 'cursor-type) nil)
  (use-local-map doc-view-mode-map)
  (set (make-local-variable 'after-revert-hook) 'doc-view-reconvert-doc)
  (set (make-local-variable 'bookmark-make-cell-function)
       'doc-view-bookmark-make-cell)

87850:dd673d4bceda

;;
;; and modify them to your needs.

;;; Todo:

;; - share more code with image-mode again.
;; - better menu.
;; - Bind slicing to a drag event.
;; - doc-view-fit-doc-to-window and doc-view-fit-window-to-doc.
;; - zoom the region around the cursor (like xdvi).
;; - get rid of the silly arrow in the fringe.

			 (setq contexts (concat contexts "  - \"" m "\"\n")))
		       contexts)))))
    ;; Update the buffer
    (doc-view-insert-image (nth (1- page) doc-view-current-files)
                           :pointer 'arrow)
    (overlay-put doc-view-current-overlay 'help-echo doc-view-current-info)))

(defun doc-view-next-page (&optional arg)
  "Browse ARG pages forward."
  (interactive "p")
  (doc-view-goto-page (+ doc-view-current-page (or arg 1))))

	    (lambda () (delete-overlay doc-view-current-overlay))
	    nil t)
  (set (make-local-variable 'mode-line-position)
       '(" P" (:eval (number-to-string doc-view-current-page))
	 "/" (:eval (number-to-string (length doc-view-current-files)))))
  ;; Don't scroll unless the user specifically asked for it.
  (set (make-local-variable 'auto-hscroll-mode) nil)
  (set (make-local-variable 'cursor-type) nil)
  (use-local-map doc-view-mode-map)
  (set (make-local-variable 'after-revert-hook) 'doc-view-reconvert-doc)
  (set (make-local-variable 'bookmark-make-cell-function)
       'doc-view-bookmark-make-cell)