Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
4c8c7ae9
Commit
4c8c7ae9
authored
Mar 06, 1991
by
Jim Blandy
Browse files
*** empty log message ***
parent
8a1281b5
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
11 additions
and
20 deletions
+11
-20
etc/termcap.dat
etc/termcap.dat
+2
-2
lisp/hexl.el
lisp/hexl.el
+9
-18
No files found.
etc/termcap.dat
View file @
4c8c7ae9
...
...
@@ -47,12 +47,12 @@ ZW|gator|HP 9000 model 237 emulating AAA:\
ZY|gator-52|HP 9000 model 237 emulating VT52:\
:cr=^M:do=^J:nl=^J:bl=^G:\
:le=^H:bs:cd=\EJ:ce=\EK:cl=\EH\EJ:cm=\EY%+ %+ :co#128:li#47:nd=\EC:\
:ta=^I:pt:sr=\EI:up=\EA:ku=\EA:kd=\EB:kr=\EC:kl=\ED:kb=^H:
:ta=^I:pt:sr=\EI:up=\EA:ku=\EA:kd=\EB:kr=\EC:kl=\ED:kb=^H:
\
:ce=\EK:ho=\EH:
ZZ|gator-52t|HP 9000 model 237 emulating extra-tall VT52:\
:cr=^M:do=^J:nl=^J:bl=^G:\
:le=^H:bs:cd=\EJ:ce=\EK:cl=\EH\EJ:cm=\EY%+ %+ :co#128:li#94:nd=\EC:\
:ta=^I:pt:sr=\EI:up=\EA:ku=\EA:kd=\EB:kr=\EC:kl=\ED:kb=^H:
:ta=^I:pt:sr=\EI:up=\EA:ku=\EA:kd=\EB:kr=\EC:kl=\ED:kb=^H:
\
:ce=\EK:ho=\EH:
#
# N: ANN ARBOR
...
...
lisp/hexl.el
View file @
4c8c7ae9
...
...
@@ -195,7 +195,6 @@ You can use \\[hexl-find-file] to visit a file in hexl-mode.
(
defun
hexl-find-file
(
filename
)
"Edit file FILENAME in hexl-mode.
Switch to a buffer visiting file FILENAME, creating one in none exists."
(
interactive
"fFilename: "
)
(
find-file
filename
)
...
...
@@ -246,7 +245,7 @@ Signal error if ADDRESS out of range."
(
goto-char
(
hexl-address-to-marker
address
)))
(
defun
hexl-goto-hex-address
(
hex-address
)
"Goto hexl-mode address (hex string) HEX-ADDRESS.
"Go
to hexl-mode address (hex string) HEX-ADDRESS.
Signal error if HEX-ADDRESS is out of range."
(
interactive
"sHex Address: "
)
...
...
@@ -364,20 +363,14 @@ Signal error if HEX-ADDRESS is out of range."
(
hexl-backward-word
(
-
arg
)))
(
defun
hexl-previous-line
(
arg
)
"Move vertically up ARG lines [16 bytes] (down if ARG negative) in
hexl-mode.
If there is byte at the target address move to the last byte in that
line."
"Move vertically up ARG lines [16 bytes] (down if ARG negative) in hexl-mode.
If there is byte at the target address move to the last byte in that line."
(
interactive
"p"
)
(
hexl-next-line
(
-
arg
)))
(
defun
hexl-next-line
(
arg
)
"Move vertically down ARG lines [16 bytes] (up if ARG negative) in
hexl-mode.
If there is no byte at the target address move to the last byte in that
line."
"Move vertically down ARG lines [16 bytes] (up if ARG negative) in hexl-mode.
If there is no byte at the target address move to the last byte in that line."
(
interactive
"p"
)
(
hexl-goto-address
(
let
((
address
(
+
(
hexl-current-address
)
(
*
arg
16
))
t
))
(
if
(
and
(
<
arg
0
)
(
<
address
0
))
...
...
@@ -396,16 +389,15 @@ line."
address
)))
(
defun
hexl-beginning-of-buffer
(
arg
)
"Move to the beginning of the hexl buffer; leave hexl-mark at previous
posistion.
With arg N, put point N bytes of the way from the true beginning."
"Move to the beginning of the hexl buffer.
Leaves `hexl-mark' at previous position.
With prefix arg N, puts point N bytes of the way from the true beginning."
(
interactive
"p"
)
(
push-mark
(
point
))
(
hexl-goto-address
(
+
0
(
1-
arg
))))
(
defun
hexl-end-of-buffer
(
arg
)
"Goto hexl-max-address minus ARG."
"Go
to
`
hexl-max-address
'
minus ARG."
(
interactive
"p"
)
(
push-mark
(
point
))
(
hexl-goto-address
(
-
hexl-max-address
(
1-
arg
))))
...
...
@@ -631,7 +623,6 @@ You may also type up to 3 octal digits, to insert a character with that code"
(
define-key
hexl-mode-map
"\e\C-x"
'hexl-insert-hex-char
)
(
define-key
hexl-mode-map
"\e\C-y"
'undefined
)
(
define-key
hexl-mode-map
"\ea"
'hexl-beginning-of-1k-page
)
(
define-key
hexl-mode-map
"\eb"
'hexl-backward-word
)
(
define-key
hexl-mode-map
"\ec"
'undefined
)
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment