|
From: | Kim F. Storm |
Subject: | Alternative fringe bitmaps for continuation/truncation |
Date: | Sun, 27 Apr 2008 18:59:37 +0200 |
User-agent: | Gnus/5.11 (Gnus v5.11) Emacs/22.1.92 (gnu/linux) |
If you don't like the current "fat (curly) arrows" bitmaps used in the fringe for continuation and truncation lines, the following more modest bitmaps may be more appealing. (define-fringe-bitmap 'right-truncation "\xa9\x02\x04" nil nil 'bottom) (define-fringe-bitmap 'left-truncation "\x20\x40\xaa\0\0" nil nil 'bottom) (define-fringe-bitmap 'right-continuation "\xa8\0\0" nil nil 'bottom) (define-fringe-bitmap 'left-continuation "\x2a\0\0" nil nil 'bottom) (let ((tr (assoc 'truncation default-fringe-indicator-alist)) (co (assoc 'continuation default-fringe-indicator-alist))) (if tr (setcdr tr '(left-truncation right-truncation))) (if co (setcdr co '(left-continuation right-continuation)))) WDYT? ++Kim
[Prev in Thread] | Current Thread | [Next in Thread] |