diff options
| author | Richard M. Stallman | 1993-05-28 20:33:14 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1993-05-28 20:33:14 +0000 |
| commit | 686fc9abcba115c5c8027a1b884fe6f5c0b9bb10 (patch) | |
| tree | db3d8851cd449e9767cf366db1cf6f56ad100f46 /lisp | |
| parent | 57f07931186a7c38128c3e2472e57725ec22c9ec (diff) | |
| download | emacs-686fc9abcba115c5c8027a1b884fe6f5c0b9bb10.tar.gz emacs-686fc9abcba115c5c8027a1b884fe6f5c0b9bb10.zip | |
(hexl-char-after-point): Get rid of mistakenly free variables.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/hexl.el | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/lisp/hexl.el b/lisp/hexl.el index d561f4a7829..e8e5e430937 100644 --- a/lisp/hexl.el +++ b/lisp/hexl.el | |||
| @@ -500,9 +500,8 @@ You may also type up to 3 octal digits, to insert a character with that code" | |||
| 500 | 500 | ||
| 501 | (defun hexl-char-after-point () | 501 | (defun hexl-char-after-point () |
| 502 | "Return char for ASCII hex digits at point." | 502 | "Return char for ASCII hex digits at point." |
| 503 | (setq lh (char-after (point))) | 503 | (hexl-htoi (char-after (point)) |
| 504 | (setq rh (char-after (1+ (point)))) | 504 | (char-after (1+ (point))))) |
| 505 | (hexl-htoi lh rh)) | ||
| 506 | 505 | ||
| 507 | (defun hexl-htoi (lh rh) | 506 | (defun hexl-htoi (lh rh) |
| 508 | "Hex (char) LH (char) RH to integer." | 507 | "Hex (char) LH (char) RH to integer." |