summaryrefslogtreecommitdiff
path: root/lisp/hexl.el
diff options
context:
space:
mode:
authorJuanma Barranquero <lekktu@gmail.com>2006-11-30 23:30:52 +0000
committerJuanma Barranquero <lekktu@gmail.com>2006-11-30 23:30:52 +0000
commit5232b4cdfa2a1fc8685b81febefc64667b34ebf6 (patch)
tree24de2addd14f7655db471217d92f8520653a2a79 /lisp/hexl.el
parentfde80ee0dcaf446c4ab36e0c9990bf7ace40e9fa (diff)
downloademacs-5232b4cdfa2a1fc8685b81febefc64667b34ebf6.tar.gz
(hexl-goto-address, hexl-forward-char, hexl-forward-short, hexl-forward-word,
hexl-previous-line, hexl-beginning-of-1k-page, hexl-end-of-1k-page): Doc fixes. (hexl-address-region, hexl-ascii-region, hexl-highlight-line-range): Fix typos in docstrings.
Diffstat (limited to 'lisp/hexl.el')
-rw-r--r--lisp/hexl.el20
1 files changed, 10 insertions, 10 deletions
diff --git a/lisp/hexl.el b/lisp/hexl.el
index f01e7dc21dd..39c313cb3da 100644
--- a/lisp/hexl.el
+++ b/lisp/hexl.el
@@ -87,12 +87,12 @@ Quoting cannot be used, so the arguments cannot themselves contain spaces."
(defface hexl-address-region
'((t (:inherit header-line)))
- "Face used in address are of hexl-mode buffer."
+ "Face used in address area of hexl-mode buffer."
:group 'hexl)
(defface hexl-ascii-region
'((t (:inherit header-line)))
- "Face used in ascii are of hexl-mode buffer."
+ "Face used in ascii area of hexl-mode buffer."
:group 'hexl)
(defvar hexl-max-address 0
@@ -455,7 +455,7 @@ This function is intended to be used as eldoc callback."
(defun hexl-goto-address (address)
"Goto hexl-mode (decimal) address ADDRESS.
-Signal error if ADDRESS out of range."
+Signal error if ADDRESS is out of range."
(interactive "nAddress: ")
(if (or (< address 0) (> address hexl-max-address))
(error "Out of hexl region"))
@@ -496,7 +496,7 @@ Signal error if HEX-ADDRESS is out of range."
(hexl-goto-address (- (hexl-current-address) arg)))
(defun hexl-forward-char (arg)
- "Move right ARG bytes (left if ARG negative) in hexl-mode."
+ "Move to right ARG bytes (left if ARG negative) in hexl-mode."
(interactive "p")
(hexl-goto-address (+ (hexl-current-address) arg)))
@@ -535,7 +535,7 @@ Signal error if HEX-ADDRESS is out of range."
address)))
(defun hexl-forward-short (arg)
- "Move right ARG shorts (left if ARG negative) in hexl-mode."
+ "Move to right ARG shorts (left if ARG negative) in hexl-mode."
(interactive "p")
(hexl-backward-short (- arg)))
@@ -574,13 +574,13 @@ Signal error if HEX-ADDRESS is out of range."
address)))
(defun hexl-forward-word (arg)
- "Move right ARG words (left if ARG negative) in hexl-mode."
+ "Move to right ARG words (left if ARG negative) in hexl-mode."
(interactive "p")
(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."
+If there is no byte at the target address move to the last byte in that line."
(interactive "p")
(hexl-next-line (- arg)))
@@ -666,12 +666,12 @@ If there's no byte at the target address, move to the first or last line."
(recenter 0)))
(defun hexl-beginning-of-1k-page ()
- "Go to beginning of 1k boundary."
+ "Go to beginning of 1KB boundary."
(interactive)
(hexl-goto-address (logand (hexl-current-address) -1024)))
(defun hexl-end-of-1k-page ()
- "Go to end of 1k boundary."
+ "Go to end of 1KB boundary."
(interactive)
(hexl-goto-address (let ((address (logior (hexl-current-address) 1023)))
(if (> address hexl-max-address)
@@ -968,7 +968,7 @@ Customize the variable `hexl-follow-ascii' to disable this feature."
(defun hexl-highlight-line-range ()
"Return the range of address region for the point.
-This function is assumed to be used as call back function for `hl-line-mode'."
+This function is assumed to be used as callback function for `hl-line-mode'."
(cons
(line-beginning-position)
;; 9 stands for (length "87654321:")