From 19e31f7cf92f933b50a13c97a5a940654595341a Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 9 May 1997 21:58:00 +0000 Subject: [PATCH] Add a `provide' call. Delete periods from many error messages. --- lisp/hexl.el | 14 ++++++++------ 1 file changed, 8 insertions(+), 6 deletions(-) diff --git a/lisp/hexl.el b/lisp/hexl.el index b2234d4000c..19de8c04f3b 100644 --- a/lisp/hexl.el +++ b/lisp/hexl.el @@ -341,7 +341,7 @@ Ask the user for confirmation." Signal error if ADDRESS out of range." (interactive "nAddress: ") (if (or (< address 0) (> address hexl-max-address)) - (error "Out of hexl region.")) + (error "Out of hexl region")) (goto-char (hexl-address-to-marker address))) (defun hexl-goto-hex-address (hex-address) @@ -615,13 +615,13 @@ This discards the buffer's undo information." (let ((ch (logior character 32))) (if (and (>= ch ?a) (<= ch ?f)) (- ch (- ?a 10)) - (error "Invalid hex digit `%c'." ch))))) + (error "Invalid hex digit `%c'" ch))))) (defun hexl-oct-char-to-integer (character) "Take a char and return its value as if it was a octal digit." (if (and (>= character ?0) (<= character ?7)) (- character ?0) - (error "Invalid octal digit `%c'." character))) + (error "Invalid octal digit `%c'" character))) (defun hexl-printable-character (ch) "Return a displayable string for character CH." @@ -675,7 +675,7 @@ This discards the buffer's undo information." (interactive "p") (let ((num (hexl-hex-string-to-integer (read-string "Hex number: ")))) (if (or (> num 255) (< num 0)) - (error "Hex number out of range.") + (error "Hex number out of range") (hexl-insert-char num arg)))) (defun hexl-insert-decimal-char (arg) @@ -683,7 +683,7 @@ This discards the buffer's undo information." (interactive "p") (let ((num (string-to-int (read-string "Decimal Number: ")))) (if (or (> num 255) (< num 0)) - (error "Decimal number out of range.") + (error "Decimal number out of range") (hexl-insert-char num arg)))) (defun hexl-insert-octal-char (arg) @@ -691,7 +691,7 @@ This discards the buffer's undo information." (interactive "p") (let ((num (hexl-octal-string-to-integer (read-string "Octal Number: ")))) (if (or (> num 255) (< num 0)) - (error "Decimal number out of range.") + (error "Decimal number out of range") (hexl-insert-char num arg)))) ;; startup stuff. @@ -803,4 +803,6 @@ This discards the buffer's undo information." (define-key hexl-mode-map "\C-x\C-s" 'hexl-save-buffer) (define-key hexl-mode-map "\C-x\C-t" 'undefined)) +(provide 'hexl) + ;;; hexl.el ends here -- 2.39.2