emacs: lisp/hexl.el annotate

1 ;;; hexl.el --- edit a file in a hex dump format using the hexl filter.

4f28bd14272c *** empty log message ***

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

parents: 670

2

7300

cc7cd83ccf3f Update copyright.

Karl Heuer <kwzh@gnu.org>

parents: 6952

846

20674ae6bf52 *** empty log message ***

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

parents: 807

4

4f28bd14272c *** empty log message ***

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

parents: 670

5 ;; Author: Keith Gabryelski <ag@wheaties.ai.mit.edu>

5140

9cde7d7fea1f Comment change.

Richard M. Stallman <rms@gnu.org>

parents: 5066

6 ;; Maintainer: FSF

9cde7d7fea1f Comment change.

Richard M. Stallman <rms@gnu.org>

parents: 5066

7 ;; Keywords: data

36

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

8

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

9 ;; This file is part of GNU Emacs.

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

10

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

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

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

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

4f28bd14272c *** empty log message ***

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

parents: 670

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

36

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

14 ;; any later version.

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

15

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

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

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

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

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

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

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

19 ;; GNU General Public License for more details.

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

20

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

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

14169

83f275dcd93a Update FSF's address.

Erik Naggum <erik@naggum.no>

parents: 13988

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

83f275dcd93a Update FSF's address.

Erik Naggum <erik@naggum.no>

parents: 13988

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

83f275dcd93a Update FSF's address.

Erik Naggum <erik@naggum.no>

parents: 13988

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

36

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

25

4f28bd14272c *** empty log message ***

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

parents: 670

26 ;;; Commentary:

4f28bd14272c *** empty log message ***

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

parents: 670

27

2307

10e417efb12a Added or corrected Commentary sections

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

parents: 1978

28 ;; This package implements a major mode for editing binary files. It uses

10e417efb12a Added or corrected Commentary sections

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

parents: 1978

29 ;; a program called hexl, supplied with the GNU Emacs distribution, that

10e417efb12a Added or corrected Commentary sections

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

parents: 1978

30 ;; can filter a binary into an editable format or from the format back into

10e417efb12a Added or corrected Commentary sections

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

parents: 1978

31 ;; binary. For full instructions, invoke `hexl-mode' on an empty buffer and

10e417efb12a Added or corrected Commentary sections

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

parents: 1978

32 ;; do `M-x describe-mode'.

10e417efb12a Added or corrected Commentary sections

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

parents: 1978

33 ;;

36

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

34 ;; This may be useful in your .emacs:

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

35 ;;

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

36 ;; (autoload 'hexl-find-file "hexl"

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

37 ;; "Edit file FILENAME in hexl-mode." t)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

38 ;;

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

