changeset 3216:85f44565e821

(hexl-char-after-point): Get rid of mistakenly free variables.
author Richard M. Stallman <rms@gnu.org>
date Fri, 28 May 1993 20:33:14 +0000
parents 8463158ec42e
children 9a682e5f5b53
files lisp/hexl.el
diffstat 1 files changed, 2 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- 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."