From: Gerd Moellmann <gerd@gnu.org>
Date: Mon, 14 May 2001 13:17:30 +0000 (+0000)
Subject: (hexl-current-address): Print a message when called
X-Git-Tag: emacs-pretest-21.0.104~509
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=48f56596d5278bdd041d3929165b818630ced048;p=emacs.git

(hexl-current-address): Print a message when called
interactively.
---

diff --git a/lisp/hexl.el b/lisp/hexl.el
index a2ddded9fe3..f4f2d21c098 100644
--- a/lisp/hexl.el
+++ b/lisp/hexl.el
@@ -1,6 +1,6 @@
 ;;; hexl.el --- edit a file in a hex dump format using the hexl filter.
 
-;; Copyright (C) 1989, 1994, 1998 Free Software Foundation, Inc.
+;; Copyright (C) 1989, 1994, 1998, 2001 Free Software Foundation, Inc.
 
 ;; Author: Keith Gabryelski <ag@wheaties.ai.mit.edu>
 ;; Maintainer: FSF
@@ -347,6 +347,8 @@ Ask the user for confirmation."
 	     (if (>= current-column 41)
 		 (- current-column 41)
 	       (/ (- current-column  (/ current-column 5)) 2))))
+    (when (interactive-p)
+      (message "Current address is %d" hexl-address))
     hexl-address))
 
 (defun hexl-address-to-marker (address)