mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-02-08 20:58:58 +00:00
Code Issues Releases Activity

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

Browse Source 
periods from the end of error message strings.  From Pavel
Janik <Pavel@Janik.cz>.
This commit is contained in:
Eli Zaretskii 2001-08-26 16:40:03 +00:00
parent 299248aa62
commit 165b428351
2 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/ChangeLog
View File

@ -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,Bm(Bk <Pavel@Janik.cz>.
* progmodes/antlr-mode.el: Add Keywords header. From Pavel
Jan,Bm(Bk <Pavel@Janik.cz>.

6
lisp/hexl.el
View File

@ -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