diff options
| author | Gerd Moellmann <gerd@gnu.org> | 2001-05-14 13:17:30 +0000 |
|---|---|---|
| committer | Gerd Moellmann <gerd@gnu.org> | 2001-05-14 13:17:30 +0000 |
| commit | 446f0345e9d26d6fd9334e596c95c2c0b89957c0 (patch) | |
| tree | 73ca4be1204744a629cf4bd4844899b5a17e064d /lisp/hexl.el | |
| parent | bf74cfef1cdcefdf201beaa6eb5da2a9de4f6182 (diff) | |
| download | emacs-446f0345e9d26d6fd9334e596c95c2c0b89957c0.tar.gz | |
(hexl-current-address): Print a message when called
interactively.
Diffstat (limited to 'lisp/hexl.el')
| -rw-r--r-- | lisp/hexl.el | 4 |
1 files changed, 3 insertions, 1 deletions
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) |