Mercurial > emacs
changeset 209:f501afd0a375
*** empty log message ***
| author | Jim Blandy <jimb@redhat.com> |
|---|---|
| date | Wed, 06 Mar 1991 18:33:25 +0000 |
| parents | 0fa7fc093c4e |
| children | 01cbfdd59f82 |
| files | etc/termcap.dat lisp/hexl.el |
| diffstat | 2 files changed, 11 insertions(+), 20 deletions(-) [+] |
line wrap: on
line diff
--- a/etc/termcap.dat Wed Mar 06 18:30:37 1991 +0000 +++ b/etc/termcap.dat Wed Mar 06 18:33:25 1991 +0000 @@ -47,12 +47,12 @@ 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
--- a/lisp/hexl.el Wed Mar 06 18:30:37 1991 +0000 +++ b/lisp/hexl.el Wed Mar 06 18:33:25 1991 +0000 @@ -195,7 +195,6 @@ (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 @@ (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 @@ (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 @@ 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 @@ (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)