diff options
| author | Masatake YAMATO <jet@gyve.org> | 2004-03-15 07:27:02 +0000 |
|---|---|---|
| committer | Masatake YAMATO <jet@gyve.org> | 2004-03-15 07:27:02 +0000 |
| commit | 9fd76d04e8b93bb6116dffe49b8fdabdac71286f (patch) | |
| tree | fe6d8918286e794fb0f8cd66991abf78f3c4f180 /lisp/fringe.el | |
| parent | 6e54fa536d7848031898ae11a228d40ca2c81a61 (diff) | |
| download | emacs-9fd76d04e8b93bb6116dffe49b8fdabdac71286f.tar.gz | |
2004-03-15 Masatake YAMATO <jet@gyve.org>
* hl-line.el (hl-line-range-function): New variable.
(hl-line-move): New function.
(global-hl-line-highlight): Use `hl-line-move'.
(hl-line-highlight): Ditto.
* scroll-bar.el (scroll-bar-columns): New function derived from
ruler-mode.el.
* fringe.el (fringe-columns): New function derived from
ruler-mode.el.
* ruler-mode.el (top-level): Require scroll-bar and fringe.
(ruler-mode-left-fringe-cols)
(ruler-mode-right-fringe-cols): Use `fringe-columns'.
(ruler-mode-right-scroll-bar-cols)
(ruler-mode-left-scroll-bar-cols): Use `scroll-bar-columns'.
(ruler-mode-ruler-function): New variable.
(ruler-mode-header-line-format): Call `ruler-mode-ruler-function'
if the value for `ruler-mode-ruler-function'is given.
* hexl.el (hexl-mode-hook): Make the hook customizable.
(hexl-address-area, hexl-ascii-area, hexl-ascii-cursor): New
customize variables.
(hexlify-buffer): Put font-lock-faces on the address area and
the ascii area.
(hexl-activate-ruler): New function.
(hexl-follow-line): New function.
(hexl-highlight-line-range): New function.
(hexl-mode-ruler): New function.
Diffstat (limited to 'lisp/fringe.el')
| -rw-r--r-- | lisp/fringe.el | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/lisp/fringe.el b/lisp/fringe.el index ab7709332f5..f52ecdf64d2 100644 --- a/lisp/fringe.el +++ b/lisp/fringe.el @@ -218,6 +218,17 @@ default appearance of fringes on all frames, see the command (list (cons 'left-fringe (if (consp mode) (car mode) mode)) (cons 'right-fringe (if (consp mode) (cdr mode) mode))))) +(defsubst fringe-columns (side &optional real) + "Return the width, measured in columns, of the fringe area on SIDE. +If optional argument REAL is non-nil, return a real floating point +number instead of a rounded integer value. +SIDE must be the symbol `left' or `right'." + (funcall (if real '/ 'ceiling) + (or (funcall (if (eq side 'left) 'car 'cadr) + (window-fringes)) + 0) + (float (frame-char-width)))) + (provide 'fringe) ;;; arch-tag: 6611ef60-0869-47ed-8b93-587ee7d3ff5d |