;ELC ;;; Compiled by cyd@localhost on Mon Apr 23 22:21:15 2007 ;;; from file /home/cyd/emacs/lisp/view.el ;;; in Emacs version 22.0.99 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`view.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (custom-declare-group 'view nil "Peruse file or buffer without editing." :link '(function-link view-mode) :link '(custom-manual "(emacs)Misc File Ops") :group 'wp :group 'editing) #@70 *The face used for highlighting the match found by View mode search. (custom-declare-variable 'view-highlight-face ''highlight '(#$ . -735) :type 'face :group 'view) #@182 *Non-nil means scrolling past the end of buffer exits View mode. nil means attempting to scroll past the end of the buffer, only rings the bell and gives a message on how to leave. (custom-declare-variable 'view-scroll-auto-exit 'nil '(#$ . -908) :type 'boolean :group 'view) #@249 *Non-nil means try load more of file when reaching end of buffer. This variable is mainly intended to be temporarily set to non-nil by the F command in view-mode, but you can set it to t if you want the action for all scroll commands in view mode. (custom-declare-variable 'view-try-extend-at-buffer-end 'nil '(#$ . -1191) :type 'boolean :group 'view) #@126 *Determine how View mode removes a frame no longer needed. If nil, make an icon of the frame. If non-nil, delete the frame. (custom-declare-variable 'view-remove-frame-by-deleting 'nil '(#$ . -1550) :type 'boolean :group 'view) #@318 *Non-nil means restore all windows used to view buffer. Commands that restore windows when finished viewing a buffer, apply to all windows that display the buffer and have restore information in `view-return-to-alist'. If `view-exits-all-viewing-windows' is nil, only the selected window is considered for restoring. (custom-declare-variable 'view-exits-all-viewing-windows 'nil '(#$ . -1786) :type 'boolean :group 'view) #@68 *Non-nil inhibits the help message showed upon entering View mode. (custom-declare-variable 'view-inhibit-help-message 'nil '(#$ . -2214) :type 'boolean :group 'view :version "22.1") #@148 Non-nil if View mode is enabled. Don't change this variable directly, you must change it by one of the functions that enable or disable view mode. (defvar view-mode nil (#$ . 2404)) (make-variable-buffer-local 'view-mode) #@57 Normal hook run when starting to view a buffer or file. (custom-declare-variable 'view-mode-hook 'nil '(#$ . 2632) :type 'hook :group 'view) (byte-code "\301B\302\301!\204\303\301\304\"\210\305\301!\210\305\306!\207" [current-load-list view-old-buffer-read-only default-boundp set-default nil make-variable-buffer-local view-old-Helper-return-blurb] 3) #@97 Default number of lines to scroll by View page commands. If nil that means use the window size. (defvar view-page-size nil (#$ . 2995)) (make-variable-buffer-local 'view-page-size) #@107 Default number of lines to scroll by View half page commands. If nil that means use half the window size. (defvar view-half-page-size nil (#$ . 3183)) (byte-code "\301\302!\210\303B\304\303!\204\305\303\306\"\210\301\303!\207" [current-load-list make-variable-buffer-local view-half-page-size view-last-regexp default-boundp set-default nil] 3) #@361 What to do with used windows and where to go when finished viewing buffer. This is local in each buffer being viewed. It is added to by `view-mode-enter' when starting to view a buffer and subtracted from by `view-mode-exit' when finished viewing the buffer. See RETURN-TO-ALIST argument of function `view-mode-exit' for the format of `view-return-to-alist'. (defvar view-return-to-alist nil (#$ . 3539)) (byte-code "\300\301!\210\302\301\303\304#\207" [make-variable-buffer-local view-return-to-alist put permanent-local t] 4) #@208 nil or a function with one argument (a buffer) called when finished viewing. This is local in each buffer being viewed. The \[view-file] and \[view-file-other-window] commands may set this to `kill-buffer'. (defvar view-exit-action nil (#$ . 4075)) (make-variable-buffer-local 'view-exit-action) #@240 If non-nil, View mode "exit" commands don't actually disable View mode. Instead, these commands just switch buffers or windows. This is set in certain buffers by specialized features such as help commands that use View mode automatically. (defvar view-no-disable-on-exit nil (#$ . 4378)) #@114 Overlay used to display where a search operation found its match. This is local in each buffer, once it is used. (defvar view-overlay nil (#$ . 4673)) (byte-code "\306\307!\210\310\236\204\310\311\312\313 \314\315%DB\305\nB\316\305!\204\241\317\305\320 \321 \322\323#\210\321 \324\325#\210\321 \326\327#\210\321 \330\331#\210\321 \332\333#\210\321 \334\335#\210\321 \336\337#\210\321 \340\341#\210\321 \342\343#\210\321 \344\345#\210\321 \346\347#\210\321 \350\351#\210\321 \352\353#\210\321 \354\355#\210\321 \356\357#\210\321 \360\361#\210\321 \362\363#\210\321 \364\365#\210\321 \366\367#\210\321 \370\371#\210\321 \372\373#\210\321 \374\375#\210\321 \376\377#\210\321 \201@\377#\210\321 \201A\201B#\210\321 \201C\201D#\210\321 \201E\201F#\210\321 \201G\201H#\210\321 \201I\201J#\210\321 \201K\201L#\210\321 \201M\201N#\210\321 \201O\201P#\210\321 \201Q\201R#\210\321 \201S\201T#\210\321 \201U\201V#\210\321 \201W\201V#\210\321 \201X\201V#\210\321 \201Y\201V#\210\321 \201Z\201V#\210\321 \201[\201V#\210\321 \201\\\201V#\210\321 \201]\201V#\210\321 \201^\201V#\210\321 \201_\201V#\210\321 \201`\201a#\210\321 \201b\201a#\210\321 \201c\201a#\210 )\"\210\310\f\236\204\255\310 B\fB\306\207" [minor-mode-alist mode-line-minor-mode-keymap current-load-list map minor-mode-map-alist view-mode-map make-variable-buffer-local view-overlay view-mode propertize " View" local-map help-echo "mouse-3: minor mode menu" default-boundp set-default make-sparse-keymap define-key "C" View-kill-and-leave "c" View-leave "Q" View-quit-all "E" View-exit-and-edit "e" View-exit "q" View-quit "p" View-search-last-regexp-backward "n" View-search-last-regexp-forward "\\" View-search-regexp-backward "/" View-search-regexp-forward "r" isearch-backward "s" isearch-forward "m" point-to-register "'" register-to-point "x" exchange-point-and-mark "@" View-back-to-mark "." set-mark-command "%" View-goto-percent "g" View-goto-line "=" what-line "F" View-revert-buffer-scroll-page-forward "y" View-scroll-line-backward "\n" View-scroll-line-forward " " "u" View-scroll-half-page-backward "d" View-scroll-half-page-forward "z" View-scroll-page-forward-set-page-size "w" View-scroll-page-backward-set-page-size "" View-scroll-page-backward " " View-scroll-page-forward "o" View-scroll-to-buffer-end ">" end-of-buffer "<" beginning-of-buffer "-" negative-argument "9" digit-argument "8" "7" "6" "5" "4" "3" "2" "1" "0" "H" describe-mode "?" "h"] 7) #@399 View FILE in View mode, returning to previous buffer when done. Emacs commands editing the buffer contents are not available; instead, a special set of commands (mostly letters and punctuation) are defined for moving around in the buffer. Space scrolls forward, Delete scrolls backward. For list of all View commands, type H or h while viewing. This command runs the normal hook `view-mode-hook'. (defalias 'view-file #[(file) "\304!\204 \305\306\"\210\307!\310!r q\210 \311N)\312=\203*\313 !\210\314\315!\2023\316 \n?\2052\317\"*\207" [file buffer had-a-buf major-mode file-exists-p error "%s does not exist" get-file-buffer find-file-noselect mode-class special switch-to-buffer message "Not using View mode because the major mode is special" view-buffer kill-buffer] 3 (#$ . 7162) "fView file: "]) #@430 View FILE in View mode in another window. Return that window to its previous buffer when done. Emacs commands editing the buffer contents are not available; instead, a special set of commands (mostly letters and punctuation) are defined for moving around in the buffer. Space scrolls forward, Delete scrolls backward. For list of all View commands, type H or h while viewing. This command runs the normal hook `view-mode-hook'. (defalias 'view-file-other-window #[(file) "\302!\204 \303\304\"\210\305!\306\307!\310 ?\205\311#)\207" [file had-a-buf file-exists-p error "%s does not exist" get-file-buffer view-buffer-other-window find-file-noselect nil kill-buffer] 4 (#$ . 7981) "fIn other window view file: "]) #@445 View FILE in View mode in another frame. Maybe delete other frame and/or return to previous buffer when done. Emacs commands editing the buffer contents are not available; instead, a special set of commands (mostly letters and punctuation) are defined for moving around in the buffer. Space scrolls forward, Delete scrolls backward. For list of all View commands, type H or h while viewing. This command runs the normal hook `view-mode-hook'. (defalias 'view-file-other-frame #[(file) "\302!\204 \303\304\"\210\305!\306\307!\310 ?\205\311#)\207" [file had-a-buf file-exists-p error "%s does not exist" get-file-buffer view-buffer-other-frame find-file-noselect nil kill-buffer] 4 (#$ . 8709) "fIn other frame view file: "]) #@608 View BUFFER in View mode, returning to previous buffer when done. Emacs commands editing the buffer contents are not available; instead, a special set of commands (mostly letters and punctuation) are defined for moving around in the buffer. Space scrolls forward, Delete scrolls backward. For list of all View commands, type H or h while viewing. This command runs the normal hook `view-mode-hook'. Optional argument EXIT-ACTION is either nil or a function with buffer as argument. This function is called when finished viewing buffer. Use this argument instead of explicitly setting `view-exit-action'. (defalias 'view-buffer #[(buffer &optional exit-action) "\303 \304 \305 E\306 !\210\307\310 \311BB\n\")\207" [undo-window buffer exit-action window-buffer window-start window-point switch-to-buffer view-mode-enter selected-window nil] 4 (#$ . 9449) "bView buffer: "]) #@662 View BUFFER in View mode in another window. Return to previous buffer when done, unless optional NOT-RETURN is non-nil. Emacs commands editing the buffer contents are not available; instead, a special set of commands (mostly letters and punctuation) are defined for moving around in the buffer. Space scrolls forward, Delete scrolls backward. For list of all View commands, type H or h while viewing. This command runs the normal hook `view-mode-hook'. Optional argument EXIT-ACTION is either nil or a function with buffer as argument. This function is called when finished viewing buffer. Use this argument instead of explicitly setting `view-exit-action'. (defalias 'view-buffer-other-window #[(buffer &optional not-return exit-action) "\305  ?\205 \306 \306 =\203\307\202\310!\311!\312!EB\313 !\210\314\n\205.\306 \nB\f\"*\207" [win not-return return-to buffer exit-action get-lru-window selected-window t window-buffer window-start window-point switch-to-buffer-other-window view-mode-enter] 5 (#$ . 10333) "bIn other window view buffer:\nP"]) #@661 View BUFFER in View mode in another frame. Return to previous buffer when done, unless optional NOT-RETURN is non-nil. Emacs commands editing the buffer contents are not available; instead, a special set of commands (mostly letters and punctuation) are defined for moving around in the buffer. Space scrolls forward, Delete scrolls backward. For list of all View commands, type H or h while viewing. This command runs the normal hook `view-mode-hook'. Optional argument EXIT-ACTION is either nil or a function with buffer as argument. This function is called when finished viewing buffer. Use this argument instead of explicitly setting `view-exit-action'. (defalias 'view-buffer-other-frame #[(buffer &optional not-return exit-action) "?\205 \304 \305B\306\n!\210\307 \205\304 B \")\207" [not-return return-to buffer exit-action selected-window t switch-to-buffer-other-frame view-mode-enter] 3 (#$ . 11403) "bView buffer in other frame: \nP"]) #@4635 Toggle View mode, a minor mode for viewing text but not editing it. With ARG, turn View mode on iff ARG is positive. Emacs commands that do not change the buffer contents are available as usual. Kill commands insert text in kill buffers but do not delete. Other commands (among them most letters and punctuation) beep and tell that the buffer is read-only. \ The following additional commands are provided. Most commands take prefix arguments. Page commands default to "page size" lines which is almost a whole window full, or number of lines set by \[View-scroll-page-forward-set-page-size] or \[View-scroll-page-backward-set-page-size]. Half page commands default to and set "half page size" lines which initially is half a window full. Search commands default to a repeat count of one. H, h, ? This message. Digits provide prefix arguments. \[negative-argument] negative prefix argument. \[beginning-of-buffer] move to the beginning of buffer. > move to the end of buffer. \[View-scroll-to-buffer-end] scroll so that buffer end is at last line of window. SPC scroll forward "page size" lines. With prefix scroll forward prefix lines. DEL scroll backward "page size" lines. With prefix scroll backward prefix lines. \[View-scroll-page-forward-set-page-size] like \[View-scroll-page-forward] but with prefix sets "page size" to prefix. \[View-scroll-page-backward-set-page-size] like \[View-scroll-page-backward] but with prefix sets "page size" to prefix. \[View-scroll-half-page-forward] scroll forward "half page size" lines. With prefix, sets "half page size" to prefix lines and scrolls forward that much. \[View-scroll-half-page-backward] scroll backward "half page size" lines. With prefix, sets "half page size" to prefix lines and scrolls backward that much. RET, LFD scroll forward one line. With prefix scroll forward prefix line(s). y scroll backward one line. With prefix scroll backward prefix line(s). \[View-revert-buffer-scroll-page-forward] revert-buffer if necessary and scroll forward. Use this to view a changing file. \[what-line] prints the current line number. \[View-goto-percent] goes prefix argument (default 100) percent into buffer. \[View-goto-line] goes to line given by prefix argument (default first line). . set the mark. x exchanges point and mark. \[View-back-to-mark] return to mark and pops mark ring. Mark ring is pushed at start of every successful search and when jump to line occurs. The mark is set on jump to buffer start or end. \[point-to-register] save current position in character register. ' go to position saved in character register. s do forward incremental search. r do reverse incremental search. \[View-search-regexp-forward] searches forward for regular expression, starting after current page. ! and @ have a special meaning at the beginning of the regexp. ! means search for a line with no match for regexp. @ means start search at beginning (end for backward search) of buffer. \ searches backward for regular expression, starting before current page. \[View-search-last-regexp-forward] searches forward for last regular expression. p searches backward for last regular expression. \[View-quit] quit View mode, restoring this window and buffer to previous state. \[View-quit] is the normal way to leave view mode. \[View-exit] exit View mode but stay in current buffer. Use this if you started viewing a buffer (file) and find out you want to edit it. This command restores the previous read-only status of the buffer. \[View-exit-and-edit] exit View mode, and make the current buffer editable even if it was not editable before entry to View mode. \[View-quit-all] quit View mode, restoring all windows to previous state. \[View-leave] quit View mode and maybe switch buffers, but don't kill this buffer. \[View-kill-and-leave] quit View mode, kill current buffer and go back to other buffer. The effect of \[View-leave], \[View-quit] and \[View-kill-and-leave] depends on how view-mode was entered. If it was entered by view-file, view-file-other-window, view-file-other-frame, or \[dired-view-file] (\[view-file], \[view-file-other-window], \[view-file-other-frame], or the Dired mode v command), then \[View-quit] will try to kill the current buffer. If view-mode was entered from another buffer, by \[view-buffer], \[view-buffer-other-window], \[view-buffer-other frame], \[view-file], \[view-file-other-window], or \[view-file-other-frame], then \[View-leave], \[View-quit] and \[View-kill-and-leave] will return to that buffer. Entry to view-mode runs the normal hook `view-mode-hook'. (defalias 'view-mode #[(&optional arg) "\205\302!\303V\203 \202 ??\205 \203\304 \207\305 \207" [arg view-mode prefix-numeric-value 0 view-mode-disable view-mode-enable] 2 (#$ . 12366) "P"]) #@20 Turn on View mode. (defalias 'view-mode-enable #[nil "\306\307\310\311\312$\210\312\311\211 \312\313\305!\205 \314\315\316 \203(\317\316 !\202*\320 \"\321 \210\322\323!\207" [view-mode view-page-size view-half-page-size buffer-read-only view-old-buffer-read-only Helper-return-blurb add-hook change-major-mode-hook view-mode-disable nil t boundp format "continue viewing %s" buffer-file-name file-name-nondirectory buffer-name force-mode-line-update run-hooks view-mode-hook view-old-Helper-return-blurb] 6 (#$ . 17208)]) #@21 Turn off View mode. (defalias 'view-mode-disable #[nil "\306\307\310\311#\210\203\312!\210\313 \210\314\315!\203\316\315!\210\317\n\f\205& \211\207" [view-overlay view-mode view-old-Helper-return-blurb Helper-return-blurb buffer-read-only view-old-buffer-read-only remove-hook change-major-mode-hook view-mode-disable t delete-overlay force-mode-line-update local-variable-p view-read-only kill-local-variable nil] 4 (#$ . 17748)]) #@1052 Enter View mode and set up exit from view mode depending on optional arguments. If RETURN-TO is non-nil it is added as an element to the buffer local alist `view-return-to-alist'. Save EXIT-ACTION in buffer local variable `view-exit-action'. It should be either nil or a function that takes a buffer as argument. This function will be called by `view-mode-exit'. RETURN-TO is either nil, meaning do nothing when exiting view mode, or it has the format (WINDOW OLD-WINDOW . OLD-BUF-INFO). WINDOW is a window used for viewing. OLD-WINDOW is nil or the window to select after viewing. OLD-BUF-INFO tells what to do with WINDOW when exiting. It is one of: 1) nil Do nothing. 2) t Delete WINDOW or, if it is the only window, its frame. 3) (OLD-BUFF START POINT) Display buffer OLD-BUFF with displayed text starting at START and point at POINT in WINDOW. 4) quit-window Do `quit-window' in WINDOW. For list of all View commands, type H or h while viewing. This function runs the normal hook `view-mode-hook'. (defalias 'view-mode-enter #[(&optional return-to exit-action) "\203@ \236\211\203\nA\241\210\202 B) \203  ?\2057\306 \210\307 \210\f?\2057\310\311\312\313!\"\207" [return-to view-return-to-alist entry exit-action view-exit-action view-mode view-mode-enable force-mode-line-update message "%s" substitute-command-keys "View mode: type \\[help-command] for help, \\[describe-mode] for commands, \\[View-quit] to quit." view-inhibit-help-message] 5 (#$ . 18198)]) #@1260 Exit View mode in various ways, depending on optional arguments. RETURN-TO-ALIST, EXIT-ACTION and ALL-WIN determine what to do after exit. EXIT-ACTION is nil or a function that is called with current buffer as argument. RETURN-TO-ALIST is an alist that for some of the windows displaying the current buffer, associate information on what to do with those windows. If ALL-WIN or the variable `view-exits-all-viewing-windows' is non-nil, then all windows on RETURN-TO-ALIST are restored to their old state. Otherwise only the selected window is affected (if it is on RETURN-TO-ALIST). Elements of RETURN-TO-ALIST have the format (WINDOW OLD-WINDOW . OLD-BUF-INFO). WINDOW is a window displaying the current buffer. OLD-WINDOW is nil or a window to select after viewing. OLD-BUF-INFO is information on what to do with WINDOW and is one of: 1) nil Do nothing. 2) t Delete WINDOW and, if it is the only window, its frame. 3) (OLD-BUF START POINT) Display buffer OLD-BUF with displayed text starting at START and point at POINT in WINDOW. 4) quit-window Do `quit-window' in WINDOW. If one of the WINDOW in RETURN-TO-ALIST is the selected window and the corresponding OLD-WINDOW is a live window, then select OLD-WINDOW. (defalias 'view-mode-exit #[(&optional return-to-alist exit-action all-win) "\205 \206 \n \205\\p\306\211\307 \236 \203&\310\306\"\202.\205.C\2059A@ \203\212G\306!\"\"\311V\203w\312 !\203^\f\313 !=\203w \236\211!\203w\"S\"!A@ \202G\314\"!\204\205\312 !\204\211\307  *#\204\222\315 \210\203?\306\312@@\211!\203(\f\313 !=\203(\316 !@AA$% \203\301\317 !\210$:\203\352\320$@!\203\352\321 $@\"\210\322 $A@\"\210\323 $AA@\"\210\202'$\324=\203\367\324 \210\202'$\325=\203'\326\325!\204\n\327 \210\202'%\330 =\204'&\203\331%!\210\202'\325\332%!\210*\2046\333@'\"'A\211\204\227\312 !\203K\317 !\210(\203X\306)(\f!\210\334 .\207" [return-to-alist all-win view-exits-all-viewing-windows view-mode buffer window nil selected-window append 0 window-live-p window-buffer zerop view-mode-disable window-frame select-window buffer-live-p set-window-buffer set-window-start set-window-point quit-window t one-window-p delete-window next-frame delete-frame iconify-frame delete force-mode-line-update notlost sel-old alist old-window a c view-no-disable-on-exit old-buf-info frame view-remove-frame-by-deleting view-return-to-alist exit-action view-exit-action] 4 (#$ . 19737)]) #@44 Exit View mode but stay in current buffer. (defalias 'View-exit #[nil "\300 \207" [view-mode-exit] 1 (#$ . 22281) nil]) #@54 Exit View mode and make the current buffer editable. (defalias 'View-exit-and-edit #[nil "\302\211\303 *\207" [view-no-disable-on-exit view-old-buffer-read-only nil view-mode-exit] 2 (#$ . 22407) nil]) #@70 Quit View mode and maybe switch buffers, but don't kill this buffer. (defalias 'View-leave #[nil "\301!\207" [view-return-to-alist view-mode-exit] 2 (#$ . 22617) nil]) #@183 Quit View mode, trying to restore window and buffer to previous state. Maybe kill this buffer. Try to restore selected window to previous state and go to previous buffer or window. (defalias 'View-quit #[nil "\302 \"\207" [view-return-to-alist view-exit-action view-mode-exit] 3 (#$ . 22793) nil]) #@199 Quit View mode, trying to restore windows and buffers to previous state. Maybe kill current buffer. Try to restore all windows viewing buffer to previous state and go to previous buffer or window. (defalias 'View-quit-all #[nil "\302 \303#\207" [view-return-to-alist view-exit-action view-mode-exit t] 4 (#$ . 23100) nil]) #@68 Quit View mode, kill current buffer and return to previous buffer. (defalias 'View-kill-and-leave #[nil "\302 \206\303\304#\207" [view-return-to-alist view-exit-action view-mode-exit kill-buffer t] 4 (#$ . 23431) nil]) (defalias 'view-window-size #[nil "\300 S\207" [window-height] 1]) (defalias 'view-recenter #[nil "\300\301 \302\245!\207" [recenter view-window-size 2] 3]) (defalias 'view-page-size-default #[(lines) "\303 Z\n\203\304\305\n!\211!\203 \202\306\n! ^)\207" [next-screen-context-lines default lines view-window-size zerop prefix-numeric-value abs] 3]) (defalias 'view-set-half-page-size-default #[(lines) "\204 \206#\302 \303\245\207\304\305!\211!\203\302 \303\245\202!\306!\211\207" [lines view-half-page-size view-window-size 2 zerop prefix-numeric-value view-page-size-default] 3]) #@138 Move to end (or prefix PERCENT) of buffer in View mode. Display is centered at point. Also set the mark at the position where point was. (defalias 'View-goto-percent #[(&optional percent) "\301 \210\203e\302deZ\303_\304\305\306!^]_!\\\202db\210\307 \207" [percent push-mark floor 0.01 0 100 prefix-numeric-value view-recenter] 7 (#$ . 24262) "P"]) #@131 Move to first (or prefix LINE) line in View mode. Display is centered at LINE. Also set the mark at the position where point was. (defalias 'View-goto-line #[(&optional line) "\301 \210\302!\210\303 \207" [line push-mark goto-line view-recenter] 2 (#$ . 24623) "p"]) #@199 Return to last mark set in View mode, else beginning of file. Display that line at the center of the window. This command pops the mark ring, so that successive invocations return to earlier marks. (defalias 'View-back-to-mark #[(&optional ignore) "\300\301!\206eb\210\302 \210\303 \207" [mark t pop-mark view-recenter] 2 (#$ . 24898) nil]) (defalias 'view-scroll-lines #[(lines backward default maxdefault) "\203\305\306!\211!\203 \307W\203\n?[\310\311! \203( ^\n\2030\312!\207\313 \203B\f\203<\314 \207\315 \210\316 \207 V\203[\317 !\210 Z\313 \203B\307\211\202C\317!\210\313 \203g\316 \210\320\321!\210\322 \207" [lines default backward maxdefault view-scroll-auto-exit zerop prefix-numeric-value 0 view-page-size-default nil scroll-down view-really-at-end View-quit ding view-end-message scroll-up move-to-window-line -1 beginning-of-line] 4]) (defalias 'view-really-at-end #[nil "\304d!\205Pp\305 \306  ?\206O?\206O\307\n!\206O\310!?\206O\311\n!\203F\312!\313\314\315 \230\203=\316\202@\317 P#!?\206O\320\321\211\211#\210\304d!+\207" [file bufname buf view-try-extend-at-buffer-end pos-visible-in-window-p buffer-name buffer-file-name verify-visited-file-modtime file-exists-p buffer-modified-p file-name-nondirectory yes-or-no-p format "File %s changed on disk. Discard your edits%s? " "" " in " revert-buffer t] 6]) (defalias 'view-end-message #[nil "db\210\203\302\303\304 \203\305\202\306!\"\207\302\307!\207" [view-return-to-alist view-scroll-auto-exit message "End of buffer. Type %s to quit viewing." substitute-command-keys "\\[View-scroll-page-forward]" "\\[View-quit]" "End of buffer"] 4]) #@74 Scroll backward or forward so that buffer end is at last line of window. (defalias 'View-scroll-to-buffer-end #[nil "\301d!\205`db\210\302\303!\210\205b)\207" [p pos-visible-in-window-p recenter -1] 2 (#$ . 26569) nil]) #@357 Scroll "page size" or prefix LINES lines forward in View mode. Exit if end of text is visible and `view-scroll-auto-exit' is non-nil. "page size" is whole window full, or number of lines set by \[View-scroll-page-forward-set-page-size] or \[View-scroll-page-backward-set-page-size]. If LINES is more than a window-full, only the last window-full is shown. (defalias 'View-scroll-page-forward #[(&optional lines) "\302\303\304 !\303$\207" [lines view-page-size view-scroll-lines nil view-page-size-default] 5 (#$ . 26803) "P"]) #@102 Scroll "page size" or prefix LINES lines backward in View mode. See also `View-scroll-page-forward'. (defalias 'View-scroll-page-backward #[(&optional lines) "\302\303\304 !\305$\207" [lines view-page-size view-scroll-lines t view-page-size-default nil] 5 (#$ . 27338) "P"]) #@435 Scroll forward LINES lines in View mode, setting the "page size". This is the number of lines which \[View-scroll-page-forward] and \[View-scroll-page-backward] scroll by default. If LINES is omitted or = 0, sets "page size" to window height and scrolls forward that much, otherwise scrolls forward LINES lines and sets "page size" to the minimum of window height and the absolute value of LINES. See also `View-scroll-page-forward'. (defalias 'View-scroll-page-forward-set-page-size #[(&optional lines) "\302\303\304!\211\303$\207" [lines view-page-size view-scroll-lines nil view-page-size-default] 5 (#$ . 27621) "P"]) #@126 Scroll backward prefix LINES lines in View mode, setting the "page size". See also `View-scroll-page-forward-set-page-size'. (defalias 'View-scroll-page-backward-set-page-size #[(&optional lines) "\302\303\304!\211\305$\207" [lines view-page-size view-scroll-lines t view-page-size-default nil] 5 (#$ . 28253) "P"]) #@176 Scroll forward one line (or prefix LINES lines) in View mode. See also `View-scroll-page-forward,' but note that scrolling is limited to minimum of LINES and one window-full. (defalias 'View-scroll-line-forward #[(&optional lines) "\301\302\303\304$\207" [lines view-scroll-lines nil 1 t] 5 (#$ . 28579) "P"]) #@101 Scroll backward one line (or prefix LINES lines) in View mode. See also `View-scroll-line-forward'. (defalias 'View-scroll-line-backward #[(&optional lines) "\301\302\303\302$\207" [lines view-scroll-lines t 1] 5 (#$ . 28897) "P"]) #@241 Scroll forward a "half page" (or prefix LINES) lines in View mode. If LINES is not omitted, the "half page size" is set to the minimum of window height and the absolute value of LINES. LINES=0 resets "half page size" to half window height. (defalias 'View-scroll-half-page-forward #[(&optional lines) "\301\302\303!\304$\207" [lines view-scroll-lines nil view-set-half-page-size-default t] 5 (#$ . 29137) "P"]) #@111 Scroll backward a "half page" (or prefix LINES) lines in View mode. See also `View-scroll-half-page-forward'. (defalias 'View-scroll-half-page-backward #[(&optional lines) "\301\302\303!\302$\207" [lines view-scroll-lines t view-set-half-page-size-default] 5 (#$ . 29557) "P"]) #@519 Scroll forward, reverting buffer if needed, in View mode. If buffer has not been changed and the corresponding file is newer, first revert the buffer, then scroll. This command is useful if you are viewing a changing file. The prefix argument LINES says how many lines to scroll. If you don't specify a prefix argument, it uses the number of lines set by \[View-scroll-page-forward-set-page-size] or \[View-scroll-page-backward-set-page-size]. If LINES is more than a window-full, only the last window-full is shown. (defalias 'View-revert-buffer-scroll-page-forward #[(&optional lines) "\304\305\306\n\304\307 !\304$*\207" [view-try-extend-at-buffer-end view-scroll-auto-exit lines view-page-size nil t view-scroll-lines view-page-size-default] 5 (#$ . 29844) "P"]) #@733 Search forward for first (or prefix Nth) occurrence of REGEXP in View mode. Displays line found at center of window. Sets mark at starting position and pushes mark ring. Characters @ and ! are special at the beginning of REGEXP. They modify the search rather than become part of the pattern searched for. @ means search all the buffer i.e. start search at the beginning of buffer. ! means search for a line that contains no match for the pattern. If REGEXP is empty or only consist of these control characters, then an earlier remembered REGEXP is used, otherwise REGEXP is remembered for use by later search commands. The variable `view-highlight-face' controls the face that is used for highlighting the match that is found. (defalias 'View-search-regexp-forward #[(n regexp) "\302 \"\207" [n regexp view-search] 3 (#$ . 30621) "p\nsSearch forward (regexp): "]) #@728 Search backward for first (or prefix Nth) occurrence of REGEXP in View mode. Displays line found at center of window. Sets mark at starting position and pushes mark ring. Characters @ and ! are special at the beginning of REGEXP. They modify the search rather than become part of the pattern searched for. @ means search all the buffer i.e. start search at the end of buffer. ! means search for a line that contains no match for the pattern. If REGEXP is empty or only consist of these control characters, then an earlier remembered REGEXP is used, otherwise REGEXP is remembered for use by later search commands. The variable `view-highlight-face' controls the face that is used for highlighting the match that is found. (defalias 'View-search-regexp-backward #[(n regexp) "\302[ \"\207" [n regexp view-search] 3 (#$ . 31498) "p\nsSearch backward (regexp): "]) #@284 Search forward for first (or prefix Nth) instance of last regexp in View mode. Displays line found at center of window. Sets mark at starting position and pushes mark ring. The variable `view-highlight-face' controls the face that is used for highlighting the match that is found. (defalias 'View-search-last-regexp-forward #[(n) "\301\302\"\207" [n view-search nil] 3 (#$ . 32373) "p"]) #@285 Search backward for first (or prefix Nth) instance of last regexp in View mode. Displays line found at center of window. Sets mark at starting position and pushes mark ring. The variable `view-highlight-face' controls the face that is used for highlighting the match that is found. (defalias 'View-search-last-regexp-backward #[(n) "\301[\302\"\207" [n view-search nil] 3 (#$ . 32771) "p"]) (defalias 'view-search #[(times regexp) "\306\211\211\211\f\203R\fG\307V\203R\310\f!\311>\203D\f\307\312O\313\235\203-\314\211\312\2028\310\f!\315=\211?\316\f\306O\211G\307V\203R\n\203M\fC\202N\f\202z :\203f @\n?\211\204z\f\202z \203v \n\203z\fC\202z\317\320!\210\212 \203\220\"\307W\203\212d\202\213eb\210\202\237\321\"\307W\203\234\307\202\235\322!\210\n\203\253\323\"\f\"\202\262\324\f\306\314\"$\203\267`) \203\353\325 \210 b\210#\203\323\326#\307\224\307\225#\210\202\333\327\307\224\307\225\"#\330#\331$#\210\332 \210\333 \202\376\334\335\"\n\203\367\336\202\370\337\f$\210\340\341!,\207" [ln end no where regexp view-last-regexp nil 0 string-to-char (33 64) 2 ("!@" "@!") t 64 1 error "No previous View-mode search" move-to-window-line -1 view-search-no-match-lines re-search-forward push-mark move-overlay make-overlay overlay-put face beginning-of-line view-recenter message "Can't find occurrence %d of %s%s" "no " "" sit-for 4 times view-overlay view-highlight-face] 6]) (defalias 'view-search-no-match-lines #[(times regexp) "\304W\205[\211\205\305\306\304V\203\207\212\307\n\203\"[\202$T!\210`)\310` \"W\2036\305\202\200\311 \306\312\n$\203e\n\203T\304\225 W\203i\310\304\225 \"\313V\202b \304\224W\203i\310 \304\224\"\313V\203i\304\202\200\n\203x\310 \304\224]\304\225\"\202\200\310\304\224 \304\225^\" b\210\202\314!\205\220\315\316!*\207" [times n back regexp 0 -1 nil beginning-of-line count-lines re-search-forward t 1 zerop looking-at "^.*$"] 5]) (provide 'view)