
(provide (quote browse-mode))

(or (assq (quote browse-mode) minor-mode-alist) (setq minor-mode-alist (cons (quote (browse-mode " Browse")) minor-mode-alist)))

(defvar browse-mode-map nil "\
*Keymap for Browse mode.")

(defvar browse-check-rcs-lock t "\
*If non-nil, exiting Browse mode confirms you really want to 
edit the file if the file is unlocked under RCS.
This is determined by looking at the value of `mode-line-process'.")

(or browse-mode-map (progn (setq browse-mode-map (make-keymap)) (suppress-keymap browse-mode-map) (define-key browse-mode-map " " (quote scroll-up)) (define-key browse-mode-map "" (quote scroll-down)) (define-key browse-mode-map "n" (quote next-line)) (define-key browse-mode-map "p" (quote previous-line)) (define-key browse-mode-map "N" (quote scroll-up-line)) (define-key browse-mode-map "P" (quote scroll-down-line)) (define-key browse-mode-map "b" (quote bury-buffer)) (define-key browse-mode-map "," (quote goto-buffer-start)) (define-key browse-mode-map "." (quote goto-buffer-end)) (define-key browse-mode-map "l" (quote recenter-in-window)) (define-key browse-mode-map "s" (quote isearch-forward-regexp)) (define-key browse-mode-map "r" (quote isearch-backward-regexp)) (define-key browse-mode-map "o" (quote other-window)) (define-key browse-mode-map "x" (quote browse-mode)) (define-key browse-mode-map "q" (quote remove-window)) (define-key browse-mode-map "k" (quote kill-buffer))))

(defun browse-mode (&optional flag) "\
Minor mode for browsing through a buffer.

Simply defines the special single character commands to move cursor
around more easily.  You can use Meta commands (M-x, M-f, etc.)
without leaving the mode.  To exit this mode, hit `x'; this will make
the buffer read/write (the assumption being that you want to now edit
the buffer).  If the buffer is under RCS control, and the file is
unlocked, you are prompted if you really want to edit the buffer.  See
the documentation for the variable `browse-check-rcs-lock'.

Here are the commands:
\\{browse-mode-map}" (interactive) (byte-code "ÈˆÉÁ!ˆÉÃ!ˆƒ ÊV‚ 	?ƒ- ÂË Â‰ˆÌ!ˆÍÎ !‚O …7 ÏÐ\"?†> ÑÒ!…O ÈÈ‰ˆÌ!ˆÍÎ !‡" [flag browse-mode t browse-mode-previous-keymap buffer-read-only browse-mode-map browse-check-rcs-lock mode-line-process nil make-local-variable 0 current-local-map use-local-map set-buffer-modified-p buffer-modified-p equal " <unlocked>" yes-or-no-p "File is unlocked under RCS; edit anyway? "] 12))