Mercurial > emacs
view lisp/sb-tag-plus.xpm @ 56838:c1345747d0db
(cua--rectangle-padding): Remove.
(cua--rectangle-virtual-edges): New defun.
(cua--rectangle-get-corners): Remove optional PAD arg.
(cua--rectangle-set-corners): Never do padding.
(cua--forward-line): Remove optional PAD arg. Simplify.
(cua-resize-rectangle-right, cua-resize-rectangle-left)
(cua-resize-rectangle-down, cua-resize-rectangle-up):
(cua-resize-rectangle-bot, cua-resize-rectangle-top)
(cua-resize-rectangle-page-up, cua-resize-rectangle-page-down)
(cua--rectangle-move): Never do padding. Simplify.
(cua--tabify-start): New defun.
(cua--rectangle-operation): Add tabify arg. All callers changed.
(cua--pad-rectangle): Remove.
(cua--delete-rectangle): Handle delete with virtual edges.
(cua--extract-rectangle): Add spaces if rectangle has virtual edges.
(cua--insert-rectangle): Handle insert at virtual column.
Perform auto-tabify if necessary.
(cua--activate-rectangle): Remove optional FORCE arg.
Never do padding. Simplify.
(cua--highlight-rectangle): Enhance for virtual edges.
(cua-toggle-rectangle-padding): Remove command.
(cua-toggle-rectangle-virtual-edges): New command.
(cua-sequence-rectangle): Add optional TABIFY arg. Callers changed.
(cua--rectangle-post-command): Don't force rectangle padding.
(cua--init-rectangles): Bind M-p to cua-toggle-rectangle-virtual-edges.
| author | Kim F. Storm <storm@cua.dk> |
|---|---|
| date | Sun, 29 Aug 2004 20:57:19 +0000 |
| parents | c2a09ac7b7b1 |
| children |
line wrap: on
line source
/* XPM */ static char * sb_tag_plus_xpm[] = { "20 15 5 1", " c None", ". c #B8B8B8", "+ c #000000", "@ c #FFF993", "# c #828282", " ", " ", " .............. ", " .++++++++++++++. ", " .+@@@@@@@@@@@@@@+#", " .+@@@@@@+@@@@@@@@+#", ".+@@@@@@@+.@@@@@@@+#", ".+@++@@+++++@@@@@@+#", ".+@++@@@.+...@@@@@+#", ".+@@@@@@@+.@@@@@@@+#", " #+@@@@@@@.@@@@@@@+#", " #+@@@@@@@@@@@@@@+#", " #++++++++++++++# ", " ############## ", " "};