Mercurial > emacs
comparison lisp/hexl.el @ 53861:8af44ca54bdf
(hexl-insert-char): Add missing format string argument.
| author | Andreas Schwab <schwab@suse.de> |
|---|---|
| date | Sun, 08 Feb 2004 22:36:31 +0000 |
| parents | 695cf19ef79e |
| children | f4b54db9c8ae |
comparison
equal
deleted
inserted
replaced
| 53860:a119a19bb7b3 | 53861:8af44ca54bdf |
|---|---|
| 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 |
| 7 ;; Keywords: data | 7 ;; Keywords: data |
| 8 | 8 |
| 740 (defun hexl-insert-char (ch num) | 740 (defun hexl-insert-char (ch num) |
| 741 "Insert the character CH NUM times in a hexl buffer. | 741 "Insert the character CH NUM times in a hexl buffer. |
| 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 |
| 749 (+ (* (/ address 16) 68) | 749 (+ (* (/ address 16) 68) |
| 750 10 (point-min) | 750 10 (point-min) |