[Emacs-diffs] Changes to emacs/lisp/hexl.el [lexbind]

[Miles Bader]

Index: emacs/lisp/hexl.el
diff -c emacs/lisp/hexl.el:1.72.2.5 emacs/lisp/hexl.el:1.72.2.6
*** emacs/lisp/hexl.el:1.72.2.5 Fri Mar 19 23:29:17 2004
--- emacs/lisp/hexl.el  Tue Jul  6 10:10:47 2004
***************
*** 217,223 ****
          (set-buffer-modified-p modified))
        (make-local-variable 'hexl-max-address)
        (setq hexl-max-address max-address)
!       (hexl-goto-address original-point))
  
      ;; We do not turn off the old major mode; instead we just
      ;; override most of it.  That way, we can restore it perfectly.
--- 217,225 ----
          (set-buffer-modified-p modified))
        (make-local-variable 'hexl-max-address)
        (setq hexl-max-address max-address)
!       (condition-case nil
!         (hexl-goto-address original-point)
!       (error nil)))
  
      ;; We do not turn off the old major mode; instead we just
      ;; override most of it.  That way, we can restore it perfectly.
***************
*** 405,411 ****
  Signal error if ADDRESS out of range."
    (interactive "nAddress: ")
    (if (or (< address 0) (> address hexl-max-address))
!         (error "Out of hexl region"))
    (goto-char (hexl-address-to-marker address)))
  
  (defun hexl-goto-hex-address (hex-address)
--- 407,413 ----
  Signal error if ADDRESS out of range."
    (interactive "nAddress: ")
    (if (or (< address 0) (> address hexl-max-address))
!       (error "Out of hexl region"))
    (goto-char (hexl-address-to-marker address)))
  
  (defun hexl-goto-hex-address (hex-address)