diff options
| author | Karl Heuer | 1996-01-04 23:40:30 +0000 |
|---|---|---|
| committer | Karl Heuer | 1996-01-04 23:40:30 +0000 |
| commit | 65e5f4bc989166a0a0c46fb9c969bcb05aaa231f (patch) | |
| tree | 0afa0e8bec05f8c0077611ef737bcda6250d5026 | |
| parent | 829b8d73967998f7166951e52a2b02875ffcf089 (diff) | |
| download | emacs-65e5f4bc989166a0a0c46fb9c969bcb05aaa231f.tar.gz emacs-65e5f4bc989166a0a0c46fb9c969bcb05aaa231f.zip | |
(hexl-program, hexl-beginning-of-1k-page,
hexl-end-of-1k-page, hexl-beginning-of-512b-page,
hexl-end-of-512b-page): Doc fix.
| -rw-r--r-- | lisp/hexl.el | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/lisp/hexl.el b/lisp/hexl.el index 0af45a246f2..1ef4a0a4c5d 100644 --- a/lisp/hexl.el +++ b/lisp/hexl.el | |||
| @@ -53,9 +53,9 @@ | |||
| 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 |
| @@ -517,12 +517,12 @@ With prefix arg N, puts point N bytes of the way from the true beginning." | |||
| 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) |
| @@ -530,12 +530,12 @@ With prefix arg N, puts point N bytes of the way from the true beginning." | |||
| 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) |