Mercurial > emacs

diff lisp/hexl.el @ 3216:85f44565e821

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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 f457e67ddb6b
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."