-
Notifications
You must be signed in to change notification settings - Fork 0
/
align.elc
23 lines (19 loc) · 1.66 KB
/
align.elc
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
;ELC
;;; Compiled by [email protected] on Fri Oct 1 12:29:21 2010
;;; from file /Users/oceanhug/.emacs.d/align.el
;;; in Emacs version 22.3.1
;;; with all optimizations.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
(if (and (boundp 'emacs-version)
(< (aref emacs-version (1- (length emacs-version))) ?A)
(or (and (boundp 'epoch::version) epoch::version)
(string-lessp emacs-version "19.29")))
(error "`align.el' was compiled for Emacs 19.29 or later"))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
#@154 Align text between point and mark as columns.
Columns are separated by whitespace characters.
Prefix arg means align that many columns. (default is all)
(defalias 'align-cols #[(start end max-cols) "\212\306\211\211\211 \247\205 \307 S]\306\211 b\210W\203\254 \310 \210\307\212\306\210`)\311\312\313#\210i\n@\204J C\202T \n@]C\nA \203^ \f W\202_ \313\203\217 \311\314\313#\203\217 \fTiZi\n@\204\202 B\202T \n@] B\nA\202T \n\203\237 \n@ B\nA\211\204\223 \237\306y\210`\211\202! \315\n!\212b\210\310 \210`)b\210\310 \210Y\205V\310 \210\307\212\306\210`)\311\312\313#\210\307\225b\210\f 8iW\203\364 \316\317\320\"\210\202\345 \212\306\210`) \203\f W\202\313\203<\311\314\313#\203<\fT\f 8\\\307\225b\210iW\2031\316\317\320\"\210\202\"\212\306\210`)\202\374 \321y\210eU\203OS\211\202\303 `\211\202\303 . \207" [start max-cols ref-list pos-list count word nil 0 beginning-of-line re-search-forward "^\\s-*" t "\\s-+" copy-sequence insert-char 32 1 -1 end-of-line pos p end] 9 (#$ . 588) "r\nP"])
(provide 'align)