[Emacs-diffs] Changes to emacs/lisp/delim-col.el

[Juanma Barranquero]

Index: emacs/lisp/delim-col.el
diff -c emacs/lisp/delim-col.el:1.9 emacs/lisp/delim-col.el:1.10
*** emacs/lisp/delim-col.el:1.9 Wed Mar 10 00:47:45 2004
--- emacs/lisp/delim-col.el     Mon Jul  4 01:53:04 2005
***************
*** 125,131 ****
  ;; User Options:
  
  (defgroup columns nil
!   "Prettify columns"
    :link '(emacs-library-link :tag "Source Lisp File" "delim-col.el")
    :prefix "delimit-columns-"
    :group 'internal)
--- 125,131 ----
  ;; User Options:
  
  (defgroup columns nil
!   "Prettify columns."
    :link '(emacs-library-link :tag "Source Lisp File" "delim-col.el")
    :prefix "delimit-columns-"
    :group 'internal)
***************
*** 424,436 ****
         (and delimit-columns-format
            (make-string (- (aref delimit-columns-max ncol)
                            (- (current-column) origin))
!                        ?\ )))
        (setq ncol (1+ ncol)))
      ;; Prepare last column spaces
      (let ((spaces (and delimit-columns-format
                       (make-string (- (aref delimit-columns-max ncol)
                                       (- (current-column) origin))
!                                   ?\ ))))
        ;; Adjust extra columns, if needed
        (and delimit-columns-extra
           (while (and (< (setq ncol (1+ ncol)) len)
--- 424,436 ----
         (and delimit-columns-format
            (make-string (- (aref delimit-columns-max ncol)
                            (- (current-column) origin))
!                        ?\s)))
        (setq ncol (1+ ncol)))
      ;; Prepare last column spaces
      (let ((spaces (and delimit-columns-format
                       (make-string (- (aref delimit-columns-max ncol)
                                       (- (current-column) origin))
!                                   ?\s))))
        ;; Adjust extra columns, if needed
        (and delimit-columns-extra
           (while (and (< (setq ncol (1+ ncol)) len)
***************
*** 438,444 ****
             (delimit-columns-format spaces)
             (setq spaces (and delimit-columns-format
                               (make-string (aref delimit-columns-max ncol)
!                                           ?\ )))))
        ;; insert last formating
        (cond ((null delimit-columns-format)
             (insert delimit-columns-after delimit-columns-str-after))
--- 438,444 ----
             (delimit-columns-format spaces)
             (setq spaces (and delimit-columns-format
                               (make-string (aref delimit-columns-max ncol)
!                                           ?\s)))))
        ;; insert last formating
        (cond ((null delimit-columns-format)
             (insert delimit-columns-after delimit-columns-str-after))