diff options
| author | Karl Heuer | 1996-01-29 23:16:11 +0000 |
|---|---|---|
| committer | Karl Heuer | 1996-01-29 23:16:11 +0000 |
| commit | cf6ba128571153b9f6bbd626a24c1f753ea1a0db (patch) | |
| tree | 33a489eb277a5ae6e15a6705a3695a69a5bda22a | |
| parent | f01d4b2db2832b9cecb0889b7af0abdc3c4bd6ec (diff) | |
| download | emacs-cf6ba128571153b9f6bbd626a24c1f753ea1a0db.tar.gz emacs-cf6ba128571153b9f6bbd626a24c1f753ea1a0db.zip | |
(hexl-hex-char-to-integer, hexl-oct-char-to-integer): Fix error format string.
| -rw-r--r-- | lisp/hexl.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/hexl.el b/lisp/hexl.el index 358b1f2ff39..ae071b68859 100644 --- a/lisp/hexl.el +++ b/lisp/hexl.el | |||
| @@ -584,13 +584,13 @@ You may also type up to 3 octal digits, to insert a character with that code" | |||
| 584 | (let ((ch (logior character 32))) | 584 | (let ((ch (logior character 32))) |
| 585 | (if (and (>= ch ?a) (<= ch ?f)) | 585 | (if (and (>= ch ?a) (<= ch ?f)) |
| 586 | (- ch (- ?a 10)) | 586 | (- ch (- ?a 10)) |
| 587 | (error (format "Invalid hex digit `%c'." ch)))))) | 587 | (error "Invalid hex digit `%c'." ch))))) |
| 588 | 588 | ||
| 589 | (defun hexl-oct-char-to-integer (character) | 589 | (defun hexl-oct-char-to-integer (character) |
| 590 | "Take a char and return its value as if it was a octal digit." | 590 | "Take a char and return its value as if it was a octal digit." |
| 591 | (if (and (>= character ?0) (<= character ?7)) | 591 | (if (and (>= character ?0) (<= character ?7)) |
| 592 | (- character ?0) | 592 | (- character ?0) |
| 593 | (error (format "Invalid octal digit `%c'." character)))) | 593 | (error "Invalid octal digit `%c'." character))) |
| 594 | 594 | ||
| 595 | (defun hexl-printable-character (ch) | 595 | (defun hexl-printable-character (ch) |
| 596 | "Return a displayable string for character CH." | 596 | "Return a displayable string for character CH." |