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

[Masatake YAMATO]

Index: emacs/lisp/hexl.el
diff -c emacs/lisp/hexl.el:1.99 emacs/lisp/hexl.el:1.100
*** emacs/lisp/hexl.el:1.99     Sat Aug  6 22:13:43 2005
--- emacs/lisp/hexl.el  Wed Aug 10 18:15:50 2005
***************
*** 85,96 ****
    :options '(hexl-follow-line hexl-activate-ruler turn-on-eldoc-mode)
    :group 'hexl)
  
! (defface hexl-address-area
    '((t (:inherit header-line)))
    "Face used in address are of hexl-mode buffer."
    :group 'hexl)
  
! (defface hexl-ascii-area
    '((t (:inherit header-line)))
    "Face used in ascii are of hexl-mode buffer."
    :group 'hexl)
--- 85,96 ----
    :options '(hexl-follow-line hexl-activate-ruler turn-on-eldoc-mode)
    :group 'hexl)
  
! (defface hexl-address-region
    '((t (:inherit header-line)))
    "Face used in address are of hexl-mode buffer."
    :group 'hexl)
  
! (defface hexl-ascii-region
    '((t (:inherit header-line)))
    "Face used in ascii are of hexl-mode buffer."
    :group 'hexl)
***************
*** 121,128 ****
  (defvar hexl-font-lock-keywords
    '(("^\\([0-9a-f]+:\\).\\{40\\}  \\(.+$\\)"
       ;; "^\\([0-9a-f]+:\\).+  \\(.+$\\)"
!      (1 'hexl-address-area t t)
!      (2 'hexl-ascii-area t t)))
    "Font lock keywords used in `hexl-mode'.")
  
  ;; routines
--- 121,128 ----
  (defvar hexl-font-lock-keywords
    '(("^\\([0-9a-f]+:\\).\\{40\\}  \\(.+$\\)"
       ;; "^\\([0-9a-f]+:\\).+  \\(.+$\\)"
!      (1 'hexl-address-region t t)
!      (2 'hexl-ascii-region t t)))
    "Font lock keywords used in `hexl-mode'.")
  
  ;; routines
***************
*** 935,941 ****
    (hl-line-mode 1))
  
  (defun hexl-highlight-line-range ()
!   "Return the range of address area for the point.
  This function is assumed to be used as call back function for `hl-line-mode'."
    (cons
     (line-beginning-position)
--- 935,941 ----
    (hl-line-mode 1))
  
  (defun hexl-highlight-line-range ()
!   "Return the range of address region for the point.
  This function is assumed to be used as call back function for `hl-line-mode'."
    (cons
     (line-beginning-position)