Mercurial > emacs

comparison 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
comparison
equal deleted inserted replaced
3215:8463158ec42e 3216:85f44565e821
498 (interactive) 498 (interactive)
499 (shell-command-on-region (point-min) (point-max) dehexlify-command t)) 499 (shell-command-on-region (point-min) (point-max) dehexlify-command t))
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."
509 (+ (* (hexl-hex-char-to-integer lh) 16) 508 (+ (* (hexl-hex-char-to-integer lh) 16)
510 (hexl-hex-char-to-integer rh))) 509 (hexl-hex-char-to-integer rh)))