comparison lisp/hexl.el @ 54275:f4b54db9c8ae

(hexl-mode): Set `hexl-print-current-point-info' as the callback function for eldoc. (hexl-print-current-point-info): New function. (hexl-current-address): print the address in both decimal and hexadecimal format.

54274:d41dd3d19ce4

;; -iso in `hexl-options' will allow iso characters to display in the
;; ASCII region of the screen (if your emacs supports this) instead of
;; changing them to dots.

;;; Code:

;;
;; vars here
;;

    ;; Add hooks to rehexlify or dehexlify on various events.
    (add-hook 'after-revert-hook 'hexl-after-revert-hook nil t)

    (add-hook 'change-major-mode-hook 'hexl-maybe-dehexlify-buffer nil t)

    (if hexl-follow-ascii (hexl-follow-ascii 1)))
  (run-hooks 'hexl-mode-hook))


(defun hexl-isearch-search-function ()

	  (+ (* (/ (- (point) (point-min) -1) 68) 16)
	     (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)
  "Return buffer position for ADDRESS."
  (interactive "nAddress: ")
  (+ (* (/ address 16) 68) 10 (point-min) (/ (* (% address 16) 5) 2)))

54275:f4b54db9c8ae

;; -iso in `hexl-options' will allow iso characters to display in the
;; ASCII region of the screen (if your emacs supports this) instead of
;; changing them to dots.

;;; Code:

(require 'eldoc)

;;
;; vars here
;;

    ;; Add hooks to rehexlify or dehexlify on various events.
    (add-hook 'after-revert-hook 'hexl-after-revert-hook nil t)

    (add-hook 'change-major-mode-hook 'hexl-maybe-dehexlify-buffer nil t)

    ;; Set a callback function for eldoc.
    (set (make-variable-buffer-local 'eldoc-print-current-symbol-info-function)
	 'hexl-print-current-point-info)
    (eldoc-add-command-completions "hexl-")
    (eldoc-remove-command "hexl-save-buffer" 
			  "hexl-current-address")

    (if hexl-follow-ascii (hexl-follow-ascii 1)))
  (run-hooks 'hexl-mode-hook))


(defun hexl-isearch-search-function ()

	  (+ (* (/ (- (point) (point-min) -1) 68) 16)
	     (if (>= current-column 41)
		 (- current-column 41)
	       (/ (- current-column  (/ current-column 5)) 2))))
    (when (interactive-p)
      (message "Current address is %d/0x%08x" hexl-address hexl-address))
    hexl-address))

(defun hexl-print-current-point-info ()
  "Return current hexl-address in string.
This function is indented to be used as eldoc callback."
  (let ((addr (hexl-current-address)))
    (format "Current address is %d/0x%08x" addr addr)))

(defun hexl-address-to-marker (address)
  "Return buffer position for ADDRESS."
  (interactive "nAddress: ")
  (+ (* (/ address 16) 68) 10 (point-min) (/ (* (% address 16) 5) 2)))