emacs: lisp/view.el annotate

1 ;;; view.el --- peruse file or buffer without editing.

fec3f9a1e3e5 *** empty log message ***

Eric S. Raymond <esr@snark.thyrsus.com>

parents: 584

2

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

840

113281b361ec *** empty log message ***

Eric S. Raymond <esr@snark.thyrsus.com>

parents: 807

4

807

4f28bd14272c *** empty log message ***

Eric S. Raymond <esr@snark.thyrsus.com>

parents: 657

5 ;; Author: K. Shane Hartman

18271

ead435447ea4 Comment change.

Richard M. Stallman <rms@gnu.org>

parents: 18268

6 ;; Maintainer: Inge Frick <inge@nada.kth.se>

44

a25bf36b0410 Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

7

a25bf36b0410 Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

8 ;; This file is part of GNU Emacs.

a25bf36b0410 Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

9

a25bf36b0410 Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

10 ;; GNU Emacs is free software; you can redistribute it and/or modify

a25bf36b0410 Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

11 ;; it under the terms of the GNU General Public License as published by

807

4f28bd14272c *** empty log message ***

Eric S. Raymond <esr@snark.thyrsus.com>

parents: 657

12 ;; the Free Software Foundation; either version 2, or (at your option)

44

a25bf36b0410 Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

13 ;; any later version.

a25bf36b0410 Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

14

a25bf36b0410 Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

15 ;; GNU Emacs is distributed in the hope that it will be useful,

a25bf36b0410 Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

16 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of

a25bf36b0410 Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the

a25bf36b0410 Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

18 ;; GNU General Public License for more details.

a25bf36b0410 Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

19

a25bf36b0410 Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

20 ;; You should have received a copy of the GNU General Public License

14169

83f275dcd93a Update FSF's address.

Erik Naggum <erik@naggum.no>

parents: 13640

21 ;; along with GNU Emacs; see the file COPYING. If not, write to the

83f275dcd93a Update FSF's address.

Erik Naggum <erik@naggum.no>

parents: 13640

22 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,

83f275dcd93a Update FSF's address.

Erik Naggum <erik@naggum.no>

parents: 13640

23 ;; Boston, MA 02111-1307, USA.

44

a25bf36b0410 Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

24

2319

d98c49df2acd Added or corrected Commentary section

Eric S. Raymond <esr@snark.thyrsus.com>

parents: 931

25 ;;; Commentary:

d98c49df2acd Added or corrected Commentary section

Eric S. Raymond <esr@snark.thyrsus.com>

parents: 931

26

a5e07f2bdf83 Rewrite as a minor mode.

Karl Heuer <kwzh@gnu.org>

parents: 12390

27 ;; This package provides the `view' minor mode documented in the Emacs

2319

d98c49df2acd Added or corrected Commentary section

Eric S. Raymond <esr@snark.thyrsus.com>

parents: 931

28 ;; user's manual.

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

29 ;; View mode entry and exit is done through the functions view-mode-enter

7cf9cdba062d Changed some documentation.

Richard M. Stallman <rms@gnu.org>

parents: 18335

30 ;; and view-mode-exit. Use these functions to enter or exit view-mode from

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

31 ;; emacs lisp programs.

7cf9cdba062d Changed some documentation.

Richard M. Stallman <rms@gnu.org>

parents: 18335

32 ;; We use both view- and View- as prefix for symbols. View- is used as

92d2c2e3b3f3 Some changes in comments and documentation.

Karl Heuer <kwzh@gnu.org>

parents: 19841

33 ;; prefix for commands that have a key binding. view- is used for commands

7cf9cdba062d Changed some documentation.

Richard M. Stallman <rms@gnu.org>

parents: 18335

34 ;; without key binding. The purpose of this is to make it easier for a

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

35 ;; user to use command name completion.

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

36

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

37 ;;; Suggested key bindings:

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

38 ;;

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

39 ;; (define-key ctl-x-4-map "v" 'view-file-other-window) ; ^x4v

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

40 ;; (define-key ctl-x-5-map "v" 'view-file-other-frame) ; ^x5v

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

41 ;;

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

42 ;; You could also bind view-file, view-buffer, view-buffer-other-window and

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

43 ;; view-buffer-other-frame to keys.

2319

d98c49df2acd Added or corrected Commentary section

Eric S. Raymond <esr@snark.thyrsus.com>

parents: 931

44

807

4f28bd14272c *** empty log message ***

Eric S. Raymond <esr@snark.thyrsus.com>

parents: 657

45 ;;; Code:

44

a25bf36b0410 Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

46

92d2c2e3b3f3 Some changes in comments and documentation.

Karl Heuer <kwzh@gnu.org>

parents: 19841

47 (defgroup view nil

92d2c2e3b3f3 Some changes in comments and documentation.

Karl Heuer <kwzh@gnu.org>

parents: 19841

48 "Peruse file or buffer without editing."

92d2c2e3b3f3 Some changes in comments and documentation.

Karl Heuer <kwzh@gnu.org>

parents: 19841

49 :link '(function-link view-mode)

92d2c2e3b3f3 Some changes in comments and documentation.

Karl Heuer <kwzh@gnu.org>

parents: 19841

50 :link '(custom-manual "(emacs)Misc File Ops")

92d2c2e3b3f3 Some changes in comments and documentation.

Karl Heuer <kwzh@gnu.org>

parents: 19841

51 :group 'wp

92d2c2e3b3f3 Some changes in comments and documentation.

Karl Heuer <kwzh@gnu.org>

parents: 19841

52 :group 'editing)

92d2c2e3b3f3 Some changes in comments and documentation.

Karl Heuer <kwzh@gnu.org>

parents: 19841

53

92d2c2e3b3f3 Some changes in comments and documentation.

Karl Heuer <kwzh@gnu.org>

parents: 19841

54 (defcustom view-read-only nil

92d2c2e3b3f3 Some changes in comments and documentation.

Karl Heuer <kwzh@gnu.org>

parents: 19841

55 "*Non-nil means buffers visiting files read-only, do it in view mode."

92d2c2e3b3f3 Some changes in comments and documentation.

Karl Heuer <kwzh@gnu.org>

parents: 19841

56 :type 'boolean

92d2c2e3b3f3 Some changes in comments and documentation.

Karl Heuer <kwzh@gnu.org>

parents: 19841

57 :group 'view)

92d2c2e3b3f3 Some changes in comments and documentation.

Karl Heuer <kwzh@gnu.org>

parents: 19841

58

92d2c2e3b3f3 Some changes in comments and documentation.

Karl Heuer <kwzh@gnu.org>

parents: 19841

59 (defcustom view-highlight-face 'highlight

92d2c2e3b3f3 Some changes in comments and documentation.

Karl Heuer <kwzh@gnu.org>

parents: 19841

60 "*The face used for highlighting the match found by View mode search."

92d2c2e3b3f3 Some changes in comments and documentation.

Karl Heuer <kwzh@gnu.org>

parents: 19841

61 :type 'face

92d2c2e3b3f3 Some changes in comments and documentation.

Karl Heuer <kwzh@gnu.org>

parents: 19841

62 :group 'view)

13167

c378e215f4d0 (view-highlight-face): New variable.

Richard M. Stallman <rms@gnu.org>

parents: 13158

63

7cf9cdba062d Changed some documentation.

Richard M. Stallman <rms@gnu.org>

parents: 18335

64 ;; `view-mode-auto-exit' is replaced by the following option variable which

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

65 ;; only says if scrolling past buffer end should leave view mode or not, it

4eabe22131dd Many doc fixes.

Richard M. Stallman <rms@gnu.org>

parents: 18249

66 ;; doesn't say if leaving view mode should restore windows or not. The latter

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

67 ;; is now controlled by the presence of a value in `view-return-to-alist'.

92d2c2e3b3f3 Some changes in comments and documentation.

Karl Heuer <kwzh@gnu.org>

parents: 19841

68 (defcustom view-scroll-auto-exit nil

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

69 "*Non-nil means scrolling past the end of buffer exits View mode.

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

70 nil means attempting to scroll past the end of the buffer,

92d2c2e3b3f3 Some changes in comments and documentation.

Karl Heuer <kwzh@gnu.org>

parents: 19841

71 only rings the bell and gives a message on how to leave."

92d2c2e3b3f3 Some changes in comments and documentation.

Karl Heuer <kwzh@gnu.org>

parents: 19841

72 :type 'boolean

92d2c2e3b3f3 Some changes in comments and documentation.

Karl Heuer <kwzh@gnu.org>

parents: 19841

73 :group 'view)

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

74

92d2c2e3b3f3 Some changes in comments and documentation.

Karl Heuer <kwzh@gnu.org>

parents: 19841

75 (defcustom view-try-extend-at-buffer-end nil

7cf9cdba062d Changed some documentation.

Richard M. Stallman <rms@gnu.org>

parents: 18335

76 "*Non-nil means try load more of file when reaching end of buffer.

7cf9cdba062d Changed some documentation.

Richard M. Stallman <rms@gnu.org>

parents: 18335

77 This variable is mainly intended to be temporarily set to non-nil by

7cf9cdba062d Changed some documentation.

Richard M. Stallman <rms@gnu.org>

parents: 18335

78 the F command in view-mode, but you can set it to t if you want the action

92d2c2e3b3f3 Some changes in comments and documentation.

Karl Heuer <kwzh@gnu.org>

parents: 19841

79 for all scroll commands in view mode."

92d2c2e3b3f3 Some changes in comments and documentation.

Karl Heuer <kwzh@gnu.org>

parents: 19841

80 :type 'boolean

92d2c2e3b3f3 Some changes in comments and documentation.

Karl Heuer <kwzh@gnu.org>

parents: 19841

81 :group 'view)

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

82

92d2c2e3b3f3 Some changes in comments and documentation.

Karl Heuer <kwzh@gnu.org>

parents: 19841

83 (defcustom view-remove-frame-by-deleting nil

92d2c2e3b3f3 Some changes in comments and documentation.

Karl Heuer <kwzh@gnu.org>

parents: 19841

84 "*Determine how View mode removes a frame no longer needed.

92d2c2e3b3f3 Some changes in comments and documentation.

Karl Heuer <kwzh@gnu.org>

parents: 19841

85 If nil, make an icon of the frame. If non-nil, delete the frame."

92d2c2e3b3f3 Some changes in comments and documentation.

Karl Heuer <kwzh@gnu.org>

parents: 19841

86 :type 'boolean

92d2c2e3b3f3 Some changes in comments and documentation.

Karl Heuer <kwzh@gnu.org>

parents: 19841

87 :group 'view)

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

88

92d2c2e3b3f3 Some changes in comments and documentation.

Karl Heuer <kwzh@gnu.org>

parents: 19841

89 (defcustom view-exits-all-viewing-windows nil

7cf9cdba062d Changed some documentation.

Richard M. Stallman <rms@gnu.org>

parents: 18335

90 "*Non-nil means restore all windows used to view buffer.

7cf9cdba062d Changed some documentation.

Richard M. Stallman <rms@gnu.org>

parents: 18335

91 Commands that restore windows when finished viewing a buffer, apply to all

7cf9cdba062d Changed some documentation.

Richard M. Stallman <rms@gnu.org>

parents: 18335

92 windows that display the buffer and have restore information in

92d2c2e3b3f3 Some changes in comments and documentation.

Karl Heuer <kwzh@gnu.org>

parents: 19841

93 `view-return-to-alist'.

