See RETURN-TO-ALIST argument of function `view-mode-exit' for the format of
`view-return-to-alist'.")
(make-variable-buffer-local 'view-return-to-alist)
+(put 'view-return-to-alist 'permanent-local t)
(defvar view-exit-action nil
"nil or a function with one argument (a buffer) called when finished viewing.
(if (buffer-file-name)
(file-name-nondirectory (buffer-file-name))
(buffer-name))))
- ;; Override major mode's scrolling commands.
- (add-to-list 'minor-mode-overriding-map-alist
- (cons 'view-mode view-mode-map))
(force-mode-line-update)
(run-hooks 'view-mode-hook))