# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 738621194 0
# Node ID 85f44565e821c148a9991878aa1100a55a76f689
# Parent  8463158ec42e472c54987cb48e4b47d55a1a8e0e
(hexl-char-after-point): Get rid of mistakenly free variables.

diff -r 8463158ec42e -r 85f44565e821 lisp/hexl.el
--- a/lisp/hexl.el	Fri May 28 20:30:49 1993 +0000
+++ b/lisp/hexl.el	Fri May 28 20:33:14 1993 +0000
@@ -500,9 +500,8 @@
 
 (defun hexl-char-after-point ()
   "Return char for ASCII hex digits at point."
-  (setq lh (char-after (point)))
-  (setq rh (char-after (1+ (point))))
-  (hexl-htoi lh rh))
+  (hexl-htoi (char-after (point))
+	     (char-after (1+ (point)))))
 
 (defun hexl-htoi (lh rh)
   "Hex (char) LH (char) RH to integer."