f072dd90378d (view-return-to-alist): Doc fix.

Richard M. Stallman <rms@gnu.org>

parents: 20072

94 If `view-exits-all-viewing-windows' is nil, only the selected window is

92d2c2e3b3f3 Some changes in comments and documentation.

Karl Heuer <kwzh@gnu.org>

parents: 19841

95 considered for restoring."

92d2c2e3b3f3 Some changes in comments and documentation.

Karl Heuer <kwzh@gnu.org>

parents: 19841

96 :type 'boolean

92d2c2e3b3f3 Some changes in comments and documentation.

Karl Heuer <kwzh@gnu.org>

parents: 19841

97 :group 'view)

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

98

18335

6f48844ce1a9 (view-mode): Add autoload cookie to this variable.

Kenichi Handa <handa@m17n.org>

parents: 18271

99 ;;;###autoload

92d2c2e3b3f3 Some changes in comments and documentation.

Karl Heuer <kwzh@gnu.org>

parents: 19841

100 (defvar view-mode nil

92d2c2e3b3f3 Some changes in comments and documentation.

Karl Heuer <kwzh@gnu.org>

parents: 19841

101 "Non-nil if View mode is enabled.

92d2c2e3b3f3 Some changes in comments and documentation.

Karl Heuer <kwzh@gnu.org>

parents: 19841

102 Don't change this variable directly, you must change it by one of the

92d2c2e3b3f3 Some changes in comments and documentation.

Karl Heuer <kwzh@gnu.org>

parents: 19841

103 functions that enable or disable view mode.")

18335

6f48844ce1a9 (view-mode): Add autoload cookie to this variable.

Kenichi Handa <handa@m17n.org>

parents: 18271

104 ;;;###autoload

a5e07f2bdf83 Rewrite as a minor mode.

Karl Heuer <kwzh@gnu.org>

parents: 12390

105 (make-variable-buffer-local 'view-mode)

a5e07f2bdf83 Rewrite as a minor mode.

Karl Heuer <kwzh@gnu.org>

parents: 12390

106

92d2c2e3b3f3 Some changes in comments and documentation.

Karl Heuer <kwzh@gnu.org>

parents: 19841

107 (defcustom view-mode-hook nil

92d2c2e3b3f3 Some changes in comments and documentation.

Karl Heuer <kwzh@gnu.org>

parents: 19841

108 "Normal hook run when starting to view a buffer or file."

92d2c2e3b3f3 Some changes in comments and documentation.

Karl Heuer <kwzh@gnu.org>

parents: 19841

109 :type 'hook

92d2c2e3b3f3 Some changes in comments and documentation.

Karl Heuer <kwzh@gnu.org>

parents: 19841

110 :group 'view)

d7735534db86 (view-mode-enter): Renamed from view-mode. Callers changed.

Richard M. Stallman <rms@gnu.org>

parents: 12857

111

d7735534db86 (view-mode-enter): Renamed from view-mode. Callers changed.

Richard M. Stallman <rms@gnu.org>

parents: 12857

112 (defvar view-old-buffer-read-only nil)

d7735534db86 (view-mode-enter): Renamed from view-mode. Callers changed.

Richard M. Stallman <rms@gnu.org>

parents: 12857

113 (make-variable-buffer-local 'view-old-buffer-read-only)

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

114

d7735534db86 (view-mode-enter): Renamed from view-mode. Callers changed.

Richard M. Stallman <rms@gnu.org>

parents: 12857

115 (defvar view-old-Helper-return-blurb)

d7735534db86 (view-mode-enter): Renamed from view-mode. Callers changed.

Richard M. Stallman <rms@gnu.org>

parents: 12857

116 (make-variable-buffer-local 'view-old-Helper-return-blurb)

d7735534db86 (view-mode-enter): Renamed from view-mode. Callers changed.

Richard M. Stallman <rms@gnu.org>

parents: 12857

117

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

118 (defvar view-page-size nil

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

119 "Default number of lines to scroll by View page commands.

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

120 If nil then the local value of this is initially set to window size.")

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

121 (make-variable-buffer-local 'view-page-size)

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

122

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

123 (defvar view-half-page-size nil

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

124 "Default number of lines to scroll by View half page commands.

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

125 If nil then the local value of this is initially set to half window size.")

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

126 (make-variable-buffer-local 'view-half-page-size)

d7735534db86 (view-mode-enter): Renamed from view-mode. Callers changed.

Richard M. Stallman <rms@gnu.org>

parents: 12857

127

d7735534db86 (view-mode-enter): Renamed from view-mode. Callers changed.

Richard M. Stallman <rms@gnu.org>

parents: 12857

128 (defvar view-last-regexp nil)

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

129 (make-variable-buffer-local 'view-last-regexp) ; Global is better???

d7735534db86 (view-mode-enter): Renamed from view-mode. Callers changed.

Richard M. Stallman <rms@gnu.org>

parents: 12857

130

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

131 (defvar view-return-to-alist nil

7cf9cdba062d Changed some documentation.

Richard M. Stallman <rms@gnu.org>

parents: 18335

132 "What to do with used windows and where to go when finished viewing buffer.

7cf9cdba062d Changed some documentation.

Richard M. Stallman <rms@gnu.org>

parents: 18335

133 This is local in each buffer being viewed.

f072dd90378d (view-return-to-alist): Doc fix.

Richard M. Stallman <rms@gnu.org>

parents: 20072

134 It is added to by `view-mode-enter' when starting to view a buffer and

f072dd90378d (view-return-to-alist): Doc fix.

Richard M. Stallman <rms@gnu.org>

parents: 20072

135 subtracted from by `view-mode-exit' when finished viewing the buffer.

7cf9cdba062d Changed some documentation.

Richard M. Stallman <rms@gnu.org>

parents: 18335

136

7cf9cdba062d Changed some documentation.

Richard M. Stallman <rms@gnu.org>

parents: 18335

137 See RETURN-TO-ALIST argument of function `view-mode-exit' for the format of

4eabe22131dd Many doc fixes.

Richard M. Stallman <rms@gnu.org>

parents: 18249

138 `view-return-to-alist'.")

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

139 (make-variable-buffer-local 'view-return-to-alist)

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

140

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

141 (defvar view-exit-action nil

7cf9cdba062d Changed some documentation.

Richard M. Stallman <rms@gnu.org>

parents: 18335

142 "nil or a function with one argument (a buffer) called when finished viewing.

7cf9cdba062d Changed some documentation.

Richard M. Stallman <rms@gnu.org>

parents: 18335

143 This is local in each buffer being viewed.

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

144 The \\[view-file] and \\[view-file-other-window] commands may set this to

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

145 `kill-buffer'.")

d7735534db86 (view-mode-enter): Renamed from view-mode. Callers changed.

Richard M. Stallman <rms@gnu.org>

parents: 12857

