(compilation-start): In the no-async-subprocesses branch, fontify

[gnu-emacs] / lisp / hexl.el

diff --git a/lisp/hexl.el b/lisp/hexl.el
index 66aceeaee7120da50235bc7b5c727c0cf483f947..cc36c37602ea2a4bde8b4a975330e6fb47c32bd5 100644 (file)
--- a/lisp/hexl.el
+++ b/lisp/hexl.el
@@ -900,7 +900,6 @@ Customize the variable `hexl-follow-ascii' to disable this feature."
 (defun hexl-follow-line ()
   "Activate `hl-line-mode'"
   (require 'frame)
-  (require 'fringe)
   (require 'hl-line)
   (set (make-local-variable 'hl-line-range-function)
        'hexl-highlight-line-range)
@@ -927,11 +926,8 @@ This function is assumed to be used as call back function for `hl-line-mode'."
 (defun hexl-mode-ruler ()
   "Return a string ruler for hexl mode."
   (let* ((highlight (mod (hexl-current-address) 16))
-        (s "87654321  0011 2233 4455 6677 8899 aabb ccdd eeff  0123456789abcdef")
-        (pos 0)
-        (spaces (+ (scroll-bar-columns 'left) 
-                   (fringe-columns 'left)
-                   (or (car (window-margins)) 0))))
+        (s " 87654321  0011 2233 4455 6677 8899 aabb ccdd eeff  0123456789abcdef")
+        (pos 0))
     (set-text-properties 0 (length s) nil s)
     ;; Turn spaces in the header into stretch specs so they work
     ;; regardless of the header-line face.
@@ -939,21 +935,16 @@ This function is assumed to be used as call back function for `hl-line-mode'."
       (setq pos (match-end 0))
       (put-text-property (match-beginning 0) pos 'display
                         ;; Assume fixed-size chars
-                        `(space :align-to (+ (scroll-bar . left)
-                                             left-fringe left-margin
-                                             ,pos))
+                        `(space :align-to ,(1- pos))
                         s))
     ;; Highlight the current column.
-    (put-text-property (+ 10 (/ (* 5 highlight) 2))
-                      (+ 12 (/ (* 5 highlight) 2))
+    (put-text-property (+ 11 (/ (* 5 highlight) 2))
+                      (+ 13 (/ (* 5 highlight) 2))
                       'face 'highlight s)
     ;; Highlight the current ascii column
-    (put-text-property (+ 12 39 highlight) (+ 12 40 highlight)
+    (put-text-property (+ 13 39 highlight) (+ 13 40 highlight)
                       'face 'highlight s)
-    ;; Add the leading space.
-    (concat (propertize (make-string (floor spaces) ? )
-                       'display `(space :width ,spaces))
-           s)))
+    s))
 
 ;; startup stuff.