mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-13 16:38:14 +00:00
Code Issues Releases Activity

(doc-view-goto-page): Don't move point any more, now that

Browse Source 
the hscroll behavior was fixed.
(doc-view-mode): Disable auto-hscroll-mode.
This commit is contained in:
Stefan Monnier 2008-01-19 05:34:29 +00:00
parent e69c4cae18
commit 38b5ca4a1b
2 changed files with 11 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/ChangeLog
View File

@ -1,6 +1,12 @@
2008-01-19 Stefan Monnier <monnier@iro.umontreal.ca>
* doc-view.el (doc-view-goto-page): Don't move point any more, now that
the hscroll behavior was fixed.
(doc-view-mode): Disable auto-hscroll-mode.
2008-01-18 Tom Tromey <tromey@redhat.com>
* vc-svn.el (vc-svn-dir-status): New function.
* vc-svn.el (vc-svn-dir-status): New function.
2008-01-18 Dan Nicolaescu <dann@ics.uci.edu>

10
lisp/doc-view.el
View File

@ -99,6 +99,7 @@
;;; 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.
@ -356,12 +357,7 @@ the (uncompressed, extracted) file residing in
;; 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)))
(overlay-put doc-view-current-overlay 'help-echo doc-view-current-info)))
(defun doc-view-next-page (&optional arg)
"Browse ARG pages forward."
@ -994,6 +990,8 @@ toggle between displaying the document or editing it as text."
(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)