39 ;; (define-key global-map "\C-c\C-h" 'hexl-find-file)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

40 ;;

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

41 ;; NOTE: Remember to change HEXL-PROGRAM or HEXL-OPTIONS if needed.

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

42 ;;

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

43 ;; Currently hexl only supports big endian hex output with 16 bit

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

44 ;; grouping.

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

45 ;;

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

46 ;; -iso in `hexl-options' will allow iso characters to display in the

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

47 ;; ASCII region of the screen (if your emacs supports this) instead of

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

48 ;; changing them to dots.

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

49

4f28bd14272c *** empty log message ***

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

parents: 670

50 ;;; Code:

4f28bd14272c *** empty log message ***

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

parents: 670

51

36

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

52 ;;

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

53 ;; vars here

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

54 ;;

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

55

2a9fdbfcb993 Add defgroup; use defcustom for user vars.

Richard M. Stallman <rms@gnu.org>

parents: 15402

56 (defgroup hexl nil

2a9fdbfcb993 Add defgroup; use defcustom for user vars.

Richard M. Stallman <rms@gnu.org>

parents: 15402

57 "Edit a file in a hex dump format using the hexl filter."

2a9fdbfcb993 Add defgroup; use defcustom for user vars.

Richard M. Stallman <rms@gnu.org>

parents: 15402

58 :group 'data)

2a9fdbfcb993 Add defgroup; use defcustom for user vars.

Richard M. Stallman <rms@gnu.org>

parents: 15402

59

2a9fdbfcb993 Add defgroup; use defcustom for user vars.

Richard M. Stallman <rms@gnu.org>

parents: 15402

60

2a9fdbfcb993 Add defgroup; use defcustom for user vars.

Richard M. Stallman <rms@gnu.org>

parents: 15402

61 (defcustom hexl-program "hexl"

118f028ac3dd (hexl-program, hexl-beginning-of-1k-page,

Karl Heuer <kwzh@gnu.org>

parents: 13897

62 "The program that will hexlify and dehexlify its stdin.

3215

8463158ec42e Doc fixes.

Richard M. Stallman <rms@gnu.org>

parents: 3137

63 `hexl-program' will always be concatenated with `hexl-options'

2a9fdbfcb993 Add defgroup; use defcustom for user vars.

Richard M. Stallman <rms@gnu.org>

parents: 15402

64 and \"-de\" when dehexlifying a buffer."

2a9fdbfcb993 Add defgroup; use defcustom for user vars.

Richard M. Stallman <rms@gnu.org>

parents: 15402

65 :type 'string

2a9fdbfcb993 Add defgroup; use defcustom for user vars.

Richard M. Stallman <rms@gnu.org>

parents: 15402

66 :group 'hexl)

36

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

67

2a9fdbfcb993 Add defgroup; use defcustom for user vars.

Richard M. Stallman <rms@gnu.org>

parents: 15402

68 (defcustom hexl-iso ""

36

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

69 "If your emacs can handle ISO characters, this should be set to

2a9fdbfcb993 Add defgroup; use defcustom for user vars.

Richard M. Stallman <rms@gnu.org>

parents: 15402

70 \"-iso\" otherwise it should be \"\"."

2a9fdbfcb993 Add defgroup; use defcustom for user vars.

Richard M. Stallman <rms@gnu.org>

parents: 15402

71 :type 'string

2a9fdbfcb993 Add defgroup; use defcustom for user vars.

Richard M. Stallman <rms@gnu.org>

parents: 15402

72 :group 'hexl)

36

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

73

2a9fdbfcb993 Add defgroup; use defcustom for user vars.

Richard M. Stallman <rms@gnu.org>

parents: 15402

74 (defcustom hexl-options (format "-hex %s" hexl-iso)

2a9fdbfcb993 Add defgroup; use defcustom for user vars.

Richard M. Stallman <rms@gnu.org>

parents: 15402

75 "Options to hexl-program that suit your needs."

2a9fdbfcb993 Add defgroup; use defcustom for user vars.

Richard M. Stallman <rms@gnu.org>

parents: 15402

76 :type 'string

2a9fdbfcb993 Add defgroup; use defcustom for user vars.

Richard M. Stallman <rms@gnu.org>

parents: 15402

77 :group 'hexl)

36

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

78

2a9fdbfcb993 Add defgroup; use defcustom for user vars.

Richard M. Stallman <rms@gnu.org>

parents: 15402

79 (defcustom hexlify-command

3137

1e7d462c176f (hexlify-command, dehexlify-command): Use exec-directory.

Richard M. Stallman <rms@gnu.org>

parents: 2307

80 (format "%s%s %s" exec-directory hexl-program hexl-options)

2a9fdbfcb993 Add defgroup; use defcustom for user vars.

Richard M. Stallman <rms@gnu.org>

parents: 15402

81 "The command to use to hexlify a buffer."

2a9fdbfcb993 Add defgroup; use defcustom for user vars.

Richard M. Stallman <rms@gnu.org>

parents: 15402

82 :type 'string

2a9fdbfcb993 Add defgroup; use defcustom for user vars.

Richard M. Stallman <rms@gnu.org>

parents: 15402

83 :group 'hexl)

36

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

84

2a9fdbfcb993 Add defgroup; use defcustom for user vars.

Richard M. Stallman <rms@gnu.org>

parents: 15402

85 (defcustom dehexlify-command

3137

1e7d462c176f (hexlify-command, dehexlify-command): Use exec-directory.

Richard M. Stallman <rms@gnu.org>

parents: 2307

86 (format "%s%s -de %s" exec-directory hexl-program hexl-options)

2a9fdbfcb993 Add defgroup; use defcustom for user vars.

Richard M. Stallman <rms@gnu.org>

parents: 15402

87 "The command to use to unhexlify a buffer."

2a9fdbfcb993 Add defgroup; use defcustom for user vars.

Richard M. Stallman <rms@gnu.org>

parents: 15402

88 :type 'string

2a9fdbfcb993 Add defgroup; use defcustom for user vars.

Richard M. Stallman <rms@gnu.org>

parents: 15402

89 :group 'hexl)

36

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

90

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

91 (defvar hexl-max-address 0

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

92 "Maximum offset into hexl buffer.")

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

93

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

94 (defvar hexl-mode-map nil)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

95

10976

354c9e79de15 (hexl-mode-old-local-map, hexl-mode-old-mode-name)

Richard M. Stallman <rms@gnu.org>

parents: 10948

96 (defvar hexl-mode-old-local-map)

354c9e79de15 (hexl-mode-old-local-map, hexl-mode-old-mode-name)

Richard M. Stallman <rms@gnu.org>

parents: 10948

97 (defvar hexl-mode-old-mode-name)

354c9e79de15 (hexl-mode-old-local-map, hexl-mode-old-mode-name)

Richard M. Stallman <rms@gnu.org>

parents: 10948

98 (defvar hexl-mode-old-major-mode)

1960e2c77da7 (hexl-mode): Don't call kill-all-local-variables.

Richard M. Stallman <rms@gnu.org>

parents: 13599

99 (defvar hexl-mode-old-write-contents-hooks)

1960e2c77da7 (hexl-mode): Don't call kill-all-local-variables.

Richard M. Stallman <rms@gnu.org>

parents: 13599

100 (defvar hexl-mode-old-require-final-newline)

1960e2c77da7 (hexl-mode): Don't call kill-all-local-variables.

Richard M. Stallman <rms@gnu.org>

parents: 13599

101 (defvar hexl-mode-old-syntax-table)

10976

354c9e79de15 (hexl-mode-old-local-map, hexl-mode-old-mode-name)

Richard M. Stallman <rms@gnu.org>

parents: 10948

102

36

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

103 ;; routines

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

104

17656

7b61d509af8a (hexl-mode): Add a mode-class property.

Richard M. Stallman <rms@gnu.org>

parents: 17436

105 (put 'hexl-mode 'mode-class 'special)

7b61d509af8a (hexl-mode): Add a mode-class property.

Richard M. Stallman <rms@gnu.org>

parents: 17436

106

bff41708644e *** empty log message ***

Richard M. Stallman <rms@gnu.org>

parents: 660

107 ;;;###autoload

36

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

108 (defun hexl-mode (&optional arg)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

109 "\\<hexl-mode-map>

2307

10e417efb12a Added or corrected Commentary sections

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

parents: 1978

110 A major mode for editing binary files in hex dump format.

36

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

111

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

112 This function automatically converts a buffer into the hexl format

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

113 using the function `hexlify-buffer'.

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

114

208

0fa7fc093c4e *** empty log message ***

Richard M. Stallman <rms@gnu.org>

parents: 36

115 Each line in the buffer has an \"address\" (displayed in hexadecimal)

36

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

116 representing the offset into the file that the characters on this line

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

117 are at and 16 characters from the file (displayed as hexadecimal

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

118 values grouped every 16 bits) and as their ASCII values.

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

119

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

120 If any of the characters (displayed as ASCII characters) are

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

121 unprintable (control or meta characters) they will be replaced as

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

122 periods.

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

123

208

0fa7fc093c4e *** empty log message ***

Richard M. Stallman <rms@gnu.org>

parents: 36

124 If `hexl-mode' is invoked with an argument the buffer is assumed to be

0fa7fc093c4e *** empty log message ***

Richard M. Stallman <rms@gnu.org>

parents: 36

125 in hexl format.

36

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

126

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

127 A sample format:

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

128

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

129 HEX ADDR: 0001 0203 0405 0607 0809 0a0b 0c0d 0e0f ASCII-TEXT

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

130 -------- ---- ---- ---- ---- ---- ---- ---- ---- ----------------

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

131 00000000: 5468 6973 2069 7320 6865 786c 2d6d 6f64 This is hexl-mod

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

132 00000010: 652e 2020 4561 6368 206c 696e 6520 7265 e. Each line re

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

133 00000020: 7072 6573 656e 7473 2031 3620 6279 7465 presents 16 byte

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

134 00000030: 7320 6173 2068 6578 6164 6563 696d 616c s as hexadecimal

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

135 00000040: 2041 5343 4949 0a61 6e64 2070 7269 6e74 ASCII.and print

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

136 00000050: 6162 6c65 2041 5343 4949 2063 6861 7261 able ASCII chara

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

137 00000060: 6374 6572 732e 2020 416e 7920 636f 6e74 cters. Any cont

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

138 00000070: 726f 6c20 6f72 206e 6f6e 2d41 5343 4949 rol or non-ASCII

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

139 00000080: 2063 6861 7261 6374 6572 730a 6172 6520 characters.are

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

140 00000090: 6469 7370 6c61 7965 6420 6173 2070 6572 displayed as per

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

141 000000a0: 696f 6473 2069 6e20 7468 6520 7072 696e iods in the prin

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

142 000000b0: 7461 626c 6520 6368 6172 6163 7465 7220 table character

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

143 000000c0: 7265 6769 6f6e 2e0a region..

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

144

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

145 Movement is as simple as movement in a normal emacs text buffer. Most

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

146 cursor movement bindings are the same (ie. Use \\[hexl-backward-char], \\[hexl-forward-char], \\[hexl-next-line], and \\[hexl-previous-line]

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

147 to move the cursor left, right, down, and up).

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

148

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

149 Advanced cursor movement commands (ala \\[hexl-beginning-of-line], \\[hexl-end-of-line], \\[hexl-beginning-of-buffer], and \\[hexl-end-of-buffer]) are

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

150 also supported.

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

151

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

152 There are several ways to change text in hexl mode:

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

153

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

154 ASCII characters (character between space (0x20) and tilde (0x7E)) are

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

155 bound to self-insert so you can simply type the character and it will

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

156 insert itself (actually overstrike) into the buffer.

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

157

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

158 \\[hexl-quoted-insert] followed by another keystroke allows you to insert the key even if

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

159 it isn't bound to self-insert. An octal number can be supplied in place

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

160 of another key to insert the octal number's ASCII representation.

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

161

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

162 \\[hexl-insert-hex-char] will insert a given hexadecimal value (if it is between 0 and 0xFF)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

163 into the buffer at the current point.

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

164

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

165 \\[hexl-insert-octal-char] will insert a given octal value (if it is between 0 and 0377)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

166 into the buffer at the current point.

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

167

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

168 \\[hexl-insert-decimal-char] will insert a given decimal value (if it is between 0 and 255)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

169 into the buffer at the current point.

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

170

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

171 \\[hexl-mode-exit] will exit hexl-mode.

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

172

bff41708644e *** empty log message ***

Richard M. Stallman <rms@gnu.org>

parents: 660

173 Note: saving the file with any of the usual Emacs commands

bff41708644e *** empty log message ***

Richard M. Stallman <rms@gnu.org>

parents: 660

174 will actually convert it back to binary format while saving.

36

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

175

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

176 You can use \\[hexl-find-file] to visit a file in hexl-mode.

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

177

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

178 \\[describe-bindings] for advanced commands."

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

179 (interactive "p")

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

180 (if (eq major-mode 'hexl-mode)

1960e2c77da7 (hexl-mode): Don't call kill-all-local-variables.

Richard M. Stallman <rms@gnu.org>

parents: 13599

181 (error "You are already in hexl mode")

1960e2c77da7 (hexl-mode): Don't call kill-all-local-variables.

Richard M. Stallman <rms@gnu.org>

parents: 13599

182

15373

76072cbcae84 (hexl-mode): Set hexl-max-address early on

Richard M. Stallman <rms@gnu.org>

parents: 15339

183 (let ((modified (buffer-modified-p))

76072cbcae84 (hexl-mode): Set hexl-max-address early on

Richard M. Stallman <rms@gnu.org>

parents: 15339

184 (inhibit-read-only t)

76072cbcae84 (hexl-mode): Set hexl-max-address early on

Richard M. Stallman <rms@gnu.org>

parents: 15339

185 (original-point (1- (point)))

76072cbcae84 (hexl-mode): Set hexl-max-address early on

Richard M. Stallman <rms@gnu.org>

parents: 15339

186 max-address)

76072cbcae84 (hexl-mode): Set hexl-max-address early on

Richard M. Stallman <rms@gnu.org>

parents: 15339

187 (and (eobp) (not (bobp))

76072cbcae84 (hexl-mode): Set hexl-max-address early on

Richard M. Stallman <rms@gnu.org>

parents: 15339

188 (setq original-point (1- original-point)))

76072cbcae84 (hexl-mode): Set hexl-max-address early on

Richard M. Stallman <rms@gnu.org>

parents: 15339

189 (if (not (or (eq arg 1) (not arg)))

76072cbcae84 (hexl-mode): Set hexl-max-address early on

Richard M. Stallman <rms@gnu.org>

parents: 15339

190 ;; if no argument then we guess at hexl-max-address

76072cbcae84 (hexl-mode): Set hexl-max-address early on

Richard M. Stallman <rms@gnu.org>

parents: 15339

191 (setq max-address (+ (* (/ (1- (buffer-size)) 68) 16) 15))

76072cbcae84 (hexl-mode): Set hexl-max-address early on

Richard M. Stallman <rms@gnu.org>

parents: 15339

192 (setq max-address (1- (buffer-size)))

76072cbcae84 (hexl-mode): Set hexl-max-address early on

Richard M. Stallman <rms@gnu.org>

parents: 15339

193 (hexlify-buffer)

76072cbcae84 (hexl-mode): Set hexl-max-address early on

Richard M. Stallman <rms@gnu.org>

parents: 15339

194 (set-buffer-modified-p modified))

76072cbcae84 (hexl-mode): Set hexl-max-address early on

Richard M. Stallman <rms@gnu.org>

parents: 15339

195 (make-local-variable 'hexl-max-address)

76072cbcae84 (hexl-mode): Set hexl-max-address early on

Richard M. Stallman <rms@gnu.org>

parents: 15339

196 (setq hexl-max-address max-address)

76072cbcae84 (hexl-mode): Set hexl-max-address early on

Richard M. Stallman <rms@gnu.org>

parents: 15339

197 (hexl-goto-address original-point))

76072cbcae84 (hexl-mode): Set hexl-max-address early on

Richard M. Stallman <rms@gnu.org>

parents: 15339

198

1960e2c77da7 (hexl-mode): Don't call kill-all-local-variables.

Richard M. Stallman <rms@gnu.org>

parents: 13599

199 ;; We do not turn off the old major mode; instead we just

1960e2c77da7 (hexl-mode): Don't call kill-all-local-variables.

Richard M. Stallman <rms@gnu.org>

parents: 13599

200 ;; override most of it. That way, we can restore it perfectly.

36

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

201 (make-local-variable 'hexl-mode-old-local-map)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

202 (setq hexl-mode-old-local-map (current-local-map))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

203 (use-local-map hexl-mode-map)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

204

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

205 (make-local-variable 'hexl-mode-old-mode-name)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

206 (setq hexl-mode-old-mode-name mode-name)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

207 (setq mode-name "Hexl")

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

208

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

209 (make-local-variable 'hexl-mode-old-major-mode)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

210 (setq hexl-mode-old-major-mode major-mode)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

211 (setq major-mode 'hexl-mode)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

212

1960e2c77da7 (hexl-mode): Don't call kill-all-local-variables.

Richard M. Stallman <rms@gnu.org>

parents: 13599

213 (make-local-variable 'hexl-mode-old-syntax-table)

1960e2c77da7 (hexl-mode): Don't call kill-all-local-variables.

Richard M. Stallman <rms@gnu.org>

parents: 13599

214 (setq hexl-mode-old-syntax-table (syntax-table))

1960e2c77da7 (hexl-mode): Don't call kill-all-local-variables.

Richard M. Stallman <rms@gnu.org>

parents: 13599

215 (set-syntax-table (standard-syntax-table))

1960e2c77da7 (hexl-mode): Don't call kill-all-local-variables.

Richard M. Stallman <rms@gnu.org>

parents: 13599

216

1960e2c77da7 (hexl-mode): Don't call kill-all-local-variables.

Richard M. Stallman <rms@gnu.org>

parents: 13599

217 (make-local-variable 'hexl-mode-old-write-contents-hooks)

1960e2c77da7 (hexl-mode): Don't call kill-all-local-variables.

Richard M. Stallman <rms@gnu.org>

parents: 13599

218 (setq hexl-mode-old-write-contents-hooks write-contents-hooks)

bff41708644e *** empty log message ***

Richard M. Stallman <rms@gnu.org>

parents: 660

219 (make-local-variable 'write-contents-hooks)

4966

82353ffa44b7 (hexl-mode): Use `add-hook' to modify buffer local `write-contents-hooks'.

Richard M. Stallman <rms@gnu.org>

parents: 3978

220 (add-hook 'write-contents-hooks 'hexl-save-buffer)

bff41708644e *** empty log message ***

Richard M. Stallman <rms@gnu.org>

parents: 660

221

1960e2c77da7 (hexl-mode): Don't call kill-all-local-variables.

Richard M. Stallman <rms@gnu.org>

parents: 13599

222 (make-local-variable 'hexl-mode-old-require-final-newline)

1960e2c77da7 (hexl-mode): Don't call kill-all-local-variables.

Richard M. Stallman <rms@gnu.org>

parents: 13599

223 (setq hexl-mode-old-require-final-newline require-final-newline)

1960e2c77da7 (hexl-mode): Don't call kill-all-local-variables.

Richard M. Stallman <rms@gnu.org>

parents: 13599

224 (make-local-variable 'require-final-newline)

1960e2c77da7 (hexl-mode): Don't call kill-all-local-variables.

Richard M. Stallman <rms@gnu.org>

parents: 13599

225 (setq require-final-newline nil)

1960e2c77da7 (hexl-mode): Don't call kill-all-local-variables.

Richard M. Stallman <rms@gnu.org>

parents: 13599

226

1960e2c77da7 (hexl-mode): Don't call kill-all-local-variables.

Richard M. Stallman <rms@gnu.org>

parents: 13599

227 ;; Add hooks to rehexlify or dehexlify on various events.

10948

2e151c5d8485 (hexl-mode): Make after-revert-hook rehexlify.

Richard M. Stallman <rms@gnu.org>

parents: 9780

228 (make-local-hook 'after-revert-hook)

2e151c5d8485 (hexl-mode): Make after-revert-hook rehexlify.

Richard M. Stallman <rms@gnu.org>

parents: 9780

229 (add-hook 'after-revert-hook 'hexl-after-revert-hook nil t)

2e151c5d8485 (hexl-mode): Make after-revert-hook rehexlify.

Richard M. Stallman <rms@gnu.org>

parents: 9780

230

1960e2c77da7 (hexl-mode): Don't call kill-all-local-variables.

Richard M. Stallman <rms@gnu.org>

parents: 13599

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

15402

46fad1457030 (hexl-mode): Run hexl-mode-hook.

Richard M. Stallman <rms@gnu.org>

parents: 15373

232 (add-hook 'change-major-mode-hook 'hexl-maybe-dehexlify-buffer nil t))

46fad1457030 (hexl-mode): Run hexl-mode-hook.

Richard M. Stallman <rms@gnu.org>

parents: 15373

233 (run-hooks 'hexl-mode-hook))

36

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

234

10948

2e151c5d8485 (hexl-mode): Make after-revert-hook rehexlify.

Richard M. Stallman <rms@gnu.org>

parents: 9780

235 (defun hexl-after-revert-hook ()

2e151c5d8485 (hexl-mode): Make after-revert-hook rehexlify.

Richard M. Stallman <rms@gnu.org>

parents: 9780

236 (hexlify-buffer)

2e151c5d8485 (hexl-mode): Make after-revert-hook rehexlify.

Richard M. Stallman <rms@gnu.org>

parents: 9780

237 (set-buffer-modified-p nil))

2e151c5d8485 (hexl-mode): Make after-revert-hook rehexlify.

Richard M. Stallman <rms@gnu.org>

parents: 9780

238

3891

f457e67ddb6b (hexl-in-save-buffer): New flag.

Jim Blandy <jimb@redhat.com>

parents: 3216

239 (defvar hexl-in-save-buffer nil)

f457e67ddb6b (hexl-in-save-buffer): New flag.

Jim Blandy <jimb@redhat.com>

parents: 3216

240

36

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

241 (defun hexl-save-buffer ()

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

242 "Save a hexl format buffer as binary in visited file if modified."

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

243 (interactive)

3891

f457e67ddb6b (hexl-in-save-buffer): New flag.

Jim Blandy <jimb@redhat.com>

parents: 3216

244 (if hexl-in-save-buffer nil

f457e67ddb6b (hexl-in-save-buffer): New flag.

Jim Blandy <jimb@redhat.com>

parents: 3216

245 (set-buffer-modified-p (if (buffer-modified-p)

f457e67ddb6b (hexl-in-save-buffer): New flag.

Jim Blandy <jimb@redhat.com>

parents: 3216

246 (save-excursion

f457e67ddb6b (hexl-in-save-buffer): New flag.

Jim Blandy <jimb@redhat.com>

parents: 3216

247 (let ((buf (generate-new-buffer " hexl"))

f457e67ddb6b (hexl-in-save-buffer): New flag.

Jim Blandy <jimb@redhat.com>

parents: 3216

248 (name (buffer-name))

f457e67ddb6b (hexl-in-save-buffer): New flag.

Jim Blandy <jimb@redhat.com>

parents: 3216

249 (file-name (buffer-file-name))

f457e67ddb6b (hexl-in-save-buffer): New flag.

Jim Blandy <jimb@redhat.com>

parents: 3216

250 (start (point-min))

f457e67ddb6b (hexl-in-save-buffer): New flag.

Jim Blandy <jimb@redhat.com>

parents: 3216

251 (end (point-max))

f457e67ddb6b (hexl-in-save-buffer): New flag.

Jim Blandy <jimb@redhat.com>

parents: 3216

252 modified)

f457e67ddb6b (hexl-in-save-buffer): New flag.

Jim Blandy <jimb@redhat.com>

parents: 3216

253 (set-buffer buf)

f457e67ddb6b (hexl-in-save-buffer): New flag.

Jim Blandy <jimb@redhat.com>

parents: 3216

254 (insert-buffer-substring name start end)

f457e67ddb6b (hexl-in-save-buffer): New flag.

Jim Blandy <jimb@redhat.com>

parents: 3216

255 (set-buffer name)

f457e67ddb6b (hexl-in-save-buffer): New flag.

Jim Blandy <jimb@redhat.com>

parents: 3216

256 (dehexlify-buffer)

f457e67ddb6b (hexl-in-save-buffer): New flag.

Jim Blandy <jimb@redhat.com>

parents: 3216

257 ;; Prevent infinite recursion.

c21a3a07b6fd (hexlify-buffer, dehexlify-buffer):

Richard M. Stallman <rms@gnu.org>

parents: 17710

258 (let ((hexl-in-save-buffer t))

3891

f457e67ddb6b (hexl-in-save-buffer): New flag.

Jim Blandy <jimb@redhat.com>

parents: 3216

259 (save-buffer))

f457e67ddb6b (hexl-in-save-buffer): New flag.

Jim Blandy <jimb@redhat.com>

parents: 3216

260 (setq modified (buffer-modified-p))

f457e67ddb6b (hexl-in-save-buffer): New flag.

Jim Blandy <jimb@redhat.com>

parents: 3216

261 (delete-region (point-min) (point-max))

f457e67ddb6b (hexl-in-save-buffer): New flag.

Jim Blandy <jimb@redhat.com>

parents: 3216

262 (insert-buffer-substring buf start end)

f457e67ddb6b (hexl-in-save-buffer): New flag.

Jim Blandy <jimb@redhat.com>

parents: 3216

263 (kill-buffer buf)

f457e67ddb6b (hexl-in-save-buffer): New flag.

Jim Blandy <jimb@redhat.com>

parents: 3216

264 modified))

f457e67ddb6b (hexl-in-save-buffer): New flag.

Jim Blandy <jimb@redhat.com>

parents: 3216

265 (message "(No changes need to be saved)")

f457e67ddb6b (hexl-in-save-buffer): New flag.

Jim Blandy <jimb@redhat.com>

parents: 3216

266 nil))

f457e67ddb6b (hexl-in-save-buffer): New flag.

Jim Blandy <jimb@redhat.com>

parents: 3216

267 ;; Return t to indicate we have saved t

f457e67ddb6b (hexl-in-save-buffer): New flag.

Jim Blandy <jimb@redhat.com>

parents: 3216

268 t))

36

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

269

bff41708644e *** empty log message ***

Richard M. Stallman <rms@gnu.org>

parents: 660

270 ;;;###autoload

36

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

271 (defun hexl-find-file (filename)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

272 "Edit file FILENAME in hexl-mode.

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

273 Switch to a buffer visiting file FILENAME, creating one in none exists."

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

274 (interactive "fFilename: ")

c21a3a07b6fd (hexlify-buffer, dehexlify-buffer):

Richard M. Stallman <rms@gnu.org>

parents: 17710

275 (find-file-literally filename)

36

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

276 (if (not (eq major-mode 'hexl-mode))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

277 (hexl-mode)))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

278

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

279 (defun hexl-mode-exit (&optional arg)

bff41708644e *** empty log message ***

Richard M. Stallman <rms@gnu.org>

parents: 660

280 "Exit Hexl mode, returning to previous mode.

36

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

281 With arg, don't unhexlify buffer."

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

282 (interactive "p")

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

283 (if (or (eq arg 1) (not arg))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

284 (let ((modified (buffer-modified-p))

5819

b047e246c13d (hexl-mode-exit): Bind inhibit-read-only; don't alter buffer-read-only.

Richard M. Stallman <rms@gnu.org>

parents: 5818

285 (inhibit-read-only t)

36

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

286 (original-point (1+ (hexl-current-address))))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

287 (dehexlify-buffer)

14693

db61bfe289aa (hexl-mode-exit, hexl-maybe-dehexlify-buffer):

Richard M. Stallman <rms@gnu.org>

parents: 14423

288 (remove-hook 'write-contents-hooks 'hexl-save-buffer)

36

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

289 (set-buffer-modified-p modified)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

290 (goto-char original-point)))

1960e2c77da7 (hexl-mode): Don't call kill-all-local-variables.

Richard M. Stallman <rms@gnu.org>

parents: 13599

291

1960e2c77da7 (hexl-mode): Don't call kill-all-local-variables.

Richard M. Stallman <rms@gnu.org>

parents: 13599

292 (remove-hook 'after-revert-hook 'hexl-after-revert-hook t)

1960e2c77da7 (hexl-mode): Don't call kill-all-local-variables.

Richard M. Stallman <rms@gnu.org>

parents: 13599

293 (remove-hook 'change-major-mode-hook 'hexl-maybe-dehexlify-buffer t)

1960e2c77da7 (hexl-mode): Don't call kill-all-local-variables.

Richard M. Stallman <rms@gnu.org>

parents: 13599

294

1960e2c77da7 (hexl-mode): Don't call kill-all-local-variables.

Richard M. Stallman <rms@gnu.org>

parents: 13599

295 (setq write-contents-hooks hexl-mode-old-write-contents-hooks)

1960e2c77da7 (hexl-mode): Don't call kill-all-local-variables.

Richard M. Stallman <rms@gnu.org>

parents: 13599

296 (setq require-final-newline hexl-mode-old-require-final-newline)

36

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

297 (setq mode-name hexl-mode-old-mode-name)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

298 (use-local-map hexl-mode-old-local-map)

1960e2c77da7 (hexl-mode): Don't call kill-all-local-variables.

Richard M. Stallman <rms@gnu.org>

parents: 13599

299 (set-syntax-table hexl-mode-old-syntax-table)

36

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

300 (setq major-mode hexl-mode-old-major-mode)

8222

e03e94b14ba4 (hexl-maybe-dehexlify-buffer): New function.

Richard M. Stallman <rms@gnu.org>

parents: 7711

301 (force-mode-line-update))

e03e94b14ba4 (hexl-maybe-dehexlify-buffer): New function.

Richard M. Stallman <rms@gnu.org>

parents: 7711

302

e03e94b14ba4 (hexl-maybe-dehexlify-buffer): New function.

Richard M. Stallman <rms@gnu.org>

parents: 7711

303 (defun hexl-maybe-dehexlify-buffer ()

e03e94b14ba4 (hexl-maybe-dehexlify-buffer): New function.

Richard M. Stallman <rms@gnu.org>

parents: 7711

304 "Convert a hexl format buffer to binary.

e03e94b14ba4 (hexl-maybe-dehexlify-buffer): New function.

Richard M. Stallman <rms@gnu.org>

parents: 7711

305 Ask the user for confirmation."

e03e94b14ba4 (hexl-maybe-dehexlify-buffer): New function.

Richard M. Stallman <rms@gnu.org>

parents: 7711

306 (if (y-or-n-p "Convert contents back to binary format? ")

e03e94b14ba4 (hexl-maybe-dehexlify-buffer): New function.

Richard M. Stallman <rms@gnu.org>

parents: 7711

307 (let ((modified (buffer-modified-p))

e03e94b14ba4 (hexl-maybe-dehexlify-buffer): New function.

Richard M. Stallman <rms@gnu.org>

parents: 7711

308 (inhibit-read-only t)

e03e94b14ba4 (hexl-maybe-dehexlify-buffer): New function.

Richard M. Stallman <rms@gnu.org>

parents: 7711

309 (original-point (1+ (hexl-current-address))))

e03e94b14ba4 (hexl-maybe-dehexlify-buffer): New function.

Richard M. Stallman <rms@gnu.org>

parents: 7711

310 (dehexlify-buffer)

14693

db61bfe289aa (hexl-mode-exit, hexl-maybe-dehexlify-buffer):

Richard M. Stallman <rms@gnu.org>

parents: 14423

311 (remove-hook 'write-contents-hooks 'hexl-save-buffer)

8222

e03e94b14ba4 (hexl-maybe-dehexlify-buffer): New function.

Richard M. Stallman <rms@gnu.org>

parents: 7711

312 (set-buffer-modified-p modified)

e03e94b14ba4 (hexl-maybe-dehexlify-buffer): New function.

Richard M. Stallman <rms@gnu.org>

parents: 7711

313 (goto-char original-point))))

36

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

314

53205d572b1b (hexl-current-address): New arg VALIDATE.

Richard M. Stallman <rms@gnu.org>

parents: 10976

315 (defun hexl-current-address (&optional validate)

36

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

316 "Return current hexl-address."

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

317 (interactive)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

318 (let ((current-column (- (% (point) 68) 11))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

319 (hexl-address 0))

53205d572b1b (hexl-current-address): New arg VALIDATE.

Richard M. Stallman <rms@gnu.org>

parents: 10976

320 (if (< current-column 0)

53205d572b1b (hexl-current-address): New arg VALIDATE.

Richard M. Stallman <rms@gnu.org>

parents: 10976

321 (if validate

53205d572b1b (hexl-current-address): New arg VALIDATE.

Richard M. Stallman <rms@gnu.org>

parents: 10976

322 (error "Point is not on a character in the file")

53205d572b1b (hexl-current-address): New arg VALIDATE.

Richard M. Stallman <rms@gnu.org>

parents: 10976

323 (setq current-column 0)))

53205d572b1b (hexl-current-address): New arg VALIDATE.

Richard M. Stallman <rms@gnu.org>

parents: 10976

324 (setq hexl-address

53205d572b1b (hexl-current-address): New arg VALIDATE.

Richard M. Stallman <rms@gnu.org>

parents: 10976

325 (+ (* (/ (point) 68) 16)

53205d572b1b (hexl-current-address): New arg VALIDATE.

Richard M. Stallman <rms@gnu.org>

parents: 10976

326 (if (>= current-column 41)

53205d572b1b (hexl-current-address): New arg VALIDATE.

Richard M. Stallman <rms@gnu.org>

parents: 10976

327 (- current-column 41)

53205d572b1b (hexl-current-address): New arg VALIDATE.

Richard M. Stallman <rms@gnu.org>

parents: 10976

328 (/ (- current-column (/ current-column 5)) 2))))

36

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

329 hexl-address))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

330

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

331 (defun hexl-address-to-marker (address)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

332 "Return marker for ADDRESS."

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

333 (interactive "nAddress: ")

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

334 (+ (* (/ address 16) 68) 11 (/ (* (% address 16) 5) 2)))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

335

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

336 (defun hexl-goto-address (address)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

337 "Goto hexl-mode (decimal) address ADDRESS.

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

338 Signal error if ADDRESS out of range."

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

339 (interactive "nAddress: ")

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

340 (if (or (< address 0) (> address hexl-max-address))

13df6938d925 Add a `provide' call.

Richard M. Stallman <rms@gnu.org>

parents: 17656

341 (error "Out of hexl region"))

36

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

342 (goto-char (hexl-address-to-marker address)))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

343

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

344 (defun hexl-goto-hex-address (hex-address)

f501afd0a375 *** empty log message ***

Jim Blandy <jimb@redhat.com>

parents: 208

345 "Go to hexl-mode address (hex string) HEX-ADDRESS.

36

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

346 Signal error if HEX-ADDRESS is out of range."

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

347 (interactive "sHex Address: ")

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

348 (hexl-goto-address (hexl-hex-string-to-integer hex-address)))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

349

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

350 (defun hexl-hex-string-to-integer (hex-string)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

351 "Return decimal integer for HEX-STRING."

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

352 (interactive "sHex number: ")

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

353 (let ((hex-num 0))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

354 (while (not (equal hex-string ""))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

355 (setq hex-num (+ (* hex-num 16)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

356 (hexl-hex-char-to-integer (string-to-char hex-string))))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

357 (setq hex-string (substring hex-string 1)))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

358 hex-num))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

359

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

360 (defun hexl-octal-string-to-integer (octal-string)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

361 "Return decimal integer for OCTAL-STRING."

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

362 (interactive "sOctal number: ")

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

363 (let ((oct-num 0))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

364 (while (not (equal octal-string ""))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

365 (setq oct-num (+ (* oct-num 8)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

366 (hexl-oct-char-to-integer

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

367 (string-to-char octal-string))))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

368 (setq octal-string (substring octal-string 1)))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

369 oct-num))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

370

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

371 ;; move point functions

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

372

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

373 (defun hexl-backward-char (arg)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

374 "Move to left ARG bytes (right if ARG negative) in hexl-mode."

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

375 (interactive "p")

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

376 (hexl-goto-address (- (hexl-current-address) arg)))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

377

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

378 (defun hexl-forward-char (arg)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

379 "Move right ARG bytes (left if ARG negative) in hexl-mode."

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

380 (interactive "p")

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

381 (hexl-goto-address (+ (hexl-current-address) arg)))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

382

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

383 (defun hexl-backward-short (arg)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

384 "Move to left ARG shorts (right if ARG negative) in hexl-mode."

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

385 (interactive "p")

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

386 (hexl-goto-address (let ((address (hexl-current-address)))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

387 (if (< arg 0)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

388 (progn

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

389 (setq arg (- arg))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

390 (while (> arg 0)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

391 (if (not (equal address (logior address 3)))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

392 (if (> address hexl-max-address)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

393 (progn

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

394 (message "End of buffer.")

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

395 (setq address hexl-max-address))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

396 (setq address (logior address 3)))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

397 (if (> address hexl-max-address)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

398 (progn

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

399 (message "End of buffer.")

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

400 (setq address hexl-max-address))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

401 (setq address (+ address 4))))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

402 (setq arg (1- arg)))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

403 (if (> address hexl-max-address)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

404 (progn

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

405 (message "End of buffer.")

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

406 (setq address hexl-max-address))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

407 (setq address (logior address 3))))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

408 (while (> arg 0)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

409 (if (not (equal address (logand address -4)))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

410 (setq address (logand address -4))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

411 (if (not (equal address 0))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

412 (setq address (- address 4))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

413 (message "Beginning of buffer.")))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

414 (setq arg (1- arg))))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

415 address)))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

416

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

417 (defun hexl-forward-short (arg)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

418 "Move right ARG shorts (left if ARG negative) in hexl-mode."

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

419 (interactive "p")

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

420 (hexl-backward-short (- arg)))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

421

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

422 (defun hexl-backward-word (arg)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

423 "Move to left ARG words (right if ARG negative) in hexl-mode."

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

424 (interactive "p")

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

425 (hexl-goto-address (let ((address (hexl-current-address)))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

426 (if (< arg 0)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

427 (progn

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

428 (setq arg (- arg))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

429 (while (> arg 0)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

430 (if (not (equal address (logior address 7)))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

431 (if (> address hexl-max-address)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

432 (progn

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

433 (message "End of buffer.")

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

434 (setq address hexl-max-address))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

435 (setq address (logior address 7)))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

436 (if (> address hexl-max-address)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

437 (progn

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

438 (message "End of buffer.")

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

439 (setq address hexl-max-address))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

440 (setq address (+ address 8))))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

441 (setq arg (1- arg)))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

442 (if (> address hexl-max-address)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

443 (progn

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

444 (message "End of buffer.")

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

445 (setq address hexl-max-address))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

446 (setq address (logior address 7))))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

447 (while (> arg 0)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

448 (if (not (equal address (logand address -8)))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

449 (setq address (logand address -8))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

450 (if (not (equal address 0))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

451 (setq address (- address 8))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

452 (message "Beginning of buffer.")))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

453 (setq arg (1- arg))))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

454 address)))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

455

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

456 (defun hexl-forward-word (arg)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

457 "Move right ARG words (left if ARG negative) in hexl-mode."

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

458 (interactive "p")

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

459 (hexl-backward-word (- arg)))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

460

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

461 (defun hexl-previous-line (arg)

f501afd0a375 *** empty log message ***

Jim Blandy <jimb@redhat.com>

parents: 208

462 "Move vertically up ARG lines [16 bytes] (down if ARG negative) in hexl-mode.

f501afd0a375 *** empty log message ***

Jim Blandy <jimb@redhat.com>

parents: 208

463 If there is byte at the target address move to the last byte in that line."

36

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

464 (interactive "p")

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

465 (hexl-next-line (- arg)))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

466

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

467 (defun hexl-next-line (arg)

f501afd0a375 *** empty log message ***

Jim Blandy <jimb@redhat.com>

parents: 208

468 "Move vertically down ARG lines [16 bytes] (up if ARG negative) in hexl-mode.

f501afd0a375 *** empty log message ***

Jim Blandy <jimb@redhat.com>

parents: 208

469 If there is no byte at the target address move to the last byte in that line."

36

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

470 (interactive "p")

923

9f3cc03dae67 entered into RCS

Jim Blandy <jimb@redhat.com>

parents: 918

471 (hexl-goto-address (let ((address (+ (hexl-current-address) (* arg 16))))

36

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

472 (if (and (< arg 0) (< address 0))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

473 (progn (message "Out of hexl region.")

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

474 (setq address

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

475 (% (hexl-current-address) 16)))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

476 (if (and (> address hexl-max-address)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

477 (< (% hexl-max-address 16) (% address 16)))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

478 (setq address hexl-max-address)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

479 (if (> address hexl-max-address)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

480 (progn (message "Out of hexl region.")

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

481 (setq

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

482 address

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

483 (+ (logand hexl-max-address -16)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

484 (% (hexl-current-address) 16)))))))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

485 address)))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

486

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

487 (defun hexl-beginning-of-buffer (arg)

f501afd0a375 *** empty log message ***

Jim Blandy <jimb@redhat.com>

parents: 208

488 "Move to the beginning of the hexl buffer.

f501afd0a375 *** empty log message ***

Jim Blandy <jimb@redhat.com>

parents: 208

489 Leaves `hexl-mark' at previous position.

f501afd0a375 *** empty log message ***

Jim Blandy <jimb@redhat.com>

parents: 208

490 With prefix arg N, puts point N bytes of the way from the true beginning."

36

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

491 (interactive "p")

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

492 (push-mark (point))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

493 (hexl-goto-address (+ 0 (1- arg))))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

494

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

495 (defun hexl-end-of-buffer (arg)

f501afd0a375 *** empty log message ***

Jim Blandy <jimb@redhat.com>

parents: 208

496 "Go to `hexl-max-address' minus ARG."

36

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

497 (interactive "p")

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

498 (push-mark (point))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

499 (hexl-goto-address (- hexl-max-address (1- arg))))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

500

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

501 (defun hexl-beginning-of-line ()

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

502 "Goto beginning of line in hexl mode."

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

503 (interactive)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

504 (goto-char (+ (* (/ (point) 68) 68) 11)))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

505

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

506 (defun hexl-end-of-line ()

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

507 "Goto end of line in hexl mode."

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

508 (interactive)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

509 (hexl-goto-address (let ((address (logior (hexl-current-address) 15)))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

510 (if (> address hexl-max-address)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

511 (setq address hexl-max-address))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

512 address)))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

513

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

514 (defun hexl-scroll-down (arg)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

515 "Scroll hexl buffer window upward ARG lines; or near full window if no ARG."

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

516 (interactive "P")

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

517 (if (null arg)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

518 (setq arg (1- (window-height)))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

519 (setq arg (prefix-numeric-value arg)))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

520 (hexl-scroll-up (- arg)))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

521

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

522 (defun hexl-scroll-up (arg)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

523 "Scroll hexl buffer window upward ARG lines; or near full window if no ARG."

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

524 (interactive "P")

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

525 (if (null arg)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

526 (setq arg (1- (window-height)))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

527 (setq arg (prefix-numeric-value arg)))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

528 (let ((movement (* arg 16))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

529 (address (hexl-current-address)))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

530 (if (or (> (+ address movement) hexl-max-address)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

531 (< (+ address movement) 0))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

532 (message "Out of hexl region.")

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

533 (hexl-goto-address (+ address movement))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

534 (recenter 0))))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

535

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

536 (defun hexl-beginning-of-1k-page ()

118f028ac3dd (hexl-program, hexl-beginning-of-1k-page,

Karl Heuer <kwzh@gnu.org>

parents: 13897

537 "Go to beginning of 1k boundary."

36

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

538 (interactive)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

539 (hexl-goto-address (logand (hexl-current-address) -1024)))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

540

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

541 (defun hexl-end-of-1k-page ()

118f028ac3dd (hexl-program, hexl-beginning-of-1k-page,

Karl Heuer <kwzh@gnu.org>

parents: 13897

542 "Go to end of 1k boundary."

36

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

543 (interactive)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

544 (hexl-goto-address (let ((address (logior (hexl-current-address) 1023)))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

545 (if (> address hexl-max-address)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

546 (setq address hexl-max-address))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

547 address)))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

548

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

549 (defun hexl-beginning-of-512b-page ()

118f028ac3dd (hexl-program, hexl-beginning-of-1k-page,

Karl Heuer <kwzh@gnu.org>

parents: 13897

550 "Go to beginning of 512 byte boundary."

36

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

551 (interactive)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

552 (hexl-goto-address (logand (hexl-current-address) -512)))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

553

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

554 (defun hexl-end-of-512b-page ()

118f028ac3dd (hexl-program, hexl-beginning-of-1k-page,

Karl Heuer <kwzh@gnu.org>

parents: 13897

555 "Go to end of 512 byte boundary."

36

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

556 (interactive)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

557 (hexl-goto-address (let ((address (logior (hexl-current-address) 511)))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

558 (if (> address hexl-max-address)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

559 (setq address hexl-max-address))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

560 address)))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

561

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

562 (defun hexl-quoted-insert (arg)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

563 "Read next input character and insert it.

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

564 Useful for inserting control characters.

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

565 You may also type up to 3 octal digits, to insert a character with that code"

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

566 (interactive "p")

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

567 (hexl-insert-char (read-quoted-char) arg))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

568

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

569 ;00000000: 0011 2233 4455 6677 8899 aabb ccdd eeff 0123456789ABCDEF

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

570

5066

8abe8fb9621c (hexlify-buffer): Add autoload cookie.

Richard M. Stallman <rms@gnu.org>

parents: 4966

571 ;;;###autoload

36

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

572 (defun hexlify-buffer ()

382c7659273e (hexlify-buffer, dehexlify-buffer): Clear out the undo

Richard M. Stallman <rms@gnu.org>

parents: 14693

573 "Convert a binary buffer to hexl format.

382c7659273e (hexlify-buffer, dehexlify-buffer): Clear out the undo

Richard M. Stallman <rms@gnu.org>

parents: 14693

574 This discards the buffer's undo information."

36

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

575 (interactive)

382c7659273e (hexlify-buffer, dehexlify-buffer): Clear out the undo

Richard M. Stallman <rms@gnu.org>

parents: 14693

576 (and buffer-undo-list

382c7659273e (hexlify-buffer, dehexlify-buffer): Clear out the undo

Richard M. Stallman <rms@gnu.org>

parents: 14693

577 (or (y-or-n-p "Converting to hexl format discards undo info; ok? ")

382c7659273e (hexlify-buffer, dehexlify-buffer): Clear out the undo

Richard M. Stallman <rms@gnu.org>

parents: 14693

578 (error "Aborted")))

382c7659273e (hexlify-buffer, dehexlify-buffer): Clear out the undo

Richard M. Stallman <rms@gnu.org>

parents: 14693

579 (setq buffer-undo-list nil)

7398

abb02a91f4cb (dehexlify-buffer): Reflect that binary-process was

Richard M. Stallman <rms@gnu.org>

parents: 7387

580 (let ((binary-process-output nil) ; for Ms-Dos

c21a3a07b6fd (hexlify-buffer, dehexlify-buffer):

Richard M. Stallman <rms@gnu.org>

parents: 17710

581 (binary-process-input buffer-file-type)

19877

3b008d891adb (hexlify-buffer): Bind coding-system-for-write to

Richard M. Stallman <rms@gnu.org>

parents: 19113

582 ;; If the buffer was read with EOL conversions, be sure to use the

3b008d891adb (hexlify-buffer): Bind coding-system-for-write to

Richard M. Stallman <rms@gnu.org>

parents: 19113

583 ;; same conversions when passing the region to the `hexl' program.

3b008d891adb (hexlify-buffer): Bind coding-system-for-write to

Richard M. Stallman <rms@gnu.org>

parents: 19113

584 (coding-system-for-write

3b008d891adb (hexlify-buffer): Bind coding-system-for-write to

Richard M. Stallman <rms@gnu.org>

parents: 19113

585 (let ((eol-type (coding-system-eol-type buffer-file-coding-system)))

3b008d891adb (hexlify-buffer): Bind coding-system-for-write to

Richard M. Stallman <rms@gnu.org>

parents: 19113

586 (cond ((eq eol-type 1)

3b008d891adb (hexlify-buffer): Bind coding-system-for-write to

Richard M. Stallman <rms@gnu.org>

parents: 19113

587 'raw-text-dos)

3b008d891adb (hexlify-buffer): Bind coding-system-for-write to

Richard M. Stallman <rms@gnu.org>

parents: 19113

588 ((eq eol-type 2)

3b008d891adb (hexlify-buffer): Bind coding-system-for-write to

Richard M. Stallman <rms@gnu.org>

parents: 19113

589 'raw-text-mac)

3b008d891adb (hexlify-buffer): Bind coding-system-for-write to

Richard M. Stallman <rms@gnu.org>

parents: 19113

590 ((eq eol-type 0)

3b008d891adb (hexlify-buffer): Bind coding-system-for-write to

Richard M. Stallman <rms@gnu.org>

parents: 19113

591 'raw-text-unix)

3b008d891adb (hexlify-buffer): Bind coding-system-for-write to

Richard M. Stallman <rms@gnu.org>

parents: 19113

592 (t 'no-conversion))))

382c7659273e (hexlify-buffer, dehexlify-buffer): Clear out the undo

Richard M. Stallman <rms@gnu.org>

parents: 14693

593 (buffer-undo-list t))

7398

abb02a91f4cb (dehexlify-buffer): Reflect that binary-process was

Richard M. Stallman <rms@gnu.org>

parents: 7387

594 (shell-command-on-region (point-min) (point-max) hexlify-command t)))

36

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

595

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

596 (defun dehexlify-buffer ()

382c7659273e (hexlify-buffer, dehexlify-buffer): Clear out the undo

Richard M. Stallman <rms@gnu.org>

parents: 14693

597 "Convert a hexl format buffer to binary.

382c7659273e (hexlify-buffer, dehexlify-buffer): Clear out the undo

Richard M. Stallman <rms@gnu.org>

parents: 14693

598 This discards the buffer's undo information."

36

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

599 (interactive)

382c7659273e (hexlify-buffer, dehexlify-buffer): Clear out the undo

Richard M. Stallman <rms@gnu.org>

parents: 14693

600 (and buffer-undo-list

382c7659273e (hexlify-buffer, dehexlify-buffer): Clear out the undo

Richard M. Stallman <rms@gnu.org>

parents: 14693

601 (or (y-or-n-p "Converting from hexl format discards undo info; ok? ")

382c7659273e (hexlify-buffer, dehexlify-buffer): Clear out the undo

Richard M. Stallman <rms@gnu.org>

parents: 14693

602 (error "Aborted")))

382c7659273e (hexlify-buffer, dehexlify-buffer): Clear out the undo

Richard M. Stallman <rms@gnu.org>

parents: 14693

603 (setq buffer-undo-list nil)

c21a3a07b6fd (hexlify-buffer, dehexlify-buffer):

Richard M. Stallman <rms@gnu.org>

parents: 17710

604 (let ((binary-process-output buffer-file-type) ; for Ms-Dos

382c7659273e (hexlify-buffer, dehexlify-buffer): Clear out the undo

Richard M. Stallman <rms@gnu.org>

parents: 14693

605 (binary-process-input nil)

19877

3b008d891adb (hexlify-buffer): Bind coding-system-for-write to

Richard M. Stallman <rms@gnu.org>

parents: 19113

606 (coding-system-for-read 'raw-text)

382c7659273e (hexlify-buffer, dehexlify-buffer): Clear out the undo

Richard M. Stallman <rms@gnu.org>

parents: 14693

607 (buffer-undo-list t))

5458

0873b536e71d (dehexlify-buffer): If msdos, bind binary-process.

Richard M. Stallman <rms@gnu.org>

parents: 5140

608 (shell-command-on-region (point-min) (point-max) dehexlify-command t)))

36

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

609

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

610 (defun hexl-char-after-point ()

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

611 "Return char for ASCII hex digits at point."

3216

85f44565e821 (hexl-char-after-point): Get rid of mistakenly free variables.

Richard M. Stallman <rms@gnu.org>

parents: 3215

612 (hexl-htoi (char-after (point))

85f44565e821 (hexl-char-after-point): Get rid of mistakenly free variables.

Richard M. Stallman <rms@gnu.org>

parents: 3215

613 (char-after (1+ (point)))))

36

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

614

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

615 (defun hexl-htoi (lh rh)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

616 "Hex (char) LH (char) RH to integer."

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

617 (+ (* (hexl-hex-char-to-integer lh) 16)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

618 (hexl-hex-char-to-integer rh)))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

619

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

620 (defun hexl-hex-char-to-integer (character)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

621 "Take a char and return its value as if it was a hex digit."

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

622 (if (and (>= character ?0) (<= character ?9))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

623 (- character ?0)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

624 (let ((ch (logior character 32)))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

625 (if (and (>= ch ?a) (<= ch ?f))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

626 (- ch (- ?a 10))

13df6938d925 Add a `provide' call.

Richard M. Stallman <rms@gnu.org>

parents: 17656

627 (error "Invalid hex digit `%c'" ch)))))

36

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

628

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

629 (defun hexl-oct-char-to-integer (character)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

630 "Take a char and return its value as if it was a octal digit."

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

631 (if (and (>= character ?0) (<= character ?7))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

632 (- character ?0)

13df6938d925 Add a `provide' call.

Richard M. Stallman <rms@gnu.org>

parents: 17656

633 (error "Invalid octal digit `%c'" character)))

36

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

634

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

635 (defun hexl-printable-character (ch)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

636 "Return a displayable string for character CH."

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

637 (format "%c" (if hexl-iso

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

638 (if (or (< ch 32) (and (>= ch 127) (< ch 160)))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

639 46

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

640 ch)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

641 (if (or (< ch 32) (>= ch 127))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

642 46

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

643 ch))))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

644

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

645 (defun hexl-self-insert-command (arg)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

646 "Insert this character."

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

647 (interactive "p")

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

648 (hexl-insert-char last-command-char arg))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

649

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

650 (defun hexl-insert-char (ch num)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

651 "Insert a character in a hexl buffer."

53205d572b1b (hexl-current-address): New arg VALIDATE.

Richard M. Stallman <rms@gnu.org>

parents: 10976

652 (let ((address (hexl-current-address t)))

36

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

653 (while (> num 0)

53205d572b1b (hexl-current-address): New arg VALIDATE.

Richard M. Stallman <rms@gnu.org>

parents: 10976

654 (let ((hex-position

53205d572b1b (hexl-current-address): New arg VALIDATE.

Richard M. Stallman <rms@gnu.org>

parents: 10976

655 (+ (* (/ address 16) 68)

53205d572b1b (hexl-current-address): New arg VALIDATE.

Richard M. Stallman <rms@gnu.org>

parents: 10976

656 11

53205d572b1b (hexl-current-address): New arg VALIDATE.

Richard M. Stallman <rms@gnu.org>

parents: 10976

657 (* 2 (% address 16))

53205d572b1b (hexl-current-address): New arg VALIDATE.

Richard M. Stallman <rms@gnu.org>

parents: 10976

658 (/ (% address 16) 2)))

53205d572b1b (hexl-current-address): New arg VALIDATE.

Richard M. Stallman <rms@gnu.org>

parents: 10976

659 (ascii-position

53205d572b1b (hexl-current-address): New arg VALIDATE.

Richard M. Stallman <rms@gnu.org>

parents: 10976

660 (+ (* (/ address 16) 68) 52 (% address 16)))

53205d572b1b (hexl-current-address): New arg VALIDATE.

Richard M. Stallman <rms@gnu.org>

parents: 10976

661 at-ascii-position)

53205d572b1b (hexl-current-address): New arg VALIDATE.

Richard M. Stallman <rms@gnu.org>

parents: 10976

662 (if (= (point) ascii-position)

53205d572b1b (hexl-current-address): New arg VALIDATE.

Richard M. Stallman <rms@gnu.org>

parents: 10976

663 (setq at-ascii-position t))

53205d572b1b (hexl-current-address): New arg VALIDATE.

Richard M. Stallman <rms@gnu.org>

parents: 10976

664 (goto-char hex-position)

53205d572b1b (hexl-current-address): New arg VALIDATE.

Richard M. Stallman <rms@gnu.org>

parents: 10976

665 (delete-char 2)

53205d572b1b (hexl-current-address): New arg VALIDATE.

Richard M. Stallman <rms@gnu.org>

parents: 10976

666 (insert (format "%02x" ch))

53205d572b1b (hexl-current-address): New arg VALIDATE.

Richard M. Stallman <rms@gnu.org>

parents: 10976

667 (goto-char ascii-position)

53205d572b1b (hexl-current-address): New arg VALIDATE.

Richard M. Stallman <rms@gnu.org>

parents: 10976

668 (delete-char 1)

53205d572b1b (hexl-current-address): New arg VALIDATE.

Richard M. Stallman <rms@gnu.org>

parents: 10976

669 (insert (hexl-printable-character ch))

53205d572b1b (hexl-current-address): New arg VALIDATE.

Richard M. Stallman <rms@gnu.org>

parents: 10976

670 (or (eq address hexl-max-address)

53205d572b1b (hexl-current-address): New arg VALIDATE.

Richard M. Stallman <rms@gnu.org>

parents: 10976

671 (setq address (1+ address)))

53205d572b1b (hexl-current-address): New arg VALIDATE.

Richard M. Stallman <rms@gnu.org>

parents: 10976

672 (hexl-goto-address address)

53205d572b1b (hexl-current-address): New arg VALIDATE.

Richard M. Stallman <rms@gnu.org>

parents: 10976

673 (if at-ascii-position

53205d572b1b (hexl-current-address): New arg VALIDATE.

Richard M. Stallman <rms@gnu.org>

parents: 10976

674 (progn

53205d572b1b (hexl-current-address): New arg VALIDATE.

Richard M. Stallman <rms@gnu.org>

parents: 10976

675 (beginning-of-line)

53205d572b1b (hexl-current-address): New arg VALIDATE.

Richard M. Stallman <rms@gnu.org>

parents: 10976

676 (forward-char 51)

53205d572b1b (hexl-current-address): New arg VALIDATE.

Richard M. Stallman <rms@gnu.org>

parents: 10976

677 (forward-char (% address 16)))))

36

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

678 (setq num (1- num)))))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

679

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

680 ;; hex conversion

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

681

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

682 (defun hexl-insert-hex-char (arg)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

683 "Insert a ASCII char ARG times at point for a given hexadecimal number."

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

684 (interactive "p")

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

685 (let ((num (hexl-hex-string-to-integer (read-string "Hex number: "))))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

686 (if (or (> num 255) (< num 0))

13df6938d925 Add a `provide' call.

Richard M. Stallman <rms@gnu.org>

parents: 17656

687 (error "Hex number out of range")

36

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

688 (hexl-insert-char num arg))))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

689

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

690 (defun hexl-insert-decimal-char (arg)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

691 "Insert a ASCII char ARG times at point for a given decimal number."

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

692 (interactive "p")

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

693 (let ((num (string-to-int (read-string "Decimal Number: "))))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

694 (if (or (> num 255) (< num 0))

13df6938d925 Add a `provide' call.

Richard M. Stallman <rms@gnu.org>

parents: 17656

695 (error "Decimal number out of range")

36

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

696 (hexl-insert-char num arg))))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

697

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

698 (defun hexl-insert-octal-char (arg)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

699 "Insert a ASCII char ARG times at point for a given octal number."

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

700 (interactive "p")

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

701 (let ((num (hexl-octal-string-to-integer (read-string "Octal Number: "))))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

702 (if (or (> num 255) (< num 0))

13df6938d925 Add a `provide' call.

Richard M. Stallman <rms@gnu.org>

parents: 17656

703 (error "Decimal number out of range")

36

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

704 (hexl-insert-char num arg))))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

705

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

706 ;; startup stuff.

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

707

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

708 (if hexl-mode-map

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

709 nil

b774b50ca14a (hexl-mode-map): Bind prior, home, deletechar, deleteline,

Richard M. Stallman <rms@gnu.org>

parents: 14930

710 (setq hexl-mode-map (make-sparse-keymap))

36

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

711

b774b50ca14a (hexl-mode-map): Bind prior, home, deletechar, deleteline,

Richard M. Stallman <rms@gnu.org>

parents: 14930

712 (define-key hexl-mode-map [left] 'hexl-backward-char)

b774b50ca14a (hexl-mode-map): Bind prior, home, deletechar, deleteline,

Richard M. Stallman <rms@gnu.org>

parents: 14930

713 (define-key hexl-mode-map [right] 'hexl-forward-char)

b774b50ca14a (hexl-mode-map): Bind prior, home, deletechar, deleteline,

Richard M. Stallman <rms@gnu.org>

parents: 14930

714 (define-key hexl-mode-map [up] 'hexl-previous-line)

b774b50ca14a (hexl-mode-map): Bind prior, home, deletechar, deleteline,

Richard M. Stallman <rms@gnu.org>

parents: 14930

715 (define-key hexl-mode-map [down] 'hexl-next-line)

b774b50ca14a (hexl-mode-map): Bind prior, home, deletechar, deleteline,

Richard M. Stallman <rms@gnu.org>

parents: 14930

716 (define-key hexl-mode-map [M-left] 'hexl-backward-short)

b774b50ca14a (hexl-mode-map): Bind prior, home, deletechar, deleteline,

Richard M. Stallman <rms@gnu.org>

parents: 14930

717 (define-key hexl-mode-map [M-right] 'hexl-forward-short)

b774b50ca14a (hexl-mode-map): Bind prior, home, deletechar, deleteline,

Richard M. Stallman <rms@gnu.org>

parents: 14930

718 (define-key hexl-mode-map [next] 'hexl-scroll-up)

b774b50ca14a (hexl-mode-map): Bind prior, home, deletechar, deleteline,

Richard M. Stallman <rms@gnu.org>

parents: 14930

719 (define-key hexl-mode-map [prior] 'hexl-scroll-down)

b774b50ca14a (hexl-mode-map): Bind prior, home, deletechar, deleteline,

Richard M. Stallman <rms@gnu.org>

parents: 14930

720 (define-key hexl-mode-map [home] 'hexl-beginning-of-buffer)

b774b50ca14a (hexl-mode-map): Bind prior, home, deletechar, deleteline,

Richard M. Stallman <rms@gnu.org>

parents: 14930

721 (define-key hexl-mode-map [deletechar] 'undefined)

b774b50ca14a (hexl-mode-map): Bind prior, home, deletechar, deleteline,

Richard M. Stallman <rms@gnu.org>

parents: 14930

722 (define-key hexl-mode-map [deleteline] 'undefined)

b774b50ca14a (hexl-mode-map): Bind prior, home, deletechar, deleteline,

Richard M. Stallman <rms@gnu.org>

parents: 14930

723 (define-key hexl-mode-map [insertline] 'undefined)

b774b50ca14a (hexl-mode-map): Bind prior, home, deletechar, deleteline,

Richard M. Stallman <rms@gnu.org>

parents: 14930

724 (define-key hexl-mode-map [S-delete] 'undefined)

b774b50ca14a (hexl-mode-map): Bind prior, home, deletechar, deleteline,

Richard M. Stallman <rms@gnu.org>

parents: 14930

725 (define-key hexl-mode-map "\177" 'undefined)

36

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

726

b774b50ca14a (hexl-mode-map): Bind prior, home, deletechar, deleteline,

Richard M. Stallman <rms@gnu.org>

parents: 14930

727 (define-key hexl-mode-map "\C-a" 'hexl-beginning-of-line)

b774b50ca14a (hexl-mode-map): Bind prior, home, deletechar, deleteline,

Richard M. Stallman <rms@gnu.org>

parents: 14930

728 (define-key hexl-mode-map "\C-b" 'hexl-backward-char)

b774b50ca14a (hexl-mode-map): Bind prior, home, deletechar, deleteline,

Richard M. Stallman <rms@gnu.org>

parents: 14930

729 (define-key hexl-mode-map "\C-d" 'undefined)

b774b50ca14a (hexl-mode-map): Bind prior, home, deletechar, deleteline,

Richard M. Stallman <rms@gnu.org>

parents: 14930

730 (define-key hexl-mode-map "\C-e" 'hexl-end-of-line)

b774b50ca14a (hexl-mode-map): Bind prior, home, deletechar, deleteline,

Richard M. Stallman <rms@gnu.org>

parents: 14930

731 (define-key hexl-mode-map "\C-f" 'hexl-forward-char)

b774b50ca14a (hexl-mode-map): Bind prior, home, deletechar, deleteline,

Richard M. Stallman <rms@gnu.org>

parents: 14930

732

b774b50ca14a (hexl-mode-map): Bind prior, home, deletechar, deleteline,

Richard M. Stallman <rms@gnu.org>

parents: 14930

733 (if (not (eq (key-binding (char-to-string help-char)) 'help-command))

b774b50ca14a (hexl-mode-map): Bind prior, home, deletechar, deleteline,

Richard M. Stallman <rms@gnu.org>

parents: 14930

734 (define-key hexl-mode-map (char-to-string help-char) 'undefined))

36

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

735

b774b50ca14a (hexl-mode-map): Bind prior, home, deletechar, deleteline,

Richard M. Stallman <rms@gnu.org>

parents: 14930

736 (define-key hexl-mode-map "\C-i" 'hexl-self-insert-command)

b774b50ca14a (hexl-mode-map): Bind prior, home, deletechar, deleteline,

Richard M. Stallman <rms@gnu.org>

parents: 14930

737 (define-key hexl-mode-map "\C-j" 'hexl-self-insert-command)

b774b50ca14a (hexl-mode-map): Bind prior, home, deletechar, deleteline,

Richard M. Stallman <rms@gnu.org>

parents: 14930

738 (define-key hexl-mode-map "\C-k" 'undefined)

b774b50ca14a (hexl-mode-map): Bind prior, home, deletechar, deleteline,

Richard M. Stallman <rms@gnu.org>

parents: 14930

739 (define-key hexl-mode-map "\C-m" 'hexl-self-insert-command)

b774b50ca14a (hexl-mode-map): Bind prior, home, deletechar, deleteline,

Richard M. Stallman <rms@gnu.org>

parents: 14930

740 (define-key hexl-mode-map "\C-n" 'hexl-next-line)

b774b50ca14a (hexl-mode-map): Bind prior, home, deletechar, deleteline,

Richard M. Stallman <rms@gnu.org>

parents: 14930

741 (define-key hexl-mode-map "\C-o" 'undefined)

b774b50ca14a (hexl-mode-map): Bind prior, home, deletechar, deleteline,

Richard M. Stallman <rms@gnu.org>

parents: 14930

742 (define-key hexl-mode-map "\C-p" 'hexl-previous-line)

b774b50ca14a (hexl-mode-map): Bind prior, home, deletechar, deleteline,

Richard M. Stallman <rms@gnu.org>

parents: 14930

743 (define-key hexl-mode-map "\C-q" 'hexl-quoted-insert)

b774b50ca14a (hexl-mode-map): Bind prior, home, deletechar, deleteline,

Richard M. Stallman <rms@gnu.org>

parents: 14930

744 (define-key hexl-mode-map "\C-t" 'undefined)

b774b50ca14a (hexl-mode-map): Bind prior, home, deletechar, deleteline,

Richard M. Stallman <rms@gnu.org>

parents: 14930

745 (define-key hexl-mode-map "\C-v" 'hexl-scroll-up)

b774b50ca14a (hexl-mode-map): Bind prior, home, deletechar, deleteline,

Richard M. Stallman <rms@gnu.org>

parents: 14930

746 (define-key hexl-mode-map "\C-w" 'undefined)

b774b50ca14a (hexl-mode-map): Bind prior, home, deletechar, deleteline,

Richard M. Stallman <rms@gnu.org>

parents: 14930

747 (define-key hexl-mode-map "\C-y" 'undefined)

36

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

748

b774b50ca14a (hexl-mode-map): Bind prior, home, deletechar, deleteline,

Richard M. Stallman <rms@gnu.org>

parents: 14930

749 (let ((ch 32))

b774b50ca14a (hexl-mode-map): Bind prior, home, deletechar, deleteline,

Richard M. Stallman <rms@gnu.org>

parents: 14930

750 (while (< ch 127)

b774b50ca14a (hexl-mode-map): Bind prior, home, deletechar, deleteline,

Richard M. Stallman <rms@gnu.org>

parents: 14930

751 (define-key hexl-mode-map (format "%c" ch) 'hexl-self-insert-command)

b774b50ca14a (hexl-mode-map): Bind prior, home, deletechar, deleteline,

Richard M. Stallman <rms@gnu.org>

parents: 14930

752 (setq ch (1+ ch))))

36

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

753

b774b50ca14a (hexl-mode-map): Bind prior, home, deletechar, deleteline,

Richard M. Stallman <rms@gnu.org>

parents: 14930

754 (define-key hexl-mode-map "\e\C-a" 'hexl-beginning-of-512b-page)

b774b50ca14a (hexl-mode-map): Bind prior, home, deletechar, deleteline,

Richard M. Stallman <rms@gnu.org>

parents: 14930

755 (define-key hexl-mode-map "\e\C-b" 'hexl-backward-short)

b774b50ca14a (hexl-mode-map): Bind prior, home, deletechar, deleteline,

Richard M. Stallman <rms@gnu.org>

parents: 14930

756 (define-key hexl-mode-map "\e\C-c" 'undefined)

b774b50ca14a (hexl-mode-map): Bind prior, home, deletechar, deleteline,

Richard M. Stallman <rms@gnu.org>

parents: 14930

757 (define-key hexl-mode-map "\e\C-d" 'hexl-insert-decimal-char)

b774b50ca14a (hexl-mode-map): Bind prior, home, deletechar, deleteline,

Richard M. Stallman <rms@gnu.org>

parents: 14930

758 (define-key hexl-mode-map "\e\C-e" 'hexl-end-of-512b-page)

b774b50ca14a (hexl-mode-map): Bind prior, home, deletechar, deleteline,

Richard M. Stallman <rms@gnu.org>

parents: 14930

759 (define-key hexl-mode-map "\e\C-f" 'hexl-forward-short)

b774b50ca14a (hexl-mode-map): Bind prior, home, deletechar, deleteline,

Richard M. Stallman <rms@gnu.org>

parents: 14930

760 (define-key hexl-mode-map "\e\C-g" 'undefined)

b774b50ca14a (hexl-mode-map): Bind prior, home, deletechar, deleteline,

Richard M. Stallman <rms@gnu.org>

parents: 14930

761 (define-key hexl-mode-map "\e\C-h" 'undefined)

b774b50ca14a (hexl-mode-map): Bind prior, home, deletechar, deleteline,

Richard M. Stallman <rms@gnu.org>

parents: 14930

762 (define-key hexl-mode-map "\e\C-i" 'undefined)

b774b50ca14a (hexl-mode-map): Bind prior, home, deletechar, deleteline,

Richard M. Stallman <rms@gnu.org>

parents: 14930

763 (define-key hexl-mode-map "\e\C-j" 'undefined)

b774b50ca14a (hexl-mode-map): Bind prior, home, deletechar, deleteline,

Richard M. Stallman <rms@gnu.org>

parents: 14930

764 (define-key hexl-mode-map "\e\C-k" 'undefined)

b774b50ca14a (hexl-mode-map): Bind prior, home, deletechar, deleteline,

Richard M. Stallman <rms@gnu.org>

parents: 14930

765 (define-key hexl-mode-map "\e\C-l" 'undefined)

b774b50ca14a (hexl-mode-map): Bind prior, home, deletechar, deleteline,

Richard M. Stallman <rms@gnu.org>

parents: 14930

766 (define-key hexl-mode-map "\e\C-m" 'undefined)

b774b50ca14a (hexl-mode-map): Bind prior, home, deletechar, deleteline,

Richard M. Stallman <rms@gnu.org>

parents: 14930

767 (define-key hexl-mode-map "\e\C-n" 'undefined)

b774b50ca14a (hexl-mode-map): Bind prior, home, deletechar, deleteline,

Richard M. Stallman <rms@gnu.org>

parents: 14930

768 (define-key hexl-mode-map "\e\C-o" 'hexl-insert-octal-char)

b774b50ca14a (hexl-mode-map): Bind prior, home, deletechar, deleteline,

Richard M. Stallman <rms@gnu.org>

parents: 14930

769 (define-key hexl-mode-map "\e\C-p" 'undefined)

b774b50ca14a (hexl-mode-map): Bind prior, home, deletechar, deleteline,

Richard M. Stallman <rms@gnu.org>

parents: 14930

770 (define-key hexl-mode-map "\e\C-q" 'undefined)

b774b50ca14a (hexl-mode-map): Bind prior, home, deletechar, deleteline,

Richard M. Stallman <rms@gnu.org>

parents: 14930

771 (define-key hexl-mode-map "\e\C-r" 'undefined)

b774b50ca14a (hexl-mode-map): Bind prior, home, deletechar, deleteline,

Richard M. Stallman <rms@gnu.org>

parents: 14930

772 (define-key hexl-mode-map "\e\C-s" 'undefined)

b774b50ca14a (hexl-mode-map): Bind prior, home, deletechar, deleteline,

Richard M. Stallman <rms@gnu.org>

parents: 14930

773 (define-key hexl-mode-map "\e\C-t" 'undefined)

b774b50ca14a (hexl-mode-map): Bind prior, home, deletechar, deleteline,

Richard M. Stallman <rms@gnu.org>

parents: 14930

774 (define-key hexl-mode-map "\e\C-u" 'undefined)

36

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

775

b774b50ca14a (hexl-mode-map): Bind prior, home, deletechar, deleteline,

Richard M. Stallman <rms@gnu.org>

parents: 14930

776 (define-key hexl-mode-map "\e\C-w" 'undefined)

b774b50ca14a (hexl-mode-map): Bind prior, home, deletechar, deleteline,

Richard M. Stallman <rms@gnu.org>

parents: 14930

777 (define-key hexl-mode-map "\e\C-x" 'hexl-insert-hex-char)

b774b50ca14a (hexl-mode-map): Bind prior, home, deletechar, deleteline,

Richard M. Stallman <rms@gnu.org>

parents: 14930

778 (define-key hexl-mode-map "\e\C-y" 'undefined)

36

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

779

b774b50ca14a (hexl-mode-map): Bind prior, home, deletechar, deleteline,

Richard M. Stallman <rms@gnu.org>

parents: 14930

780 (define-key hexl-mode-map "\ea" 'undefined)

b774b50ca14a (hexl-mode-map): Bind prior, home, deletechar, deleteline,

Richard M. Stallman <rms@gnu.org>

parents: 14930

781 (define-key hexl-mode-map "\eb" 'hexl-backward-word)

b774b50ca14a (hexl-mode-map): Bind prior, home, deletechar, deleteline,

Richard M. Stallman <rms@gnu.org>

parents: 14930

782 (define-key hexl-mode-map "\ec" 'undefined)

b774b50ca14a (hexl-mode-map): Bind prior, home, deletechar, deleteline,

Richard M. Stallman <rms@gnu.org>

parents: 14930

783 (define-key hexl-mode-map "\ed" 'undefined)

b774b50ca14a (hexl-mode-map): Bind prior, home, deletechar, deleteline,

Richard M. Stallman <rms@gnu.org>

parents: 14930

784 (define-key hexl-mode-map "\ee" 'undefined)

b774b50ca14a (hexl-mode-map): Bind prior, home, deletechar, deleteline,

Richard M. Stallman <rms@gnu.org>

parents: 14930

785 (define-key hexl-mode-map "\ef" 'hexl-forward-word)

b774b50ca14a (hexl-mode-map): Bind prior, home, deletechar, deleteline,

Richard M. Stallman <rms@gnu.org>

parents: 14930

786 (define-key hexl-mode-map "\eg" 'hexl-goto-hex-address)

b774b50ca14a (hexl-mode-map): Bind prior, home, deletechar, deleteline,

Richard M. Stallman <rms@gnu.org>

parents: 14930

787 (define-key hexl-mode-map "\eh" 'undefined)

b774b50ca14a (hexl-mode-map): Bind prior, home, deletechar, deleteline,

Richard M. Stallman <rms@gnu.org>

parents: 14930

788 (define-key hexl-mode-map "\ei" 'undefined)

b774b50ca14a (hexl-mode-map): Bind prior, home, deletechar, deleteline,

Richard M. Stallman <rms@gnu.org>

parents: 14930

789 (define-key hexl-mode-map "\ej" 'hexl-goto-address)

b774b50ca14a (hexl-mode-map): Bind prior, home, deletechar, deleteline,

Richard M. Stallman <rms@gnu.org>

parents: 14930

790 (define-key hexl-mode-map "\ek" 'undefined)

b774b50ca14a (hexl-mode-map): Bind prior, home, deletechar, deleteline,

Richard M. Stallman <rms@gnu.org>

parents: 14930

791 (define-key hexl-mode-map "\el" 'undefined)

b774b50ca14a (hexl-mode-map): Bind prior, home, deletechar, deleteline,

Richard M. Stallman <rms@gnu.org>

parents: 14930

792 (define-key hexl-mode-map "\em" 'undefined)

b774b50ca14a (hexl-mode-map): Bind prior, home, deletechar, deleteline,

Richard M. Stallman <rms@gnu.org>

parents: 14930

793 (define-key hexl-mode-map "\en" 'undefined)

b774b50ca14a (hexl-mode-map): Bind prior, home, deletechar, deleteline,

Richard M. Stallman <rms@gnu.org>

parents: 14930

794 (define-key hexl-mode-map "\eo" 'undefined)

b774b50ca14a (hexl-mode-map): Bind prior, home, deletechar, deleteline,

Richard M. Stallman <rms@gnu.org>

parents: 14930

795 (define-key hexl-mode-map "\ep" 'undefined)

b774b50ca14a (hexl-mode-map): Bind prior, home, deletechar, deleteline,

Richard M. Stallman <rms@gnu.org>

parents: 14930

796 (define-key hexl-mode-map "\eq" 'undefined)

b774b50ca14a (hexl-mode-map): Bind prior, home, deletechar, deleteline,

Richard M. Stallman <rms@gnu.org>

parents: 14930

797 (define-key hexl-mode-map "\er" 'undefined)

b774b50ca14a (hexl-mode-map): Bind prior, home, deletechar, deleteline,

Richard M. Stallman <rms@gnu.org>

parents: 14930

798 (define-key hexl-mode-map "\es" 'undefined)

b774b50ca14a (hexl-mode-map): Bind prior, home, deletechar, deleteline,

Richard M. Stallman <rms@gnu.org>

parents: 14930

799 (define-key hexl-mode-map "\et" 'undefined)

b774b50ca14a (hexl-mode-map): Bind prior, home, deletechar, deleteline,

Richard M. Stallman <rms@gnu.org>

parents: 14930

800 (define-key hexl-mode-map "\eu" 'undefined)

b774b50ca14a (hexl-mode-map): Bind prior, home, deletechar, deleteline,

Richard M. Stallman <rms@gnu.org>

parents: 14930

801 (define-key hexl-mode-map "\ev" 'hexl-scroll-down)

b774b50ca14a (hexl-mode-map): Bind prior, home, deletechar, deleteline,

Richard M. Stallman <rms@gnu.org>

parents: 14930

802 (define-key hexl-mode-map "\ey" 'undefined)

b774b50ca14a (hexl-mode-map): Bind prior, home, deletechar, deleteline,

Richard M. Stallman <rms@gnu.org>

parents: 14930

803 (define-key hexl-mode-map "\ez" 'undefined)

b774b50ca14a (hexl-mode-map): Bind prior, home, deletechar, deleteline,

Richard M. Stallman <rms@gnu.org>

parents: 14930

804 (define-key hexl-mode-map "\e<" 'hexl-beginning-of-buffer)

b774b50ca14a (hexl-mode-map): Bind prior, home, deletechar, deleteline,

Richard M. Stallman <rms@gnu.org>

parents: 14930

805 (define-key hexl-mode-map "\e>" 'hexl-end-of-buffer)

36

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

806

b774b50ca14a (hexl-mode-map): Bind prior, home, deletechar, deleteline,

Richard M. Stallman <rms@gnu.org>

parents: 14930

807 (define-key hexl-mode-map "\C-c\C-c" 'hexl-mode-exit)

36

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

808

b774b50ca14a (hexl-mode-map): Bind prior, home, deletechar, deleteline,

Richard M. Stallman <rms@gnu.org>

parents: 14930

809 (define-key hexl-mode-map "\C-x[" 'hexl-beginning-of-1k-page)

b774b50ca14a (hexl-mode-map): Bind prior, home, deletechar, deleteline,

Richard M. Stallman <rms@gnu.org>

parents: 14930

810 (define-key hexl-mode-map "\C-x]" 'hexl-end-of-1k-page)

b774b50ca14a (hexl-mode-map): Bind prior, home, deletechar, deleteline,

Richard M. Stallman <rms@gnu.org>

parents: 14930

811 (define-key hexl-mode-map "\C-x\C-p" 'undefined)

b774b50ca14a (hexl-mode-map): Bind prior, home, deletechar, deleteline,

Richard M. Stallman <rms@gnu.org>

parents: 14930

812 (define-key hexl-mode-map "\C-x\C-s" 'hexl-save-buffer)

b774b50ca14a (hexl-mode-map): Bind prior, home, deletechar, deleteline,

Richard M. Stallman <rms@gnu.org>

parents: 14930

813 (define-key hexl-mode-map "\C-x\C-t" 'undefined))

36

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

814

13df6938d925 Add a `provide' call.

Richard M. Stallman <rms@gnu.org>

parents: 17656

815 (provide 'hexl)

13df6938d925 Add a `provide' call.

Richard M. Stallman <rms@gnu.org>

parents: 17656

816

660

08eb386dd0f3 *** empty log message ***

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

parents: 209