[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: use of symbolic display elements in ruler-mode

From: Kim F. Storm
Subject: Re: use of symbolic display elements in ruler-mode
Date: 19 Mar 2004 02:50:37 +0100
User-agent: Gnus/5.09 (Gnus v5.9.0) Emacs/21.3.50

David PONCE <address@hidden> writes:

> Hi Stefan,
> > Why not just:
> > 
> > (defvar ruler-mode-ruler-function 'ruler-mode-ruler
> >   "Function to call to return ruler string.")
> > (defconst ruler-mode-header-line-format
> >   '(:eval (funcall ruler-mode-ruler-function))
> >    "`header-line-format' used in ruler mode.")
> Of course!  Here is a new patch.

I just installed some changes to the :align-to and :width space
display properties.  And added support for non-window systems.

Specifically, (scroll-bar . x) and (*-fringe . x) no longer exists.
Instead, you have to include scroll-bar and *-fringe in the
proper spots yourself.

Note that you can include nil in the header-line-format list,
as long as the first element of the list is a string (just put ""

Something like:

   Replace lsb and rsb by:

          (sb (ruler-mode-space 'scroll-bar
                                 'face 'ruler-mode-pad-face))

   and use

     (if (nth 2 (window-fringes))
         ;; fringes outside margins.
         (list "" (and (eq scroll-bar-mode 'left) sb) lf lm
               ruler rm rf (and (eq scroll-bar-mode 'right) sb))
       ;; fringes inside margins.
       (list "" (and (eq scroll-bar-mode 'left) sb) lm lf 
             ruler rf rm (and (eq scroll-bar-mode 'right) sb)))))

Kim F. Storm <address@hidden> http://www.cua.dk

reply via email to

[Prev in Thread] Current Thread [Next in Thread]