diff options
| author | Juanma Barranquero | 2005-07-04 01:53:04 +0000 |
|---|---|---|
| committer | Juanma Barranquero | 2005-07-04 01:53:04 +0000 |
| commit | 0c5a1b51ed44edfd13c8429c9054dafe7f6e7724 (patch) | |
| tree | 5d9974871e6cff17410ba370cd4fd5c4f1ae2e43 | |
| parent | a6bd541a051795531f610761a09e19f7a54bffc0 (diff) | |
| download | emacs-0c5a1b51ed44edfd13c8429c9054dafe7f6e7724.tar.gz emacs-0c5a1b51ed44edfd13c8429c9054dafe7f6e7724.zip | |
(columns): Finish `defgroup' description with period.
(delimit-columns-rectangle-line): "?\ " -> "?\s".
| -rw-r--r-- | lisp/delim-col.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/delim-col.el b/lisp/delim-col.el index b5be7ff4ebc..04cd90961a1 100644 --- a/lisp/delim-col.el +++ b/lisp/delim-col.el | |||
| @@ -125,7 +125,7 @@ | |||
| 125 | ;; User Options: | 125 | ;; User Options: |
| 126 | 126 | ||
| 127 | (defgroup columns nil | 127 | (defgroup columns nil |
| 128 | "Prettify columns" | 128 | "Prettify columns." |
| 129 | :link '(emacs-library-link :tag "Source Lisp File" "delim-col.el") | 129 | :link '(emacs-library-link :tag "Source Lisp File" "delim-col.el") |
| 130 | :prefix "delimit-columns-" | 130 | :prefix "delimit-columns-" |
| 131 | :group 'internal) | 131 | :group 'internal) |
| @@ -424,13 +424,13 @@ START and END delimits the corners of text rectangle." | |||
| 424 | (and delimit-columns-format | 424 | (and delimit-columns-format |
| 425 | (make-string (- (aref delimit-columns-max ncol) | 425 | (make-string (- (aref delimit-columns-max ncol) |
| 426 | (- (current-column) origin)) | 426 | (- (current-column) origin)) |
| 427 | ?\ ))) | 427 | ?\s))) |
| 428 | (setq ncol (1+ ncol))) | 428 | (setq ncol (1+ ncol))) |
| 429 | ;; Prepare last column spaces | 429 | ;; Prepare last column spaces |
| 430 | (let ((spaces (and delimit-columns-format | 430 | (let ((spaces (and delimit-columns-format |
| 431 | (make-string (- (aref delimit-columns-max ncol) | 431 | (make-string (- (aref delimit-columns-max ncol) |
| 432 | (- (current-column) origin)) | 432 | (- (current-column) origin)) |
| 433 | ?\ )))) | 433 | ?\s)))) |
| 434 | ;; Adjust extra columns, if needed | 434 | ;; Adjust extra columns, if needed |
| 435 | (and delimit-columns-extra | 435 | (and delimit-columns-extra |
| 436 | (while (and (< (setq ncol (1+ ncol)) len) | 436 | (while (and (< (setq ncol (1+ ncol)) len) |
| @@ -438,7 +438,7 @@ START and END delimits the corners of text rectangle." | |||
| 438 | (delimit-columns-format spaces) | 438 | (delimit-columns-format spaces) |
| 439 | (setq spaces (and delimit-columns-format | 439 | (setq spaces (and delimit-columns-format |
| 440 | (make-string (aref delimit-columns-max ncol) | 440 | (make-string (aref delimit-columns-max ncol) |
| 441 | ?\ ))))) | 441 | ?\s))))) |
| 442 | ;; insert last formating | 442 | ;; insert last formating |
| 443 | (cond ((null delimit-columns-format) | 443 | (cond ((null delimit-columns-format) |
| 444 | (insert delimit-columns-after delimit-columns-str-after)) | 444 | (insert delimit-columns-after delimit-columns-str-after)) |