/[emacs]/emacs/lisp/hexl.el
ViewVC logotype

Diff of /emacs/lisp/hexl.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.88 by kfstorm, Fri Mar 19 10:40:46 2004 UTC revision 1.89 by rms, Sun Jun 13 21:58:41 2004 UTC
# Line 217  You can use \\[hexl-find-file] to visit Line 217  You can use \\[hexl-find-file] to visit
217          (set-buffer-modified-p modified))          (set-buffer-modified-p modified))
218        (make-local-variable 'hexl-max-address)        (make-local-variable 'hexl-max-address)
219        (setq hexl-max-address max-address)        (setq hexl-max-address max-address)
220        (hexl-goto-address original-point))        (condition-case nil
221              (hexl-goto-address original-point)
222            (error nil)))
223    
224      ;; We do not turn off the old major mode; instead we just      ;; We do not turn off the old major mode; instead we just
225      ;; override most of it.  That way, we can restore it perfectly.      ;; override most of it.  That way, we can restore it perfectly.
# Line 405  This function is indented to be used as Line 407  This function is indented to be used as
407  Signal error if ADDRESS out of range."  Signal error if ADDRESS out of range."
408    (interactive "nAddress: ")    (interactive "nAddress: ")
409    (if (or (< address 0) (> address hexl-max-address))    (if (or (< address 0) (> address hexl-max-address))
410            (error "Out of hexl region"))        (error "Out of hexl region"))
411    (goto-char (hexl-address-to-marker address)))    (goto-char (hexl-address-to-marker address)))
412    
413  (defun hexl-goto-hex-address (hex-address)  (defun hexl-goto-hex-address (hex-address)

Legend:
Removed from v.1.88  
changed lines
  Added in v.1.89

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26