diff options
| -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 a4e9792dc6b..413344fc375 100644 --- a/lisp/hexl.el +++ b/lisp/hexl.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; hexl.el --- edit a file in a hex dump format using the hexl filter | 1 | ;;; hexl.el --- edit a file in a hex dump format using the hexl filter |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1989, 1994, 1998, 2001, 2002, 2003 Free Software Foundation, Inc. | 3 | ;; Copyright (C) 1989, 1994, 1998, 2001, 2002, 2003, 2004 Free Software Foundation, Inc. |
| 4 | 4 | ||
| 5 | ;; Author: Keith Gabryelski <ag@wheaties.ai.mit.edu> | 5 | ;; Author: Keith Gabryelski <ag@wheaties.ai.mit.edu> |
| 6 | ;; Maintainer: FSF | 6 | ;; Maintainer: FSF |
| @@ -742,7 +742,7 @@ and their encoded form is inserted byte by byte." | |||
| 742 | 742 | ||
| 743 | CH must be a unibyte character whose value is between 0 and 255." | 743 | CH must be a unibyte character whose value is between 0 and 255." |
| 744 | (if (or (< ch 0) (> ch 255)) | 744 | (if (or (< ch 0) (> ch 255)) |
| 745 | (error "Invalid character 0x%x -- must be in the range [0..255]")) | 745 | (error "Invalid character 0x%x -- must be in the range [0..255]" ch)) |
| 746 | (let ((address (hexl-current-address t))) | 746 | (let ((address (hexl-current-address t))) |
| 747 | (while (> num 0) | 747 | (while (> num 0) |
| 748 | (let ((hex-position | 748 | (let ((hex-position |