Mercurial > emacs
comparison lisp/hexl.el @ 13988:118f028ac3dd
(hexl-program, hexl-beginning-of-1k-page,
hexl-end-of-1k-page, hexl-beginning-of-512b-page,
hexl-end-of-512b-page): Doc fix.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Thu, 04 Jan 1996 23:40:30 +0000 |
| parents | 1960e2c77da7 |
| children | 83f275dcd93a |
comparison
equal
deleted
inserted
replaced
| 13987:5ab7ad0d2324 | 13988:118f028ac3dd |
|---|---|
| 51 ;; | 51 ;; |
| 52 ;; vars here | 52 ;; vars here |
| 53 ;; | 53 ;; |
| 54 | 54 |
| 55 (defvar hexl-program "hexl" | 55 (defvar hexl-program "hexl" |
| 56 "The program that will hexlify and de-hexlify its stdin. | 56 "The program that will hexlify and dehexlify its stdin. |
| 57 `hexl-program' will always be concatenated with `hexl-options' | 57 `hexl-program' will always be concatenated with `hexl-options' |
| 58 and \"-de\" when dehexlfying a buffer.") | 58 and \"-de\" when dehexlifying a buffer.") |
| 59 | 59 |
| 60 (defvar hexl-iso "" | 60 (defvar hexl-iso "" |
| 61 "If your emacs can handle ISO characters, this should be set to | 61 "If your emacs can handle ISO characters, this should be set to |
| 62 \"-iso\" otherwise it should be \"\".") | 62 \"-iso\" otherwise it should be \"\".") |
| 63 | 63 |
| 515 (message "Out of hexl region.") | 515 (message "Out of hexl region.") |
| 516 (hexl-goto-address (+ address movement)) | 516 (hexl-goto-address (+ address movement)) |
| 517 (recenter 0)))) | 517 (recenter 0)))) |
| 518 | 518 |
| 519 (defun hexl-beginning-of-1k-page () | 519 (defun hexl-beginning-of-1k-page () |
| 520 "Goto to beginning of 1k boundry." | 520 "Go to beginning of 1k boundary." |
| 521 (interactive) | 521 (interactive) |
| 522 (hexl-goto-address (logand (hexl-current-address) -1024))) | 522 (hexl-goto-address (logand (hexl-current-address) -1024))) |
| 523 | 523 |
| 524 (defun hexl-end-of-1k-page () | 524 (defun hexl-end-of-1k-page () |
| 525 "Goto to end of 1k boundry." | 525 "Go to end of 1k boundary." |
| 526 (interactive) | 526 (interactive) |
| 527 (hexl-goto-address (let ((address (logior (hexl-current-address) 1023))) | 527 (hexl-goto-address (let ((address (logior (hexl-current-address) 1023))) |
| 528 (if (> address hexl-max-address) | 528 (if (> address hexl-max-address) |
| 529 (setq address hexl-max-address)) | 529 (setq address hexl-max-address)) |
| 530 address))) | 530 address))) |
| 531 | 531 |
| 532 (defun hexl-beginning-of-512b-page () | 532 (defun hexl-beginning-of-512b-page () |
| 533 "Goto to beginning of 512 byte boundry." | 533 "Go to beginning of 512 byte boundary." |
| 534 (interactive) | 534 (interactive) |
| 535 (hexl-goto-address (logand (hexl-current-address) -512))) | 535 (hexl-goto-address (logand (hexl-current-address) -512))) |
| 536 | 536 |
| 537 (defun hexl-end-of-512b-page () | 537 (defun hexl-end-of-512b-page () |
| 538 "Goto to end of 512 byte boundry." | 538 "Go to end of 512 byte boundary." |
| 539 (interactive) | 539 (interactive) |
| 540 (hexl-goto-address (let ((address (logior (hexl-current-address) 511))) | 540 (hexl-goto-address (let ((address (logior (hexl-current-address) 511))) |
| 541 (if (> address hexl-max-address) | 541 (if (> address hexl-max-address) |
| 542 (setq address hexl-max-address)) | 542 (setq address hexl-max-address)) |
| 543 address))) | 543 address))) |