(hexl-insert-multibyte-char, hexl-insert-char): Remove

periods from the end of error message strings.  From Pavel
Janik <Pavel@Janik.cz>.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 21bb10ea37394cf20f0785432dd85a33d90b4316..4f61cab76b4f595ef6a16a350a5bc9eecc573628 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,9 @@
 2001-08-26  Eli Zaretskii  <eliz@is.elta.co.il>
 
+       * hexl.el (hexl-insert-multibyte-char, hexl-insert-char): Remove
+       periods from the end of error message strings.  From Pavel
+       Jan\e,Bm\e(Bk <Pavel@Janik.cz>.
+
        * progmodes/antlr-mode.el: Add Keywords header.  From Pavel
        Jan\e,Bm\e(Bk <Pavel@Janik.cz>.
 

diff --git a/lisp/hexl.el b/lisp/hexl.el
index ca08405cd107ff9db1df797bc20b25a9bc7258a5..1f65ca8309e5a504309873b3f8d74d5a1073a0ce 100644 (file)
--- a/lisp/hexl.el
+++ b/lisp/hexl.el
@@ -703,7 +703,7 @@ and their encoded form is inserted byte by byte."
           (hexl-insert-char ch num))
          ((eq charset 'unknown)
           (error
-           "0x%x -- invalid character code; use \\[hexl-insert-hex-string]."
+           "0x%x -- invalid character code; use \\[hexl-insert-hex-string]"
            ch))
          (t
           (let ((encoded (encode-coding-char ch coding))
@@ -723,7 +723,7 @@ and their encoded form is inserted byte by byte."
                     ch internal-hex))
                   (setq encoded internal)
                 (error
-                 "Can't encode `0x%x' with this buffer's coding system; try \\[hexl-insert-hex-string]."
+                 "Can't encode `0x%x' with this buffer's coding system; try \\[hexl-insert-hex-string]"
                  ch)))
             (while (> num 0)
               (mapc
@@ -744,7 +744,7 @@ and their encoded form is inserted byte by byte."
 
 CH must be a unibyte character whose value is between 0 and 255."
   (if (or (< ch 0) (> ch 255))
-      (error "Invalid character 0x%x -- must be in the range [0..255]."))
+      (error "Invalid character 0x%x -- must be in the range [0..255]"))
   (let ((address (hexl-current-address t)))
     (while (> num 0)
       (let ((hex-position