146 (make-variable-buffer-local 'view-exit-action)

d7735534db86 (view-mode-enter): Renamed from view-mode. Callers changed.

Richard M. Stallman <rms@gnu.org>

parents: 12857

147

19229

e272bd93c93c (view-just-bury): New variable.

Richard M. Stallman <rms@gnu.org>

parents: 18448

148 (defvar view-no-disable-on-exit nil

e272bd93c93c (view-just-bury): New variable.

Richard M. Stallman <rms@gnu.org>

parents: 18448

149 "If non-nil, View mode \"exit\" commands don't actually disable View mode.

e272bd93c93c (view-just-bury): New variable.

Richard M. Stallman <rms@gnu.org>

parents: 18448

150 Instead, these commands just switch buffers or windows.

e272bd93c93c (view-just-bury): New variable.

Richard M. Stallman <rms@gnu.org>

parents: 18448

151 This is set in certain buffers by specialized features such as help commands

e272bd93c93c (view-just-bury): New variable.

Richard M. Stallman <rms@gnu.org>

parents: 18448

152 that use View mode automatically.")

e272bd93c93c (view-just-bury): New variable.

Richard M. Stallman <rms@gnu.org>

parents: 18448

153

13122

05bae277596e (View-search-regexp-forward, View-search-regexp-backward):

Richard M. Stallman <rms@gnu.org>

parents: 13078

154 (defvar view-overlay nil

13167

c378e215f4d0 (view-highlight-face): New variable.

Richard M. Stallman <rms@gnu.org>

parents: 13158

155 "Overlay used to display where a search operation found its match.

c378e215f4d0 (view-highlight-face): New variable.

Richard M. Stallman <rms@gnu.org>

parents: 13158

156 This is local in each buffer, once it is used.")

13122

05bae277596e (View-search-regexp-forward, View-search-regexp-backward):

Richard M. Stallman <rms@gnu.org>

parents: 13078

157 (make-variable-buffer-local 'view-overlay)

05bae277596e (View-search-regexp-forward, View-search-regexp-backward):

Richard M. Stallman <rms@gnu.org>

parents: 13078

158

a5e07f2bdf83 Rewrite as a minor mode.

Karl Heuer <kwzh@gnu.org>

parents: 12390

159 (or (assq 'view-mode minor-mode-alist)

a5e07f2bdf83 Rewrite as a minor mode.

Karl Heuer <kwzh@gnu.org>

parents: 12390

160 (setq minor-mode-alist

a5e07f2bdf83 Rewrite as a minor mode.

Karl Heuer <kwzh@gnu.org>

parents: 12390

161 (cons '(view-mode " View") minor-mode-alist)))

a5e07f2bdf83 Rewrite as a minor mode.

Karl Heuer <kwzh@gnu.org>

parents: 12390

162

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

163 ;; Define keymap inside defvar to make it easier to load changes.

92d2c2e3b3f3 Some changes in comments and documentation.

Karl Heuer <kwzh@gnu.org>

parents: 19841

164 ;; Some redundant "less"-like key bindings below have been commented out.

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

165 (defvar view-mode-map

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

166 (let ((map (make-sparse-keymap)))

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

167 (define-key map "C" 'View-kill-and-leave)

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

168 (define-key map "c" 'View-leave)

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

169 (define-key map "Q" 'View-quit-all)

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

170 (define-key map "E" 'View-exit-and-edit)

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

171 ; (define-key map "v" 'View-exit)

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

172 (define-key map "e" 'View-exit)

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

173 (define-key map "q" 'View-quit)

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

174 ; (define-key map "N" 'View-search-last-regexp-backward)

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

175 (define-key map "p" 'View-search-last-regexp-backward)

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

176 (define-key map "n" 'View-search-last-regexp-forward)

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

177 ; (define-key map "?" 'View-search-regexp-backward) ; Less does this.

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

178 (define-key map "\\" 'View-search-regexp-backward)

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

179 (define-key map "/" 'View-search-regexp-forward)

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

180 (define-key map "r" 'isearch-backward)

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

181 (define-key map "s" 'isearch-forward)

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

182 (define-key map "m" 'point-to-register)

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

183 (define-key map "'" 'register-to-point)

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

184 (define-key map "x" 'exchange-point-and-mark)

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

185 (define-key map "@" 'View-back-to-mark)

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

186 (define-key map "." 'set-mark-command)

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

187 (define-key map "%" 'View-goto-percent)

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

188 ; (define-key map "G" 'View-goto-line-last)

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

189 (define-key map "g" 'View-goto-line)

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

190 (define-key map "=" 'what-line)

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

191 (define-key map "F" 'View-revert-buffer-scroll-page-forward)

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

192 ; (define-key map "k" 'View-scroll-line-backward)

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

193 (define-key map "y" 'View-scroll-line-backward)

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

194 ; (define-key map "j" 'View-scroll-line-forward)

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

195 (define-key map "\n" 'View-scroll-line-forward)

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

196 (define-key map "\r" 'View-scroll-line-forward)

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

197 (define-key map "u" 'View-scroll-half-page-backward)

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

198 (define-key map "d" 'View-scroll-half-page-forward)

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

199 (define-key map "z" 'View-scroll-page-forward-set-page-size)

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

200 (define-key map "w" 'View-scroll-page-backward-set-page-size)

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

201 ; (define-key map "b" 'View-scroll-page-backward)

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

202 (define-key map "\C-?" 'View-scroll-page-backward)

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

203 ; (define-key map "f" 'View-scroll-page-forward)

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

204 (define-key map " " 'View-scroll-page-forward)

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

205 (define-key map "o" 'View-scroll-to-buffer-end)

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

206 (define-key map ">" 'end-of-buffer)

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

207 (define-key map "<" 'beginning-of-buffer)

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

208 (define-key map "-" 'negative-argument)

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

209 (define-key map "9" 'digit-argument)

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

210 (define-key map "8" 'digit-argument)

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

211 (define-key map "7" 'digit-argument)

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

212 (define-key map "6" 'digit-argument)

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

213 (define-key map "5" 'digit-argument)

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

214 (define-key map "4" 'digit-argument)

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

215 (define-key map "3" 'digit-argument)

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

216 (define-key map "2" 'digit-argument)

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

217 (define-key map "1" 'digit-argument)

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

218 (define-key map "0" 'digit-argument)

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

219 (define-key map "H" 'describe-mode)

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

220 (define-key map "?" 'describe-mode) ; Maybe do as less instead?

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

221 (define-key map "h" 'describe-mode)

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

222 map))

44

a25bf36b0410 Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

223

d7735534db86 (view-mode-enter): Renamed from view-mode. Callers changed.

Richard M. Stallman <rms@gnu.org>

parents: 12857

224 (or (assq 'view-mode minor-mode-map-alist)

d7735534db86 (view-mode-enter): Renamed from view-mode. Callers changed.

Richard M. Stallman <rms@gnu.org>

parents: 12857

225 (setq minor-mode-map-alist

d7735534db86 (view-mode-enter): Renamed from view-mode. Callers changed.

Richard M. Stallman <rms@gnu.org>

parents: 12857

226 (cons (cons 'view-mode view-mode-map) minor-mode-map-alist)))

d7735534db86 (view-mode-enter): Renamed from view-mode. Callers changed.

Richard M. Stallman <rms@gnu.org>

parents: 12857

227

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

228 ;;; Commands that enter or exit view mode.

44

a25bf36b0410 Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

229

256

7e4c7ef44243 *** empty log message ***

Roland McGrath <roland@gnu.org>

parents: 44

230 ;;;###autoload

44

a25bf36b0410 Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

231 (defun view-file (file-name)

a25bf36b0410 Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

232 "View FILE in View mode, returning to previous buffer when done.

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

233 Emacs commands editing the buffer contents are not available; instead,

44

a25bf36b0410 Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

234 a special set of commands (mostly letters and punctuation)

a25bf36b0410 Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

235 are defined for moving around in the buffer.

a25bf36b0410 Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

236 Space scrolls forward, Delete scrolls backward.

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

237 For list of all View commands, type H or h while viewing.

23984354573b *** empty log message ***

Jim Blandy <jimb@redhat.com>

parents: 343

238

6330

3badf836d51d (view-mode): Run view-mode-hook as well as view-hook.

Richard M. Stallman <rms@gnu.org>

parents: 5123

239 This command runs the normal hook `view-mode-hook'."

23984354573b *** empty log message ***

Jim Blandy <jimb@redhat.com>

parents: 343

240 (interactive "fView file: ")

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

241 (let ((had-a-buf (get-file-buffer file-name)))

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

242 (view-buffer (find-file-noselect file-name)

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

243 (and (not had-a-buf) 'kill-buffer))))

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

244

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

245 ;;;###autoload

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

246 (defun view-file-other-window (file-name)

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

247 "View FILE in View mode in another window.

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

248 Return that window to its previous buffer when done.

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

249 Emacs commands editing the buffer contents are not available; instead,

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

250 a special set of commands (mostly letters and punctuation)

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

251 are defined for moving around in the buffer.

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

252 Space scrolls forward, Delete scrolls backward.

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

253 For list of all View commands, type H or h while viewing.

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

254

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

255 This command runs the normal hook `view-mode-hook'."

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

256 (interactive "fIn other window view file: ")

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

257 (let ((had-a-buf (get-file-buffer file-name)))

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

258 (view-buffer-other-window (find-file-noselect file-name) nil

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

259 (and (not had-a-buf) 'kill-buffer))))

23984354573b *** empty log message ***

Jim Blandy <jimb@redhat.com>

parents: 343

260

23984354573b *** empty log message ***

Jim Blandy <jimb@redhat.com>

parents: 343

261 ;;;###autoload

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

262 (defun view-file-other-frame (file-name)

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

263 "View FILE in View mode in another frame.

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

264 Maybe delete other frame and/or return to previous buffer when done.

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

265 Emacs commands editing the buffer contents are not available; instead,

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

266 a special set of commands (mostly letters and punctuation)

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

267 are defined for moving around in the buffer.

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

268 Space scrolls forward, Delete scrolls backward.

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

269 For list of all View commands, type H or h while viewing.

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

270

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

271 This command runs the normal hook `view-mode-hook'."

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

272 (interactive "fIn other frame view file: ")

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

273 (let ((had-a-buf (get-file-buffer file-name)))

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

274 (view-buffer-other-frame (find-file-noselect file-name) nil

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

275 (and (not had-a-buf) 'kill-buffer))))

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

276

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

277

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

278 ;;;###autoload

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

279 (defun view-buffer (buffer-name &optional exit-action)

44

a25bf36b0410 Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

280 "View BUFFER in View mode, returning to previous buffer when done.

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

281 Emacs commands editing the buffer contents are not available; instead,

44

a25bf36b0410 Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

282 a special set of commands (mostly letters and punctuation)

a25bf36b0410 Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

283 are defined for moving around in the buffer.

a25bf36b0410 Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

284 Space scrolls forward, Delete scrolls backward.

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

285 For list of all View commands, type H or h while viewing.

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

286

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

287 This command runs the normal hook `view-mode-hook'.

44

a25bf36b0410 Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

288

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

289 Optional argument EXIT-ACTION is either nil or a function with buffer as

4eabe22131dd Many doc fixes.

Richard M. Stallman <rms@gnu.org>

parents: 18249

290 argument. This function is called when finished viewing buffer.

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

291 Use this argument instead of explicitly setting `view-exit-action'."

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

292

44

a25bf36b0410 Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

293 (interactive "bView buffer: ")

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

294 (let ((undo-window (list (window-buffer) (window-start) (window-point))))

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

295 (switch-to-buffer buffer-name)

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

296 (view-mode-enter (cons (selected-window) (cons nil undo-window))

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

297 exit-action)))

44

a25bf36b0410 Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

298

256

7e4c7ef44243 *** empty log message ***

Roland McGrath <roland@gnu.org>

parents: 44

299 ;;;###autoload

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

300 (defun view-buffer-other-window

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

301 (buffer-name &optional not-return exit-action)

a5e07f2bdf83 Rewrite as a minor mode.

Karl Heuer <kwzh@gnu.org>

parents: 12390

302 "View BUFFER in View mode in another window.

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

303 Return to previous buffer when done, unless optional NOT-RETURN is non-nil.

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

304 Emacs commands editing the buffer contents are not available; instead,

23984354573b *** empty log message ***

Jim Blandy <jimb@redhat.com>

parents: 343

305 a special set of commands (mostly letters and punctuation)

23984354573b *** empty log message ***

Jim Blandy <jimb@redhat.com>

parents: 343

306 are defined for moving around in the buffer.

23984354573b *** empty log message ***

Jim Blandy <jimb@redhat.com>

parents: 343

307 Space scrolls forward, Delete scrolls backward.

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

308 For list of all View commands, type H or h while viewing.

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

309

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

310 This command runs the normal hook `view-mode-hook'.

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

311

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

312 Optional argument EXIT-ACTION is either nil or a function with buffer as

4eabe22131dd Many doc fixes.

Richard M. Stallman <rms@gnu.org>

parents: 18249

313 argument. This function is called when finished viewing buffer.

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

314 Use this argument instead of explicitly setting `view-exit-action'."

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

315 (interactive "bIn other window view buffer:\nP")

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

316 (let* ((win ; This window will be selected by

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

317 (get-lru-window)) ; switch-to-buffer-other-window below.

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

318 (return-to

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

319 (and (not not-return)

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

320 (cons (selected-window)

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

321 (if (eq win (selected-window))

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

322 t ; Has to make new window.

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

323 (list

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

324 (window-buffer win) ; Other windows old buffer.

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

325 (window-start win)

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

326 (window-point win)))))))

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

327 (switch-to-buffer-other-window buffer-name)

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

328 (view-mode-enter (and return-to (cons (selected-window) return-to))

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

329 exit-action)))

23984354573b *** empty log message ***

Jim Blandy <jimb@redhat.com>

parents: 343

330

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

331 ;;;###autoload

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

332 (defun view-buffer-other-frame

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

333 (buffer-name &optional not-return exit-action)

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

334 "View BUFFER in View mode in another frame.

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

335 Return to previous buffer when done, unless optional NOT-RETURN is non-nil.

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

336 Emacs commands editing the buffer contents are not available; instead,

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

337 a special set of commands (mostly letters and punctuation)

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

338 are defined for moving around in the buffer.

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

339 Space scrolls forward, Delete scrolls backward.

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

340 For list of all View commands, type H or h while viewing.

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

341

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

342 This command runs the normal hook `view-mode-hook'.

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

343

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

344 Optional argument EXIT-ACTION is either nil or a function with buffer as

4eabe22131dd Many doc fixes.

Richard M. Stallman <rms@gnu.org>

parents: 18249

345 argument. This function is called when finished viewing buffer.

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

346 Use this argument instead of explicitly setting `view-exit-action'."

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

347 (interactive "bView buffer in other frame: \nP")

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

348 (let ((return-to

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

349 (and (not not-return) (cons (selected-window) t)))) ; Old window.

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

350 (switch-to-buffer-other-frame buffer-name)

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

351 (view-mode-enter (and return-to (cons (selected-window) return-to))

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

352 exit-action)))

23984354573b *** empty log message ***

Jim Blandy <jimb@redhat.com>

parents: 343

353

23984354573b *** empty log message ***

Jim Blandy <jimb@redhat.com>

parents: 343

354 ;;;###autoload

d7735534db86 (view-mode-enter): Renamed from view-mode. Callers changed.

Richard M. Stallman <rms@gnu.org>

parents: 12857

355 (defun view-mode (&optional arg)

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

356 ;; In the following documentation string we have to use some explicit key

4eabe22131dd Many doc fixes.

Richard M. Stallman <rms@gnu.org>

parents: 18249

357 ;; bindings instead of using the \\[] construction. The reason for this

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

358 ;; is that most commands have more than one key binding.

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

359 "Toggle View mode, a minor mode for viewing text but not editing it.

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

360 With arg, turn View mode on iff arg is positive.

15556

bb72fd0a69b7 (view-mode): Doc fix.

Richard M. Stallman <rms@gnu.org>

parents: 14491

361

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

362 Emacs commands that do not change the buffer contents are available as usual.

4eabe22131dd Many doc fixes.

Richard M. Stallman <rms@gnu.org>

parents: 18249

363 Kill commands insert text in kill buffers but do not delete. Other commands

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

364 \(among them most letters and punctuation) beep and tell that the buffer is

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

365 read-only.

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

366 \\<view-mode-map>

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

367 The following additional commands are provided. Most commands take prefix

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

368 arguments. Page commands default to \"page size\" lines which is almost a whole

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

369 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

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

370 and set \"half page size\" lines which initially is half a window full. Search

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

371 commands default to a repeat count of one.

13640

ee453099e188 (view-mode, view-mode-enter): Doc changes.

Richard M. Stallman <rms@gnu.org>

parents: 13639

372

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

373 H, h, ? This message.

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

374 Digits provide prefix arguments.

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

375 \\[negative-argument] negative prefix argument.

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

376 \\[beginning-of-buffer] move to the beginning of buffer.

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

377 > move to the end of buffer.

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

378 \\[View-scroll-to-buffer-end] scroll so that buffer end is at last line of window.

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

379 SPC scroll forward prefix (default \"page size\") lines.

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

380 DEL scroll backward prefix (default \"page size\") lines.

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

381 \\[View-scroll-page-forward-set-page-size] like \\[View-scroll-page-forward] except prefix sets \"page size\".

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

382 \\[View-scroll-page-backward-set-page-size] like \\[View-scroll-page-backward] except prefix sets \"page size\".

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

383 \\[View-scroll-half-page-forward] scroll forward (and if prefix set) \"half page size\" lines.

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

384 \\[View-scroll-half-page-backward] scroll backward (and if prefix set) \"half page size\" lines.

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

385 RET, LFD scroll forward prefix (default one) line(s).

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

386 y scroll backward prefix (default one) line(s).

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

387 \\[View-revert-buffer-scroll-page-forward] revert-buffer if necessary and scroll forward.

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

388 Use this to view a changing file.

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

389 \\[what-line] prints the current line number.

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

390 \\[View-goto-percent] goes prefix argument (default 100) percent into buffer.

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

391 \\[View-goto-line] goes to line given by prefix argument (default first line).

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

392 . set the mark.

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

393 x exchanges point and mark.

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

394 \\[View-back-to-mark] return to mark and pops mark ring.

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

395 Mark ring is pushed at start of every successful search and when

4eabe22131dd Many doc fixes.

Richard M. Stallman <rms@gnu.org>

parents: 18249

396 jump to line occurs. The mark is set on jump to buffer start or end.

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

397 \\[point-to-register] save current position in character register.

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

398 ' go to position saved in character register.

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

399 s do forward incremental search.

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

400 r do reverse incremental search.

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

401 \\[View-search-regexp-forward] searches forward for regular expression, starting after current page.

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

402 ! and @ have a special meaning at the beginning of the regexp.

4eabe22131dd Many doc fixes.

Richard M. Stallman <rms@gnu.org>

parents: 18249

403 ! means search for a line with no match for regexp. @ means start

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

404 search at beginning (end for backward search) of buffer.

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

405 \\ searches backward for regular expression, starting before current page.

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

406 \\[View-search-last-regexp-forward] searches forward for last regular expression.

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

407 p searches backward for last regular expression.

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

408 \\[View-quit] quit View mode, trying to restore window and buffer to previous state.

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

409 \\[View-quit] is the normal way to leave view mode.

4eabe22131dd Many doc fixes.

Richard M. Stallman <rms@gnu.org>

parents: 18249

410 \\[View-exit] exit View mode but stay in current buffer. Use this if you started

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

411 viewing a buffer (file) and find out you want to edit it.

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

412 \\[View-exit-and-edit] exit View mode and make the current buffer editable.

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

413 \\[View-quit-all] quit View mode, trying to restore windows and buffer to previous state.

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

414 \\[View-leave] quit View mode and maybe switch buffers, but don't kill this buffer.

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

415 \\[View-kill-and-leave] quit View mode, kill current buffer and go back to other buffer.

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

416

4eabe22131dd Many doc fixes.

Richard M. Stallman <rms@gnu.org>

parents: 18249

417 The effect of \\[View-leave] , \\[View-quit] and \\[View-kill-and-leave] depends on how view-mode was entered. If it was

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

418 entered by view-file, view-file-other-window or view-file-other-frame (\\[view-file],

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

419 \\[view-file-other-window], \\[view-file-other-frame] or the dired mode v command), then \\[View-quit] will try to kill the

4eabe22131dd Many doc fixes.

Richard M. Stallman <rms@gnu.org>

parents: 18249

420 current buffer. If view-mode was entered from another buffer as is done by

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

421 View-buffer, View-buffer-other-window, View-buffer-other frame, View-file,

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

422 View-file-other-window or View-file-other-frame then \\[view-leave] , \\[view-quit] and \\[view-kill-and-leave] will return

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

423 to that buffer.

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

424

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

425 Entry to view-mode runs the normal hook `view-mode-hook'."

13640

ee453099e188 (view-mode, view-mode-enter): Doc changes.

Richard M. Stallman <rms@gnu.org>

parents: 13639

426 (interactive "P")

92d2c2e3b3f3 Some changes in comments and documentation.

Karl Heuer <kwzh@gnu.org>

parents: 19841

427 (unless (and arg ; Do nothing if already OK.

92d2c2e3b3f3 Some changes in comments and documentation.

Karl Heuer <kwzh@gnu.org>

parents: 19841

428 (if (> (prefix-numeric-value arg) 0) view-mode (not view-mode)))

92d2c2e3b3f3 Some changes in comments and documentation.

Karl Heuer <kwzh@gnu.org>

parents: 19841

429 (if view-mode (view-mode-disable)

92d2c2e3b3f3 Some changes in comments and documentation.

Karl Heuer <kwzh@gnu.org>

parents: 19841

430 (view-mode-enable))))

4eabe22131dd Many doc fixes.

Richard M. Stallman <rms@gnu.org>

parents: 18249

431

4eabe22131dd Many doc fixes.

Richard M. Stallman <rms@gnu.org>

parents: 18249

432 (defun view-mode-enable ()

4eabe22131dd Many doc fixes.

Richard M. Stallman <rms@gnu.org>

parents: 18249

433 "Turn on View mode."

18268

a42f063f003b Don't globally add to change-major-mode-hook.

Richard M. Stallman <rms@gnu.org>

parents: 18250

434 ;; Always leave view mode before changing major mode.

a42f063f003b Don't globally add to change-major-mode-hook.

Richard M. Stallman <rms@gnu.org>

parents: 18250

435 ;; This is to guarantee that the buffer-read-only variable is restored.

a42f063f003b Don't globally add to change-major-mode-hook.

Richard M. Stallman <rms@gnu.org>

parents: 18250

436 (make-local-hook 'change-major-mode-hook)

a42f063f003b Don't globally add to change-major-mode-hook.

Richard M. Stallman <rms@gnu.org>

parents: 18250

437 (add-hook 'change-major-mode-hook 'view-mode-disable nil t)

4eabe22131dd Many doc fixes.

Richard M. Stallman <rms@gnu.org>

parents: 18249

438 (setq view-mode t

4eabe22131dd Many doc fixes.

Richard M. Stallman <rms@gnu.org>

parents: 18249

439 view-page-size (view-page-size-default view-page-size)

4eabe22131dd Many doc fixes.

Richard M. Stallman <rms@gnu.org>

parents: 18249

440 view-half-page-size (or view-half-page-size (/ (view-window-size) 2))

4eabe22131dd Many doc fixes.

Richard M. Stallman <rms@gnu.org>

parents: 18249

441 view-old-buffer-read-only buffer-read-only

4eabe22131dd Many doc fixes.

Richard M. Stallman <rms@gnu.org>

parents: 18249

442 buffer-read-only t

4eabe22131dd Many doc fixes.

Richard M. Stallman <rms@gnu.org>

parents: 18249

443 view-old-Helper-return-blurb (and (boundp 'Helper-return-blurb)

4eabe22131dd Many doc fixes.

Richard M. Stallman <rms@gnu.org>

parents: 18249

444 Helper-return-blurb)

4eabe22131dd Many doc fixes.

Richard M. Stallman <rms@gnu.org>

parents: 18249

445 Helper-return-blurb

4eabe22131dd Many doc fixes.

Richard M. Stallman <rms@gnu.org>

parents: 18249

446 (format "continue viewing %s"

4eabe22131dd Many doc fixes.

Richard M. Stallman <rms@gnu.org>

parents: 18249

447 (if (buffer-file-name)

4eabe22131dd Many doc fixes.

Richard M. Stallman <rms@gnu.org>

parents: 18249

448 (file-name-nondirectory (buffer-file-name))

4eabe22131dd Many doc fixes.

Richard M. Stallman <rms@gnu.org>

parents: 18249

449 (buffer-name))))

4eabe22131dd Many doc fixes.

Richard M. Stallman <rms@gnu.org>

parents: 18249

450 (run-hooks 'view-mode-hook))

4eabe22131dd Many doc fixes.

Richard M. Stallman <rms@gnu.org>

parents: 18249

451

4eabe22131dd Many doc fixes.

Richard M. Stallman <rms@gnu.org>

parents: 18249

452 (defun view-mode-disable ()

4eabe22131dd Many doc fixes.

Richard M. Stallman <rms@gnu.org>

parents: 18249

453 "Turn off View mode."

18268

a42f063f003b Don't globally add to change-major-mode-hook.

Richard M. Stallman <rms@gnu.org>

parents: 18250

454 (remove-hook 'change-major-mode-hook 'view-mode-disable t)

4eabe22131dd Many doc fixes.

Richard M. Stallman <rms@gnu.org>

parents: 18249

455 (and view-overlay (delete-overlay view-overlay))

4eabe22131dd Many doc fixes.

Richard M. Stallman <rms@gnu.org>

parents: 18249

456 (setq view-mode nil

4eabe22131dd Many doc fixes.

Richard M. Stallman <rms@gnu.org>

parents: 18249

457 Helper-return-blurb view-old-Helper-return-blurb

4eabe22131dd Many doc fixes.

Richard M. Stallman <rms@gnu.org>

parents: 18249

458 buffer-read-only view-old-buffer-read-only))

13640

ee453099e188 (view-mode, view-mode-enter): Doc changes.

Richard M. Stallman <rms@gnu.org>

parents: 13639

459

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

460 ;;;###autoload

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

461 (defun view-mode-enter (&optional return-to exit-action) "\

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

462 Enter View mode and set up exit from view mode depending on optional arguments.

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

463 If RETURN-TO is non-nil it is added as an element to the buffer local alist

21772

95df64150c8a (view-mode-exit): Don't alter view-return-to-alist.

Richard M. Stallman <rms@gnu.org>

parents: 21678

464 `view-return-to-alist'.

4eabe22131dd Many doc fixes.

Richard M. Stallman <rms@gnu.org>

parents: 18249

465 Save EXIT-ACTION in buffer local variable `view-exit-action'.

4eabe22131dd Many doc fixes.

Richard M. Stallman <rms@gnu.org>

parents: 18249

466 It should be either nil or a function that takes a buffer as argument.

7cf9cdba062d Changed some documentation.

Richard M. Stallman <rms@gnu.org>

parents: 18335

467 This function will be called by `view-mode-exit'.

4eabe22131dd Many doc fixes.

Richard M. Stallman <rms@gnu.org>

parents: 18249

468

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

469 RETURN-TO is either nil, meaning do nothing when exiting view mode, or

7cf9cdba062d Changed some documentation.

Richard M. Stallman <rms@gnu.org>

parents: 18335

470 it has the format (WINDOW OLD-WINDOW . OLD-BUF-INFO).

4eabe22131dd Many doc fixes.

Richard M. Stallman <rms@gnu.org>

parents: 18249

471 WINDOW is a window used for viewing.

4eabe22131dd Many doc fixes.

Richard M. Stallman <rms@gnu.org>

parents: 18249

472 OLD-WINDOW is nil or the window to select after viewing.

4eabe22131dd Many doc fixes.

Richard M. Stallman <rms@gnu.org>

parents: 18249

473 OLD-BUF-INFO tells what to do with WINDOW when exiting. It is one of:

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

474 1) nil Do nothing.

4eabe22131dd Many doc fixes.

Richard M. Stallman <rms@gnu.org>

parents: 18249

475 2) t Delete WINDOW or, if it is the only window, its frame.

4eabe22131dd Many doc fixes.

Richard M. Stallman <rms@gnu.org>

parents: 18249

476 3) (OLD-BUFF START POINT) Display buffer OLD-BUFF with displayed text

4eabe22131dd Many doc fixes.

Richard M. Stallman <rms@gnu.org>

parents: 18249

477 starting at START and point at POINT in WINDOW.

f072dd90378d (view-return-to-alist): Doc fix.

Richard M. Stallman <rms@gnu.org>

parents: 20072

478 4) quit-window Do quit-window in WINDOW.

44

a25bf36b0410 Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

479

7cf9cdba062d Changed some documentation.

Richard M. Stallman <rms@gnu.org>

parents: 18335

480 For list of all View commands, type H or h while viewing.

4119

7b1b2a8d05f2 Doc fixes; some args renamed.

Richard M. Stallman <rms@gnu.org>

parents: 3450

481

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

482 This function runs the normal hook `view-mode-hook'."

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

483 (if return-to

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

484 (let ((entry (assq (car return-to) view-return-to-alist)))

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

485 (if entry (setcdr entry (cdr return-to))

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

486 (setq view-return-to-alist (cons return-to view-return-to-alist)))))

92d2c2e3b3f3 Some changes in comments and documentation.

Karl Heuer <kwzh@gnu.org>

parents: 19841

487 (if exit-action (setq view-exit-action exit-action))

92d2c2e3b3f3 Some changes in comments and documentation.

Karl Heuer <kwzh@gnu.org>

parents: 19841

488 (unless view-mode ; Do nothing if already in view mode.

4eabe22131dd Many doc fixes.

Richard M. Stallman <rms@gnu.org>

parents: 18249

489 (view-mode-enable)

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

490 (force-mode-line-update)

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

491 (message "%s"

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

492 (substitute-command-keys "\

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

493 Type \\[help-command] for help, \\[describe-mode] for commands, \\[View-quit] to quit."))))

44

a25bf36b0410 Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

494

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

495 (defun view-mode-exit (&optional return-to-alist exit-action all-win)

21772

95df64150c8a (view-mode-exit): Don't alter view-return-to-alist.

Richard M. Stallman <rms@gnu.org>

parents: 21678

496 "Exit View mode in various ways, depending on optional arguments.

92d2c2e3b3f3 Some changes in comments and documentation.

Karl Heuer <kwzh@gnu.org>

parents: 19841

497 RETURN-TO-ALIST, EXIT-ACTION and ALL-WIN determine what to do after exit.

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

498 EXIT-ACTION is nil or a function that is called with current buffer as

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

499 argument.

7cf9cdba062d Changed some documentation.

Richard M. Stallman <rms@gnu.org>

parents: 18335

500 RETURN-TO-ALIST is an alist that for some of the windows displaying the

7cf9cdba062d Changed some documentation.

Richard M. Stallman <rms@gnu.org>

parents: 18335

501 current buffer, associate information on what to do with those windows.

7cf9cdba062d Changed some documentation.

Richard M. Stallman <rms@gnu.org>

parents: 18335

502 If ALL-WIN or the variable `view-exits-all-viewing-windows' is non-nil,

7cf9cdba062d Changed some documentation.

Richard M. Stallman <rms@gnu.org>

parents: 18335

503 then all windows on RETURN-TO-ALIST are restored to their old state.

7cf9cdba062d Changed some documentation.

Richard M. Stallman <rms@gnu.org>

parents: 18335

504 Otherwise only the selected window is affected (if it is on RETURN-TO-ALIST).

7cf9cdba062d Changed some documentation.

Richard M. Stallman <rms@gnu.org>

parents: 18335

505

7cf9cdba062d Changed some documentation.

Richard M. Stallman <rms@gnu.org>

parents: 18335

506 Elements of RETURN-TO-ALIST have the format (WINDOW OLD-WINDOW . OLD-BUF-INFO).

7cf9cdba062d Changed some documentation.

Richard M. Stallman <rms@gnu.org>

parents: 18335

507 WINDOW is a window displaying the current buffer.

7cf9cdba062d Changed some documentation.

Richard M. Stallman <rms@gnu.org>

parents: 18335

508 OLD-WINDOW is nil or a window to select after viewing.

7cf9cdba062d Changed some documentation.

Richard M. Stallman <rms@gnu.org>

parents: 18335

509 OLD-BUF-INFO is information on what to do with WINDOW and is one of:

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

510 1) nil Do nothing.

4eabe22131dd Many doc fixes.

Richard M. Stallman <rms@gnu.org>

parents: 18249

511 2) t Delete WINDOW or, if it is the only window, its frame.

4eabe22131dd Many doc fixes.

Richard M. Stallman <rms@gnu.org>

parents: 18249

512 3) (OLD-BUF START POINT) Display buffer OLD-BUF with displayed text

4eabe22131dd Many doc fixes.

Richard M. Stallman <rms@gnu.org>

parents: 18249

513 starting at START and point at POINT in WINDOW.

f072dd90378d (view-return-to-alist): Doc fix.

Richard M. Stallman <rms@gnu.org>

parents: 20072

514 4) quit-window Do quit-window in WINDOW.

7cf9cdba062d Changed some documentation.

Richard M. Stallman <rms@gnu.org>

parents: 18335

515

4eabe22131dd Many doc fixes.

Richard M. Stallman <rms@gnu.org>

parents: 18249

516 If one of the WINDOW in RETURN-TO-ALIST is the selected window and the

4eabe22131dd Many doc fixes.

Richard M. Stallman <rms@gnu.org>

parents: 18249

517 corresponding OLD-WINDOW is a live window, then select OLD-WINDOW."

7cf9cdba062d Changed some documentation.

Richard M. Stallman <rms@gnu.org>

parents: 18335

518 (setq all-win

7cf9cdba062d Changed some documentation.

Richard M. Stallman <rms@gnu.org>

parents: 18335

519 (and return-to-alist (or all-win view-exits-all-viewing-windows)))

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

520 (if view-mode ; Only do something if in view mode.

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

521 (let* ((buffer (current-buffer))

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

522 window

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

523 (sel-old (assq (selected-window) return-to-alist))

7cf9cdba062d Changed some documentation.

Richard M. Stallman <rms@gnu.org>

parents: 18335

524 (alist (cond

7cf9cdba062d Changed some documentation.

Richard M. Stallman <rms@gnu.org>

parents: 18335

525 (all-win ; Try to restore all windows.

7cf9cdba062d Changed some documentation.

Richard M. Stallman <rms@gnu.org>

parents: 18335

526 (append return-to-alist nil)) ; Copy.

7cf9cdba062d Changed some documentation.

Richard M. Stallman <rms@gnu.org>

parents: 18335

527 (sel-old ; Only selected window.

7cf9cdba062d Changed some documentation.

Richard M. Stallman <rms@gnu.org>

parents: 18335

528 (list sel-old))))

7cf9cdba062d Changed some documentation.

Richard M. Stallman <rms@gnu.org>

parents: 18335

529 (old-window (if sel-old (car (cdr sel-old)))))

7cf9cdba062d Changed some documentation.

Richard M. Stallman <rms@gnu.org>

parents: 18335

530 (if all-win ; Follow chains of old-windows.

7cf9cdba062d Changed some documentation.

Richard M. Stallman <rms@gnu.org>

parents: 18335

531 (let ((c (length alist)) a)

7cf9cdba062d Changed some documentation.

Richard M. Stallman <rms@gnu.org>

parents: 18335

532 (while (and (> c 0) ; Safety if mutually refering windows.

7cf9cdba062d Changed some documentation.

Richard M. Stallman <rms@gnu.org>

parents: 18335

533 (or (not (window-live-p old-window))

7cf9cdba062d Changed some documentation.

Richard M. Stallman <rms@gnu.org>

parents: 18335

534 (eq buffer (window-buffer old-window)))

7cf9cdba062d Changed some documentation.

Richard M. Stallman <rms@gnu.org>

parents: 18335

535 (setq a (assq old-window alist)))

7cf9cdba062d Changed some documentation.

Richard M. Stallman <rms@gnu.org>

parents: 18335

536 (setq c (1- c))

7cf9cdba062d Changed some documentation.

Richard M. Stallman <rms@gnu.org>

parents: 18335

537 (setq old-window (car (cdr a))))

7cf9cdba062d Changed some documentation.

Richard M. Stallman <rms@gnu.org>

parents: 18335

538 (if (or (zerop c) (not (window-live-p old-window)))

7cf9cdba062d Changed some documentation.

Richard M. Stallman <rms@gnu.org>

parents: 18335

539 (setq old-window (selected-window)))))

19229

e272bd93c93c (view-just-bury): New variable.

Richard M. Stallman <rms@gnu.org>

parents: 18448

540 (or view-no-disable-on-exit

e272bd93c93c (view-just-bury): New variable.

Richard M. Stallman <rms@gnu.org>

parents: 18448

541 (view-mode-disable))

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

542 (while alist ; Restore windows with info.

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

543 (if (and (window-live-p (setq window (car (car alist))))

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

544 (eq buffer (window-buffer window)))

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

545 (let ((frame (window-frame window))

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

546 (old-buf-info (cdr (cdr (car alist)))))

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

547 (if all-win (select-window window))

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

548 (cond

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

549 ((and (consp old-buf-info) ; Case 3.

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

550 (buffer-live-p (car old-buf-info)))

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

551 (set-window-buffer window (car old-buf-info)) ; old-buf

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

552 (set-window-start window (car (cdr old-buf-info)))

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

553 (set-window-point window (car (cdr (cdr old-buf-info)))))

f072dd90378d (view-return-to-alist): Doc fix.

Richard M. Stallman <rms@gnu.org>

parents: 20072

554 ((eq old-buf-info 'quit-window)

f072dd90378d (view-return-to-alist): Doc fix.

Richard M. Stallman <rms@gnu.org>

parents: 20072

555 (quit-window)) ; Not case 2, do nothing.

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

556 ((not (eq old-buf-info t)) nil) ; Not case 2, do nothing.

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

557 ((not (one-window-p t)) (delete-window))

7cf9cdba062d Changed some documentation.

Richard M. Stallman <rms@gnu.org>

parents: 18335

558 ((not (eq frame (next-frame)))

7cf9cdba062d Changed some documentation.

Richard M. Stallman <rms@gnu.org>

parents: 18335

559 ;; Not the only frame, so can safely be removed.

7cf9cdba062d Changed some documentation.

Richard M. Stallman <rms@gnu.org>

parents: 18335

560 (if view-remove-frame-by-deleting

7cf9cdba062d Changed some documentation.

Richard M. Stallman <rms@gnu.org>

parents: 18335

561 (delete-frame frame)

7cf9cdba062d Changed some documentation.

Richard M. Stallman <rms@gnu.org>

parents: 18335

562 (iconify-frame frame))))))

21772

95df64150c8a (view-mode-exit): Don't alter view-return-to-alist.

Richard M. Stallman <rms@gnu.org>

parents: 21678

563 ;; Altering view-return-to-alist causes trouble when

95df64150c8a (view-mode-exit): Don't alter view-return-to-alist.

Richard M. Stallman <rms@gnu.org>

parents: 21678

564 ;; the user deiconifies the frame, then types q again.

95df64150c8a (view-mode-exit): Don't alter view-return-to-alist.

Richard M. Stallman <rms@gnu.org>

parents: 21678

565 ;; If we leave view-return-to-alist unchanged, that

95df64150c8a (view-mode-exit): Don't alter view-return-to-alist.

Richard M. Stallman <rms@gnu.org>

parents: 21678

566 ;; iconifies the frame again, as expected.

95df64150c8a (view-mode-exit): Don't alter view-return-to-alist.

Richard M. Stallman <rms@gnu.org>

parents: 21678

567 ;;; (setq view-return-to-alist (delete (car alist) view-return-to-alist))

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

568 (setq alist (cdr alist)))

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

569 (if (window-live-p old-window) ; still existing window

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

570 (select-window old-window))

92d2c2e3b3f3 Some changes in comments and documentation.

Karl Heuer <kwzh@gnu.org>

parents: 19841

571 (when exit-action

92d2c2e3b3f3 Some changes in comments and documentation.

Karl Heuer <kwzh@gnu.org>

parents: 19841

572 (setq view-exit-action nil)

92d2c2e3b3f3 Some changes in comments and documentation.

Karl Heuer <kwzh@gnu.org>

parents: 19841

573 (funcall exit-action buffer))

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

574 (force-mode-line-update))))

44

a25bf36b0410 Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

575

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

576 (defun View-exit ()

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

577 "Exit View mode but stay in current buffer."

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

578 (interactive)

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

579 (view-mode-exit))

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

580

18335

6f48844ce1a9 (view-mode): Add autoload cookie to this variable.

Kenichi Handa <handa@m17n.org>

parents: 18271

581 ;;;###autoload

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

582 (defun View-exit-and-edit ()

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

583 "Exit View mode and make the current buffer editable."

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

584 (interactive)

22337

ce89ab9c000e (View-exit-and-edit): Bind view-no-disable-on-exit to nil.

Karl Heuer <kwzh@gnu.org>

parents: 21772

585 (let ((view-old-buffer-read-only nil)

ce89ab9c000e (View-exit-and-edit): Bind view-no-disable-on-exit to nil.

Karl Heuer <kwzh@gnu.org>

parents: 21772

586 (view-no-disable-on-exit nil))

7cf9cdba062d Changed some documentation.

Richard M. Stallman <rms@gnu.org>

parents: 18335

587 (view-mode-exit)))

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

588

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

589 (defun View-leave ()

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

590 "Quit View mode and maybe switch buffers, but don't kill this buffer."

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

591 (interactive)

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

592 (view-mode-exit view-return-to-alist))

44

a25bf36b0410 Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

593

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

594 (defun View-quit ()

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

595 "Quit View mode, trying to restore window and buffer to previous state.

4eabe22131dd Many doc fixes.

Richard M. Stallman <rms@gnu.org>

parents: 18249

596 Maybe kill this buffer. Try to restore selected window to previous state

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

597 and go to previous buffer or window."

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

598 (interactive)

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

599 (view-mode-exit view-return-to-alist view-exit-action))

44

a25bf36b0410 Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

600

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

601 (defun View-quit-all ()

4eabe22131dd Many doc fixes.

Richard M. Stallman <rms@gnu.org>

parents: 18249

602 "Quit View mode, trying to restore windows and buffers to previous state.

4eabe22131dd Many doc fixes.

Richard M. Stallman <rms@gnu.org>

parents: 18249

603 Maybe kill current buffer. Try to restore all windows viewing buffer to

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

604 previous state and go to previous buffer or window."

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

605 (interactive)

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

606 (view-mode-exit view-return-to-alist view-exit-action t))

44

a25bf36b0410 Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

607

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

608 (defun View-kill-and-leave ()

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

609 "Quit View mode, kill current buffer and return to previous buffer."

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

610 (interactive)

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

611 (view-mode-exit view-return-to-alist (or view-exit-action 'kill-buffer) t))

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

612

44

a25bf36b0410 Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

613

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

614 ;;; Some help routines.

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

615

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

616 (defun view-window-size ()

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

617 ;; Window height excluding mode line.

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

618 (1- (window-height)))

6330

3badf836d51d (view-mode): Run view-mode-hook as well as view-hook.

Richard M. Stallman <rms@gnu.org>

parents: 5123

619

44

a25bf36b0410 Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

620 ;(defun view-last-command (&optional who what)

a25bf36b0410 Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

621 ; (setq view-last-command-entry this-command)

a25bf36b0410 Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

622 ; (setq view-last-command who)

a25bf36b0410 Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

623 ; (setq view-last-command-argument what))

a25bf36b0410 Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

624

a25bf36b0410 Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

625 ;(defun View-repeat-last-command ()

a25bf36b0410 Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

626 ; "Repeat last command issued in View mode."

a25bf36b0410 Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

627 ; (interactive)

a25bf36b0410 Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

628 ; (if (and view-last-command

a25bf36b0410 Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

629 ; (eq view-last-command-entry last-command))

a25bf36b0410 Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

630 ; (funcall view-last-command view-last-command-argument))

a25bf36b0410 Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

631 ; (setq this-command view-last-command-entry))

a25bf36b0410 Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

632

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

633 (defun view-recenter ()

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

634 ;; Center point in window.

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

635 (recenter (/ (view-window-size) 2)))

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

636

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

637 (defun view-page-size-default (lines)

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

638 ;; Get page size.

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

639 (let ((default (- (view-window-size) next-screen-context-lines)))

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

640 (if (or (null lines) (zerop (setq lines (prefix-numeric-value lines))))

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

641 default

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

642 (min (abs lines) default))))

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

643

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

644 (defun view-set-half-page-size-default (lines)

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

645 ;; Get and maybe set half page size.

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

646 (if (not lines) view-half-page-size

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

647 (setq view-half-page-size

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

648 (if (zerop (setq lines (prefix-numeric-value lines)))

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

649 (/ (view-window-size) 2)

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

650 (view-page-size-default lines)))))

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

651

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

652

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

653 ;;; Commands for moving around in the buffer.

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

654

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

655 (defun View-goto-percent (&optional percent)

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

656 "Move to end (or prefix PERCENT) of buffer in View mode.

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

657 Display is centered at point.

4eabe22131dd Many doc fixes.

Richard M. Stallman <rms@gnu.org>

parents: 18249

658 Also set the mark at the position where point was."

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

659 (interactive "P")

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

660 (push-mark)

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

661 (goto-char

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

662 (if percent

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

663 (+ (point-min)

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

664 (floor (* (- (point-max) (point-min)) 0.01

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

665 (max 0 (min 100 (prefix-numeric-value percent))))))

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

666 (point-max)))

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

667 (view-recenter))

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

668

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

669 ;(defun View-goto-line-last (&optional line)

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

670 ;"Move to last (or prefix LINE) line in View mode.

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

671 ;Display is centered at LINE.

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

672 ;Sets mark at starting position and pushes mark ring."

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

673 ; (interactive "P")

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

674 ; (push-mark)

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

675 ; (if line (goto-line (prefix-numeric-value line))

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

676 ; (goto-char (point-max))

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

677 ; (beginning-of-line))

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

678 ; (view-recenter))

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

679

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

680 (defun View-goto-line (&optional line)

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

681 "Move to first (or prefix LINE) line in View mode.

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

682 Display is centered at LINE.

4eabe22131dd Many doc fixes.

Richard M. Stallman <rms@gnu.org>

parents: 18249

683 Also set the mark at the position where point was."

44

a25bf36b0410 Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

684 (interactive "p")

a25bf36b0410 Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

685 (push-mark)

a5e07f2bdf83 Rewrite as a minor mode.

Karl Heuer <kwzh@gnu.org>

parents: 12390

686 (goto-line line)

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

687 (view-recenter))

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

688

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

689 (defun View-scroll-to-buffer-end ()

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

690 "Scroll backward or forward so that buffer end is at last line of window."

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

691 (interactive)

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

692 (let ((p (if (pos-visible-in-window-p (point-max)) (point))))

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

693 (goto-char (point-max))

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

694 (recenter -1)

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

695 (and p (goto-char p))))

44

a25bf36b0410 Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

696

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

697 (defun view-scroll-lines (lines backward default maxdefault)

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

698 ;; This function does the job for all the scrolling commands.

4eabe22131dd Many doc fixes.

Richard M. Stallman <rms@gnu.org>

parents: 18249

699 ;; Scroll forward LINES lines. If BACKWARD is true scroll backwards.

4eabe22131dd Many doc fixes.

Richard M. Stallman <rms@gnu.org>

parents: 18249

700 ;; If LINES is negative scroll in the other direction. If LINES is 0 or nil,

4eabe22131dd Many doc fixes.

Richard M. Stallman <rms@gnu.org>

parents: 18249

701 ;; scroll DEFAULT lines. If MAXDEFAULT is true then scroll no more than a

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

702 ;; window full.

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

703 (if (or (null lines) (zerop (setq lines (prefix-numeric-value lines))))

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

704 (setq lines default))

92d2c2e3b3f3 Some changes in comments and documentation.

Karl Heuer <kwzh@gnu.org>

parents: 19841

705 (when (< lines 0)

92d2c2e3b3f3 Some changes in comments and documentation.

Karl Heuer <kwzh@gnu.org>

parents: 19841

706 (setq backward (not backward)) (setq lines (- lines)))

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

707 (setq default (view-page-size-default nil)) ; Max scrolled at a time.

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

708 (if maxdefault (setq lines (min lines default)))

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

709 (cond

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

710 (backward (scroll-down lines))

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

711 ((view-really-at-end)

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

712 (if view-scroll-auto-exit (View-quit)

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

713 (ding)

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

714 (view-end-message)))

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

715 (t (while (> lines default)

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

716 (scroll-up default)

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

717 (setq lines (- lines default))

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

718 (if (view-really-at-end) (setq lines 0)))

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

719 (scroll-up lines)

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

720 (if (view-really-at-end) (view-end-message))

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

721 (move-to-window-line -1)

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

722 (beginning-of-line))))

44

a25bf36b0410 Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

723

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

724 (defun view-really-at-end ()

4eabe22131dd Many doc fixes.

Richard M. Stallman <rms@gnu.org>

parents: 18249

725 ;; Return true if buffer end visible. Maybe revert buffer and test.

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

726 (and (pos-visible-in-window-p (point-max))

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

727 (let ((buf (current-buffer))

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

728 (bufname (buffer-name))

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

729 (file (buffer-file-name)))

21678

acaff8b34667 (view-really-at-end): Return true when at end and not

Andreas Schwab <schwab@suse.de>

parents: 21187

730 (or (not view-try-extend-at-buffer-end)

acaff8b34667 (view-really-at-end): Return true when at end and not

Andreas Schwab <schwab@suse.de>

parents: 21187

731 (null file)

acaff8b34667 (view-really-at-end): Return true when at end and not

Andreas Schwab <schwab@suse.de>

parents: 21187

732 (verify-visited-file-modtime buf)

acaff8b34667 (view-really-at-end): Return true when at end and not

Andreas Schwab <schwab@suse.de>

parents: 21187

733 (not (file-exists-p file))

acaff8b34667 (view-really-at-end): Return true when at end and not

Andreas Schwab <schwab@suse.de>

parents: 21187

734 (when (buffer-modified-p buf)

acaff8b34667 (view-really-at-end): Return true when at end and not

Andreas Schwab <schwab@suse.de>

parents: 21187

735 (setq file (file-name-nondirectory file))

acaff8b34667 (view-really-at-end): Return true when at end and not

Andreas Schwab <schwab@suse.de>

parents: 21187

736 (not (yes-or-no-p

acaff8b34667 (view-really-at-end): Return true when at end and not

Andreas Schwab <schwab@suse.de>

parents: 21187

737 (format

acaff8b34667 (view-really-at-end): Return true when at end and not

Andreas Schwab <schwab@suse.de>

parents: 21187

738 "File %s changed on disk. Discard your edits%s? "

acaff8b34667 (view-really-at-end): Return true when at end and not

Andreas Schwab <schwab@suse.de>

parents: 21187

739 file

acaff8b34667 (view-really-at-end): Return true when at end and not

Andreas Schwab <schwab@suse.de>

parents: 21187

740 (if (string= bufname file) ""

acaff8b34667 (view-really-at-end): Return true when at end and not

Andreas Schwab <schwab@suse.de>

parents: 21187

741 (concat " in " bufname))))))

acaff8b34667 (view-really-at-end): Return true when at end and not

Andreas Schwab <schwab@suse.de>

parents: 21187

742 (progn

acaff8b34667 (view-really-at-end): Return true when at end and not

Andreas Schwab <schwab@suse.de>

parents: 21187

743 (revert-buffer t t t)

acaff8b34667 (view-really-at-end): Return true when at end and not

Andreas Schwab <schwab@suse.de>

parents: 21187

744 (pos-visible-in-window-p (point-max)))))))

44

a25bf36b0410 Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

745

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

746 (defun view-end-message ()

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

747 ;; Tell that we are at end of buffer.

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

748 (goto-char (point-max))

19841

d7a4b38557f3 (view-end-message): Don't mention q if it really do anything.

Richard M. Stallman <rms@gnu.org>

parents: 19229

749 (if view-return-to-alist

d7a4b38557f3 (view-end-message): Don't mention q if it really do anything.

Richard M. Stallman <rms@gnu.org>

parents: 19229

750 (message "End of buffer. Type %s to quit viewing."

d7a4b38557f3 (view-end-message): Don't mention q if it really do anything.

Richard M. Stallman <rms@gnu.org>

parents: 19229

751 (substitute-command-keys

d7a4b38557f3 (view-end-message): Don't mention q if it really do anything.

Richard M. Stallman <rms@gnu.org>

parents: 19229

752 (if view-scroll-auto-exit "\\[View-scroll-page-forward]"

d7a4b38557f3 (view-end-message): Don't mention q if it really do anything.

Richard M. Stallman <rms@gnu.org>

parents: 19229

753 "\\[View-quit]")))

d7a4b38557f3 (view-end-message): Don't mention q if it really do anything.

Richard M. Stallman <rms@gnu.org>

parents: 19229

754 (message "End of buffer")))

44

a25bf36b0410 Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

755

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

756 (defun View-scroll-page-forward (&optional lines)

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

757 "Scroll \"page size\" or prefix LINES lines forward in View mode.

4eabe22131dd Many doc fixes.

Richard M. Stallman <rms@gnu.org>

parents: 18249

758 Exit if end of text is visible and `view-scroll-auto-exit' is non-nil.

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

759 \"page size\" is whole window full, or number of lines set by

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

760 \\[View-scroll-page-forward-set-page-size] or

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

761 \\[View-scroll-page-backward-set-page-size].

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

762 If LINES is more than a window-full, only the last window-full is shown."

44

a25bf36b0410 Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

763 (interactive "P")

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

764 (view-scroll-lines lines nil view-page-size nil))

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

765

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

766 (defun View-scroll-page-backward (&optional lines)

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

767 "Scroll \"page size\" or prefix LINES lines backward in View mode.

4eabe22131dd Many doc fixes.

Richard M. Stallman <rms@gnu.org>

parents: 18249

768 See also `View-scroll-page-forward'."

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

769 (interactive "P")

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

770 (view-scroll-lines lines t view-page-size nil))

44

a25bf36b0410 Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

771

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

772 (defun View-scroll-page-forward-set-page-size (&optional lines)

4eabe22131dd Many doc fixes.

Richard M. Stallman <rms@gnu.org>

parents: 18249

773 "Scroll forward LINES lines in View mode, setting the \"page size\".

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

774 This is the number of lines which \\[View-scroll-page-forward] and

7cf9cdba062d Changed some documentation.

Richard M. Stallman <rms@gnu.org>

parents: 18335

775 \\[View-scroll-page-backward] scroll by default.

7cf9cdba062d Changed some documentation.

Richard M. Stallman <rms@gnu.org>

parents: 18335

776 If LINES is omitted or = 0, sets \"page size\" to window height and

7cf9cdba062d Changed some documentation.

Richard M. Stallman <rms@gnu.org>

parents: 18335

777 scrolls forward that much, otherwise scrolls forward LINES lines and sets

7cf9cdba062d Changed some documentation.

Richard M. Stallman <rms@gnu.org>

parents: 18335

778 \"page size\" to the minimum of window height and the absolute value of LINES.

4eabe22131dd Many doc fixes.

Richard M. Stallman <rms@gnu.org>

parents: 18249

779 See also `View-scroll-page-forward'."

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

780 (interactive "P")

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

781 (view-scroll-lines lines nil

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

782 (setq view-page-size (view-page-size-default lines))

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

783 nil))

13168

aa2fb1aa0c94 Doc fixes.

Richard M. Stallman <rms@gnu.org>

parents: 13167

784

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

785 (defun View-scroll-page-backward-set-page-size (&optional lines)

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

786 "Scroll backward prefix LINES lines in View mode, setting the \"page size\".

4eabe22131dd Many doc fixes.

Richard M. Stallman <rms@gnu.org>

parents: 18249

787 See also `View-scroll-page-forward-set-page-size'."

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

788 (interactive "P")

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

789 (view-scroll-lines lines t

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

790 (setq view-page-size (view-page-size-default lines))

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

791 nil))

13168

aa2fb1aa0c94 Doc fixes.

Richard M. Stallman <rms@gnu.org>

parents: 13167

792

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

793 (defun View-scroll-line-forward (&optional lines)

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

794 "Scroll forward one line (or prefix LINES lines) in View mode.

4eabe22131dd Many doc fixes.

Richard M. Stallman <rms@gnu.org>

parents: 18249

795 See also `View-scroll-page-forward,' but note that scrolling is limited

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

796 to minimum of LINES and one window-full."

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

797 (interactive "P")

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

798 (view-scroll-lines lines nil 1 t))

44

a25bf36b0410 Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

799

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

800 (defun View-scroll-line-backward (&optional lines)

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

801 "Scroll backward one line (or prefix LINES lines) in View mode.

4eabe22131dd Many doc fixes.

Richard M. Stallman <rms@gnu.org>

parents: 18249

802 See also `View-scroll-line-forward'."

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

803 (interactive "P")

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

804 (view-scroll-lines lines t 1 t))

13168

aa2fb1aa0c94 Doc fixes.

Richard M. Stallman <rms@gnu.org>

parents: 13167

805

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

806 (defun View-scroll-half-page-forward (&optional lines)

4eabe22131dd Many doc fixes.

Richard M. Stallman <rms@gnu.org>

parents: 18249

807 "Scroll forward a \"half page\" (or prefix LINES) lines in View mode.

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

808 If LINES is not omitted, the \"half page size\" is set to the minimum of

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

809 window height and the absolute value of LINES.

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

810 LINES=0 resets \"half page size\" to half window height."

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

811 (interactive "P")

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

812 (view-scroll-lines lines nil (view-set-half-page-size-default lines) t))

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

813

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

814 (defun View-scroll-half-page-backward (&optional lines)

4eabe22131dd Many doc fixes.

Richard M. Stallman <rms@gnu.org>

parents: 18249

815 "Scroll backward a \"half page\" (or prefix LINES) lines in View mode.

4eabe22131dd Many doc fixes.

Richard M. Stallman <rms@gnu.org>

parents: 18249

816 See also `View-scroll-half-page-forward'."

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

817 (interactive "P")

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

818 (view-scroll-lines lines t (view-set-half-page-size-default lines) t))

44

a25bf36b0410 Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

819

4eabe22131dd Many doc fixes.

Richard M. Stallman <rms@gnu.org>

parents: 18249

820 (defun View-revert-buffer-scroll-page-forward (&optional lines)

4eabe22131dd Many doc fixes.

Richard M. Stallman <rms@gnu.org>

parents: 18249

821 "Scroll forward, reverting buffer if needed, in View mode.

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

822 If buffer has not been changed and the corresponding file is newer, first

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

823 revert the buffer, then scroll.

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

824 This command is useful if you are viewing a changing file.

4eabe22131dd Many doc fixes.

Richard M. Stallman <rms@gnu.org>

parents: 18249

825

4eabe22131dd Many doc fixes.

Richard M. Stallman <rms@gnu.org>

parents: 18249

826 The prefix argument LINES says how many lines to scroll.

4eabe22131dd Many doc fixes.

Richard M. Stallman <rms@gnu.org>

parents: 18249

827 If you don't specify a prefix argument, it uses the number of lines set by

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

828 \\[View-scroll-page-forward-set-page-size] or

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

829 \\[View-scroll-page-backward-set-page-size].

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

830 If LINES is more than a window-full, only the last window-full is shown."

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

831 (interactive "P")

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

832 (let ((view-mode-auto-exit nil)

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

833 (view-try-extend-at-buffer-end t))

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

834 (view-scroll-lines lines nil view-page-size nil)))

44

a25bf36b0410 Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

835

a25bf36b0410 Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

836 (defun View-back-to-mark (&optional ignore)

a25bf36b0410 Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

837 "Return to last mark set in View mode, else beginning of file.

4eabe22131dd Many doc fixes.

Richard M. Stallman <rms@gnu.org>

parents: 18249

838 Display that line at the center of the window.

4eabe22131dd Many doc fixes.

Richard M. Stallman <rms@gnu.org>

parents: 18249

839 This command pops the mark ring, so that successive

44

a25bf36b0410 Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

840 invocations return to earlier marks."

a25bf36b0410 Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

841 (interactive)

a5e07f2bdf83 Rewrite as a minor mode.

Karl Heuer <kwzh@gnu.org>

parents: 12390

842 (goto-char (or (mark t) (point-min)))

44

a25bf36b0410 Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

843 (pop-mark)

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

844 (view-recenter))

44

a25bf36b0410 Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

845

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

846 (defun View-search-regexp-forward (n regexp)

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

847 "Search forward for first (or prefix Nth) occurrence of REGEXP in View mode.

7cf9cdba062d Changed some documentation.

Richard M. Stallman <rms@gnu.org>

parents: 18335

848

7cf9cdba062d Changed some documentation.

Richard M. Stallman <rms@gnu.org>

parents: 18335

849 Displays line found at center of window. Sets mark at starting position and

7cf9cdba062d Changed some documentation.

Richard M. Stallman <rms@gnu.org>

parents: 18335

850 pushes mark ring.

7cf9cdba062d Changed some documentation.

Richard M. Stallman <rms@gnu.org>

parents: 18335

851

7cf9cdba062d Changed some documentation.

Richard M. Stallman <rms@gnu.org>

parents: 18335

852 Characters @ and ! are special at the beginning of REGEXP. They modify

7cf9cdba062d Changed some documentation.

Richard M. Stallman <rms@gnu.org>

parents: 18335

853 the search rather than become part of the pattern searched for.

7cf9cdba062d Changed some documentation.

Richard M. Stallman <rms@gnu.org>

parents: 18335

854 @ means search all the buffer i.e. start search at the beginning of buffer.

7cf9cdba062d Changed some documentation.

Richard M. Stallman <rms@gnu.org>

parents: 18335

855 ! means search for a line that contains no match for the pattern.

7cf9cdba062d Changed some documentation.

Richard M. Stallman <rms@gnu.org>

parents: 18335

856 If REGEXP is empty or only consist of these control characters, then

7cf9cdba062d Changed some documentation.

Richard M. Stallman <rms@gnu.org>

parents: 18335

857 an earlier remembered REGEXP is used, otherwise REGEXP is remembered

7cf9cdba062d Changed some documentation.

Richard M. Stallman <rms@gnu.org>

parents: 18335

858 for use by later search commands.

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

859

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

860 The variable `view-highlight-face' controls the face that is used

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

861 for highlighting the match that is found."

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

862 (interactive "p\nsSearch forward (regexp): ")

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

863 (view-search n regexp))

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

864

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

865 (defun View-search-regexp-backward (n regexp)

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

866 "Search backward for first (or prefix Nth) occurrence of REGEXP in View mode.

7cf9cdba062d Changed some documentation.

Richard M. Stallman <rms@gnu.org>

parents: 18335

867

7cf9cdba062d Changed some documentation.

Richard M. Stallman <rms@gnu.org>

parents: 18335

868 Displays line found at center of window. Sets mark at starting position and

7cf9cdba062d Changed some documentation.

Richard M. Stallman <rms@gnu.org>

parents: 18335

869 pushes mark ring.

7cf9cdba062d Changed some documentation.

Richard M. Stallman <rms@gnu.org>

parents: 18335

870

7cf9cdba062d Changed some documentation.

Richard M. Stallman <rms@gnu.org>

parents: 18335

871 Characters @ and ! are special at the beginning of REGEXP. They modify

7cf9cdba062d Changed some documentation.

Richard M. Stallman <rms@gnu.org>

parents: 18335

872 the search rather than become part of the pattern searched for.

7cf9cdba062d Changed some documentation.

Richard M. Stallman <rms@gnu.org>

parents: 18335

873 @ means search all the buffer i.e. start search at the end of buffer.

7cf9cdba062d Changed some documentation.

Richard M. Stallman <rms@gnu.org>

parents: 18335

874 ! means search for a line that contains no match for the pattern.

7cf9cdba062d Changed some documentation.

Richard M. Stallman <rms@gnu.org>

parents: 18335

875 If REGEXP is empty or only consist of these control characters, then

7cf9cdba062d Changed some documentation.

Richard M. Stallman <rms@gnu.org>

parents: 18335

876 an earlier remembered REGEXP is used, otherwise REGEXP is remembered

7cf9cdba062d Changed some documentation.

Richard M. Stallman <rms@gnu.org>

parents: 18335

877 for use by later search commands.

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

878

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

879 The variable `view-highlight-face' controls the face that is used

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

880 for highlighting the match that is found."

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

881 (interactive "p\nsSearch backward (regexp): ")

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

882 (view-search (- n) regexp))

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

883

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

884 (defun View-search-last-regexp-forward (n) "\

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

885 Search forward for first (or prefix Nth) instance of last regexp in View mode.

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

886 Displays line found at center of window. Sets mark at starting position and

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

887 pushes mark ring.

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

888

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

889 The variable `view-highlight-face' controls the face that is used

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

890 for highlighting the match that is found."

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

891 (interactive "p")

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

892 (view-search n nil))

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

893

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

894 (defun View-search-last-regexp-backward (n) "\

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

895 Search backward for first (or prefix Nth) instance of last regexp in View mode.

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

896 Displays line found at center of window. Sets mark at starting position and

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

897 pushes mark ring.

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

898

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

899 The variable `view-highlight-face' controls the face that is used

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

900 for highlighting the match that is found."

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

901 (interactive "p")

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

902 (view-search (- n) nil))

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

903

44

a25bf36b0410 Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

904 (defun view-search (times regexp)

7cf9cdba062d Changed some documentation.

Richard M. Stallman <rms@gnu.org>

parents: 18335

905 ;; This function does the job for all the View-search- commands.

92d2c2e3b3f3 Some changes in comments and documentation.

Karl Heuer <kwzh@gnu.org>

parents: 19841

906 ;; Search for the TIMESt match for REGEXP. If TIMES is negative

92d2c2e3b3f3 Some changes in comments and documentation.

Karl Heuer <kwzh@gnu.org>

parents: 19841

907 ;; search backwards. If REGEXP is nil use `view-last-regexp'.

92d2c2e3b3f3 Some changes in comments and documentation.

Karl Heuer <kwzh@gnu.org>

parents: 19841

908 ;; Charcters "!" and "@" have a special meaning at the beginning of

92d2c2e3b3f3 Some changes in comments and documentation.

Karl Heuer <kwzh@gnu.org>

parents: 19841

909 ;; REGEXP and are removed from REGEXP before the search "!" means

92d2c2e3b3f3 Some changes in comments and documentation.

Karl Heuer <kwzh@gnu.org>

parents: 19841

910 ;; search for lines with no match for REGEXP. "@" means search in

92d2c2e3b3f3 Some changes in comments and documentation.

Karl Heuer <kwzh@gnu.org>

parents: 19841

911 ;; the whole buffer, don't start searching from the present point.

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

912 (let (where no end ln)

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

913 (cond

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

914 ((and regexp (> (length regexp) 0)

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

915 (or (not (memq (string-to-char regexp) '(?! ?@)))

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

916 (progn

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

917 (if (member (substring regexp 0 2) '("!@" "@!"))

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

918 (setq end t no t ln 2)

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

919 (setq no (not (setq end (eq ?@ (string-to-char regexp))))

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

920 ln 1))

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

921 (> (length (setq regexp (substring regexp ln))) 0))))

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

922 (setq view-last-regexp (if no (list regexp) regexp)))

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

923 ((consp view-last-regexp)

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

924 (setq regexp (car view-last-regexp))

92d2c2e3b3f3 Some changes in comments and documentation.

Karl Heuer <kwzh@gnu.org>

parents: 19841

925 (unless (setq no (not no)) (setq view-last-regexp regexp)))

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

926 (view-last-regexp (setq regexp view-last-regexp)

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

927 (if no (setq view-last-regexp (list regexp))))

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

928 (t (error "No previous View-mode search")))

44

a25bf36b0410 Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

929 (save-excursion

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

930 (if end (goto-char (if (< times 0) (point-max) (point-min)))

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

931 (move-to-window-line (if (< times 0) 0 -1)))

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

932 (if (if no (view-search-no-match-lines times regexp)

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

933 (re-search-forward regexp nil t times))

44

a25bf36b0410 Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

934 (setq where (point))))

a25bf36b0410 Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

935 (if where

a25bf36b0410 Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

936 (progn

a25bf36b0410 Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

937 (push-mark)

a25bf36b0410 Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

938 (goto-char where)

13122

05bae277596e (View-search-regexp-forward, View-search-regexp-backward):

Richard M. Stallman <rms@gnu.org>

parents: 13078

939 (if view-overlay

05bae277596e (View-search-regexp-forward, View-search-regexp-backward):

Richard M. Stallman <rms@gnu.org>

parents: 13078

940 (move-overlay view-overlay (match-beginning 0) (match-end 0))

05bae277596e (View-search-regexp-forward, View-search-regexp-backward):

Richard M. Stallman <rms@gnu.org>

parents: 13078

941 (setq view-overlay

05bae277596e (View-search-regexp-forward, View-search-regexp-backward):

Richard M. Stallman <rms@gnu.org>

parents: 13078

942 (make-overlay (match-beginning 0) (match-end 0))))

13167

c378e215f4d0 (view-highlight-face): New variable.

Richard M. Stallman <rms@gnu.org>

parents: 13158

943 (overlay-put view-overlay 'face view-highlight-face)

44

a25bf36b0410 Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

944 (beginning-of-line)

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

945 (view-recenter))

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

946 (message "Can't find occurrence %d of %s%s"

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

947 times (if no "no " "") regexp)

44

a25bf36b0410 Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

948 (sit-for 4))))

a25bf36b0410 Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

949

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

950 (defun view-search-no-match-lines (times regexp)

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

951 ;; Search for the TIMESt occurrence of line with no match for REGEXP.

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

952 (let ((back (and (< times 0) (setq times (- times)) -1))

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

953 n)

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

954 (while (> times 0)

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

955 (save-excursion (beginning-of-line (if back (- times) (1+ times)))

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

956 (setq n (point)))

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

957 (setq times

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

958 (cond

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

959 ((< (count-lines (point) n) times) -1) ; Not enough lines.

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

960 ((or (null (re-search-forward regexp nil t back))

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

961 (if back (and (< (match-end 0) n)

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

962 (> (count-lines (match-end 0) n) 1))

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

963 (and (< n (match-beginning 0))

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

964 (> (count-lines n (match-beginning 0)) 1))))

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

965 0) ; No match within lines.

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

966 (back (count-lines (max n (match-beginning 0)) (match-end 0)))

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

967 (t (count-lines (match-beginning 0) (min n (match-end 0))))))

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

968 (goto-char n))

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

969 (and (zerop times) (looking-at "^.*$"))))

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

970

cb7e72b9a09d Make view mode more similar to `less'.

Richard M. Stallman <rms@gnu.org>

parents: 15737

971

584

4cd7543be581 *** empty log message ***

Jim Blandy <jimb@redhat.com>

parents: 354

972 (provide 'view)

4cd7543be581 *** empty log message ***

Jim Blandy <jimb@redhat.com>

parents: 354

973

657

fec3f9a1e3e5 *** empty log message ***

Eric S. Raymond <esr@snark.thyrsus.com>

parents: 584