From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 13 Jun 2004 21:58:41 +0000 (+0000)
Subject: (hexl-mode): Catch errors in hexl-goto-address.
X-Git-Tag: ttn-vms-21-2-B4~5788
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=55391f5e9daed3a9ac4333501fcd7c59de9eab7f;p=emacs.git

(hexl-mode): Catch errors in hexl-goto-address.
---

diff --git a/lisp/hexl.el b/lisp/hexl.el
index cc36c37602e..883700933a8 100644
--- a/lisp/hexl.el
+++ b/lisp/hexl.el
@@ -217,7 +217,9 @@ You can use \\[hexl-find-file] to visit a file in Hexl mode.
         (set-buffer-modified-p modified))
       (make-local-variable 'hexl-max-address)
       (setq hexl-max-address max-address)
-      (hexl-goto-address original-point))
+      (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,7 +407,7 @@ This function is indented to be used as eldoc callback."
 Signal error if ADDRESS out of range."
   (interactive "nAddress: ")
   (if (or (< address 0) (> address hexl-max-address))
-	  (error "Out of hexl region"))
+      (error "Out of hexl region"))
   (goto-char (hexl-address-to-marker address)))
 
 (defun hexl-goto-hex-address (hex-address)