aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorJuanma Barranquero2005-07-04 01:53:04 +0000
committerJuanma Barranquero2005-07-04 01:53:04 +0000
commit0c5a1b51ed44edfd13c8429c9054dafe7f6e7724 (patch)
tree5d9974871e6cff17410ba370cd4fd5c4f1ae2e43
parenta6bd541a051795531f610761a09e19f7a54bffc0 (diff)
downloademacs-0c5a1b51ed44edfd13c8429c9054dafe7f6e7724.tar.gz
emacs-0c5a1b51ed44edfd13c8429c9054dafe7f6e7724.zip
(columns): Finish `defgroup' description with period.
(delimit-columns-rectangle-line): "?\ " -> "?\s".
-rw-r--r--lisp/delim-col.el8
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))