aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorKarl Heuer1996-01-04 23:40:30 +0000
committerKarl Heuer1996-01-04 23:40:30 +0000
commit65e5f4bc989166a0a0c46fb9c969bcb05aaa231f (patch)
tree0afa0e8bec05f8c0077611ef737bcda6250d5026
parent829b8d73967998f7166951e52a2b02875ffcf089 (diff)
downloademacs-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.el12
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'
58and \"-de\" when dehexlfying a buffer.") 58and \"-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)