Mercurial > emacs

changeset 54437:8c1cdd137199

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(hexl-mode-ruler): Adapt to new :align-to semantics.
author Kim F. Storm <storm@cua.dk>
date Fri, 19 Mar 2004 10:11:07 +0000
parents a4175dcaf506
children e22cc52c1823
files lisp/hexl.el
diffstat 1 files changed, 7 insertions(+), 15 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/hexl.el	Fri Mar 19 10:10:43 2004 +0000
+++ b/lisp/hexl.el	Fri Mar 19 10:11:07 2004 +0000
@@ -927,11 +927,8 @@
 (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 +936,16 @@
       (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.